B4J Library [BANanoVueMaterial]: The first complete opensource VueJS UX based framework for BANano

Mashiane

Expert
Licensed User
Longtime User
BVM 3 - Expansion Panels (Accordions)



B4X:
Sub Code
    vm = pgIndex.vm
    'create a container to hold all contents
    Dim cont As VMContainer = vm.CreateContainer(name,Me)
    'hide this container
    cont.Hide
    cont.AddRows(1).AddColumns12
    ' make accordion
    Dim ep As VMExpansionPanels = vm.CreateExpansionPanels("ep", Me).SetAccordion(True)
    ep.Panel.SetVFor("(item, i)", "5")
    ep.Panel.Bind(":key", "i")
    '
    ep.Header.SetText("Item")
    ep.Content.SetText(vm.Fake.Rand_LoremIpsum(1))
    
    cont.AddComponent(1, 1, ep.tostring)
    '
    vm.AddContainer(cont)
End Sub
 
Last edited:

Mashiane

Expert
Licensed User
Longtime User
BVM 3 - Carousel



B4X:
Sub Code
    vm = pgIndex.vm
    'create a container to hold all contents
    Dim cont As VMContainer = vm.CreateContainer(name, Me)
    'hide this container
    cont.Hide
    '
    cont.AddRows(5).AddColumns12
    
    ' create a list of images
    Dim items As List
    items.initialize
    items.add(CreateMap("src":"./assets/squirrel.jpg"))
    items.add(CreateMap("src":"./assets/sky.jpg"))
    items.add(CreateMap("src":"./assets/bird.jpg"))
    items.add(CreateMap("src":"./assets/planet.jpg"))
    'save to state
    vm.setdata("images", items)
    
    Dim c1 As VMCarousel = vm.CreateCarousel("c1", Me).SetHeight("400").SetCycle(True).SetHideDelimiterBackground(True)
    c1.SetShowArrowsOnHover(True)
    '
    Dim ci As VMCarouselItem = vm.CreateCarouselitem("", Me)
    ci.SetVFor("(item, i)", "images")
    ci.Bind(":key", "i")
    ci.Bind(":src", "item.src")
    ci.SetReverseTransition("fade-transition")
    ci.SetTransition("fade-transition")
    '
    c1.AddItem(ci)
    '
    cont.AddComponent(1, 1, c1.tostring)
    
    'add container to page
    vm.AddContainer(cont)
End Sub
 
Last edited:

Mashiane

Expert
Licensed User
Longtime User
BVM 3 Parallax (updates on first post!)




B4X:
Sub Code
    vm = pgIndex.vm
    'create a container to hold all contents
    Dim cont As VMContainer = vm.CreateContainer(name,Me)
    'hide this container
    cont.Hide
    'create 2 columns each spanning 12 columns
    cont.addrows(2).AddColumns12
    '
    Dim par As VMParallax = vm.CreateParallax("p1", Me).SetSRC("./assets/material.jpg")
    cont.AddComponent(1, 1, par.tostring)
    '
    Dim par1 As VMParallax = vm.CreateParallax("p2", Me).SetSRC("./assets/bg-2.jpg").SetAttrLoose("dark")
    par1.Container.AddRows(1).AddColumns12
    par1.Container.SetAlignRC(1, vm.ALIGN_CENTER)
    par1.Container.SetJustifyRC(1, vm.JUSTIFY_CENTER)
    par1.Container.SetTextCenterRC(1, 1)
    '
    Dim h1 As VMLabel = vm.CreateLabel("h1").AddClass("display-1 font-weight-thin mb-4").SetText("Vuetify.js").SetH1
    par1.Container.AddComponent(1, 1, h1.tostring)
    '
    Dim h4 As VMLabel = vm.createlabel("h4").AddClass("subheading").SetText("Build your application today!").SetH4
    par1.Container.AddComponent(1, 1, h4.tostring)
      
    cont.AddComponent(2, 1, par1.tostring)
    vm.AddContainer(cont)
End Sub
 
Last edited:

Mashiane

Expert
Licensed User
Longtime User
BVM 3 InfoBox

Fixed a bug with the infobox as it didnt count and added some other varieties of the inforbox.



In process_globals

B4X:
Private newusers As VMInfoBox

Add on page

B4X:
newusers = vm.NewInfoBox(Me, "newusers", "NEW USERS", "face", "", "0", "257")
    newusers.SetBackgroundCOlor(vm.COLOR_INDIGO).SetStyle3(True).SetIconColor(vm.COLOR_WHITE)
    newusers.SetHoverZoomEffect(True)
    cont.AddComponent(2,4,newusers.tostring)

Then execute the start call to run the counter

B4X:
newusers.start
 

Mashiane

Expert
Licensed User
Longtime User
BVM 3 : Echarts

Wrap from this github

Found a nice implementation of the Echarts library. I wanted some charts with spider legs. This comes very handy.



B4X:
Dim pieD As List
    pieD.initialize
    pieD.Add(CreateMap("date": "01/01", "cost": 1523,"profit": 1523))
    pieD.Add(CreateMap("date": "01/02", "cost": 1223,"profit": 1623))
    pieD.Add(CreateMap("date": "01/03", "cost": 2123, "profit": 1723))
    pieD.Add(CreateMap("date": "01/04", "cost": 4123,"profit": 1423))
    pieD.Add(CreateMap("date": "01/05", "cost": 3123, "profit": 1223))
    pieD.Add(CreateMap("date": "01/06", "cost": 7123,"profit": 1123))

Dim echart12 As VMEChart = vm.createechart("e12", Me).SetPieChart
    echart12.SetColumns(Array("date", "cost", "profit"))
    echart12.SetRows(pieD)
    cont.AddComponent(4, 1, echart12.tostring)
 
Last edited:

Mashiane

Expert
Licensed User
Longtime User
BVM 3: EChart Map



B4X:
Dim mapD1 As List
    mapD1.initialize
    mapD1.add(CreateMap("location": "延庆区", "GDP": 123))
    mapD1.add(CreateMap("location": "密云区", "GDP": 1223))
    mapD1.add(CreateMap("location": "平谷区", "GDP": 2123))
    mapD1.add(CreateMap("location": "海淀区", "GDP": 4123))
    '
    Dim echart24 As VMEChart = vm.createechart("e24", Me).SetMapChart
    echart24.SetColumns(Array("location", "GDP"))
    echart24.SetPosition("province/beijing")
    echart24.SetRows(mapD1)
    echart24.SetLabel(False)
    cont.AddComponent(7, 3, echart24.tostring)
 

Mashiane

Expert
Licensed User
Longtime User
BVM 3 Sankey Chart



B4X:
Dim sData As List
    sData.initialize
    sData.add(CreateMap("page": "front", "pv": 100000))
    sData.add(CreateMap("page": "list-a", "pv": 20000))
    sData.add(CreateMap("page": "list-b", "pv": 80000))
    sData.add(CreateMap("page": "content-a-1", "pv": 10000))
    sData.add(CreateMap("page": "content-a-2", "pv": 10000))
    sData.add(CreateMap("page": "content-b-1", "pv": 60000))
    sData.add(CreateMap("page": "content-b-2", "pv": 20000))
        
    Dim echart26 As VMEChart = vm.createechart("e26", Me).SetSanKeyChart
    echart26.SetLinks(links)
    echart26.SetColumns(Array("page", "pv"))
    echart26.SetRows(sData)
    cont.AddComponent(9, 1, echart26.tostring)
 

Mashiane

Expert
Licensed User
Longtime User
BVM 3 HeatMap



B4X:
Dim hData As List
    hData.initialize
    hData.add(CreateMap("week": "Monday", "location": "Beijing", "person": 1000))
    hData.add(CreateMap("week": "Tuesday", "location": "Shanghai", "person": 400))
    hData.add(CreateMap("week": "Wednesday", "location": "Hangzhou", "person": 800))
    hData.add(CreateMap("week": "Tuesday", "location": "Shenzhen", "person": 200))
    hData.add(CreateMap("week": "Wednesday", "location": "Changhcun", "person": 100))
    hData.add(CreateMap("week": "Friday", "location": "Nanjing", "person": 300))
    hData.add(CreateMap("week": "Thursday", "location": "Jiangsu", "person": 800))
    hData.add(CreateMap("week": "Monday", "location": "Beijing", "person": 700))
    hData.add(CreateMap("week": "Wednesday", "location": "Shanghai", "person": 300))
    hData.add(CreateMap("week": "Tuesday", "location": "Hangzhou", "person": 500))
    
    
    Dim echart27 As VMEChart = vm.createechart("e27", Me).SetHeatMap
    echart27.SetColumns(Array("week", "location", "person"))
    echart27.SetRows(hData)
    cont.AddComponent(9, 2, echart27.tostring)
 

Mashiane

Expert
Licensed User
Longtime User
BVM 3 BMap



B4X:
Dim mData As List
    mData.initialize
    mData.Add(CreateMap("lat": 120.14322240845, "lng": 30.236064370321))
    mData.Add(CreateMap("lat": 120.14301682797, "lng": 30.236035316745))
    mData.Add(CreateMap("lat": 120.14138577045, "lng": 30.236113748704))
    mData.Add(CreateMap("lat": 120.1400398833, "lng": 30.235973050702))
    mData.Add(CreateMap("lat": 120.13893453465, "lng": 30.23517220446))
    mData.Add(CreateMap("lat": 120.1382899739, "lng": 30.234062922977))
    mData.Add(CreateMap("lat": 120.13265960629, "lng": 30.231641351722))
    mData.Add(CreateMap("lat": 120.13170681763, "lng": 30.229925745619))
    mData.Add(CreateMap("lat": 120.13119614803, "lng": 30.228996846637))
    mData.Add(CreateMap("lat": 120.13023980134, "lng": 30.228226570416))
   
    
    Dim echart28 As VMEChart = vm.createechart("e28", Me).SetHeatMap
    echart28.SetColumns(Array("lat", "lng"))
    echart28.SetRows(mData)
    echart28.SetBMapKey("oBvDtR6nzWtVchkY4cLHtnah1VVZQKRK")
    echart28.SetBMapCenter(120.14322240845, 30.236064370321)
    echart28.SetBMapZoom(14)
    echart28.SetBMapRoam(True)
    cont.AddComponent(9, 3, echart28.tostring)
 

Mashiane

Expert
Licensed User
Longtime User
BVM 3 Gauge



B4X:
Dim echart29 As VMEChart = vm.createechart("e29", Me).SetGaugeChart
    echart29.SetColumns(Array("type", "value"))
    echart29.AddRow(CreateMap("type": "speed", "value": 80))
    cont.AddComponent(10, 1, echart29.tostring)



B4X:
Dim echart30 As VMEChart = vm.createechart("e30", Me).SetGaugeChart
    echart30.SetColumns(Array("type", "value"))
    echart30.AddRow(CreateMap("type": "rate", "value": 0.8))
    echart30.SetDataType("rate", "percent")
    echart30.SetSeriesMap("rate", CreateMap("min":0, "max":1))
    cont.AddComponent(10, 2, echart30.tostring)
 
Last edited:

Mashiane

Expert
Licensed User
Longtime User
BVM EChart Tree (radial)



B4X:
Dim echart33 As VMEChart = vm.createechart("e33", Me).SetTreeChart
    echart33.SetColumns(Array("name", "value"))
    echart33.SetTreeRadial("tree")
    '
    echart33.AddItem("", "1", CreateMap("value":1, "name":"f", "link":"https://ele.me"))
    echart33.AddItem("1", "2", CreateMap("name":"a", "value":1, "link":"https://ele.me"))
    echart33.AddItem("2", "6", CreateMap("name":"a-a", "value":2, "link":"https://ele.me"))
    echart33.AddItem("2", "7", CreateMap("name":"a-b", "value":2, "link":"https://ele.me"))
    '
    echart33.AddItem("1", "3", CreateMap("name":"b", "value":2, "link":"https://ele.me"))
    echart33.AddItem("3", "8", CreateMap("name":"b-a", "value":2, "link":"https://ele.me"))
    echart33.AddItem("3", "9", CreateMap("name":"b-b", "value":2, "link":"https://ele.me"))
    '
    echart33.AddItem("1", "4", CreateMap("name":"c", "value":3, "link":"https://ele.me"))
    echart33.AddItem("4", "10", CreateMap("name":"c-a", "value":4, "link":"https://ele.me"))
    echart33.AddItem("4", "11", CreateMap("name":"c-b", "value":2, "link":"https://ele.me"))
    '
    echart33.AddItem("1", "5", CreateMap("name":"d", "value":4, "link":"https://ele.me"))
    echart33.AddItem("5", "12", CreateMap("name":"d-a", "value":4, "link":"https://ele.me"))
    echart33.AddItem("5", "13", CreateMap("name":"d-b", "value":2, "link":"https://ele.me"))
    
    echart33.AddRow(CreateMap("name": "tree", "value": echart33.treeData))
cont.AddComponent(11, 1, echart33.tostring)
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…