B4J Library [ABMaterial] Clouding our Notable Members

Mashiane

Expert
Licensed User
Ola

So i'm thinking, a week or so ago I was doing qualitative data analysis for road surveys in one of our province. Whilst I was looking at the data, I decided to convert the data into a cloud, taking up most of the words that were used to make sense and establish a theme. Wala!!!. So I promised myself that I will find a suitable JQuery Cloud component that I can add to this wealth of everything ABM.

This is a wrap of http://mistic100.github.io/jQCloud/

Anyway, I was doing some surveys online and the survey tool didn't have an option to analyze open-ended questions, thus my option to use a word cloud. My friend was happy.

As I was saying, so in the forum there is a list of notable members, so I decided why not. This is available on https://www.b4x.com/android/forum/members/, as at 2018-09-01.

NotableMembers.png


So creating the cloud is not really difficult, you feed it the word, the weight, the color and the url. I still have to set up the colors. So here is it.

B4X:
Dim mcloud As MashJQCloud
    mcloud.Initialize(page,"mcloud",350)
    mcloud.AddWord("Erel",92,"","https://www.b4x.com/android/forum/members/erel.1/")
    mcloud.AddWord("LucaMs", 17,"","https://www.b4x.com/android/forum/members/lucams.51832/")
    mcloud.AddWord("DonManfred", 15.6,"","https://www.b4x.com/android/forum/members/donmanfred.42649/")
    mcloud.AddWord("klaus", 12.7,"","https://www.b4x.com/android/forum/members/klaus.904/")
    mcloud.AddWord("agraham", 7.3,"","https://www.b4x.com/android/forum/members/agraham.448/")
    mcloud.AddWord("NJDude", 6.1,"","https://www.b4x.com/android/forum/members/njdude.10443/")
    mcloud.AddWord("Cableguy", 6,"","https://www.b4x.com/android/forum/members/cableguy.4/")
    mcloud.AddWord("ilan",5.7,"","https://www.b4x.com/android/forum/members/ilan.27471/")
    mcloud.AddWord("Informatix",5.6,"","https://www.b4x.com/android/forum/members/informatix.22203/")
    mcloud.addword("sorex",4.8,"","https://www.b4x.com/android/forum/members/sorex.25700/")
    mcloud.AddWord("thedesolatesoul",4.4,"","https://www.b4x.com/android/forum/members/thedesolatesoul.11412/")
    mcloud.AddWord("Star-Dust",4.3,"","https://www.b4x.com/android/forum/members/star-dust.101440/")
    mcloud.AddWord("stevel05",4,"","https://www.b4x.com/android/forum/members/stevel05.9800/")
    mcloud.AddWord("warwound",3.5,"","https://www.b4x.com/android/forum/members/warwound.11161/")
    mcloud.AddWord("Filipo",3.4,"","https://www.b4x.com/android/forum/members/filippo.103/")
    mcloud.AddWord("Beja",3.3,"","https://www.b4x.com/android/forum/members/beja.29385/")
    mcloud.AddWord("derez",2.8,"","https://www.b4x.com/android/forum/members/derez.161/")
    mcloud.AddWord("KMatle",2.8,"","https://www.b4x.com/android/forum/members/kmatle.35245/")
    mcloud.AddWord("tufanv",2.7,"","https://www.b4x.com/android/forum/members/tufanv.38882/")
    mcloud.AddWord("MarcoRome",2.6,"","https://www.b4x.com/android/forum/members/marcorome.63206/")
    mcloud.ZDepth = ABM.ZDEPTH_1
      page.Cell(2,1).AddComponent(mcloud.abmcomp)
PS: Hopefully I'm not offending anyone with this clip being on youtube.
 

Attachments

Last edited:

Mashiane

Expert
Licensed User
Lets add different colors for the cloud and deterct a click event of a word.

Updates. Removed the color variable from AddWord. Added a DifferentColors boolean variable for Initialize.

CloudClick.gif


B4X:
Sub mcloud1_click(params As Map)
    Dim text As String = params.Get("value")
    page.Msgbox("",text,text,"Ok",False,"","")
End Sub
B4X:
Dim mcloud1 As MashJQCloud
    mcloud1.Initialize(page,"mcloud1",350,True)
    mcloud1.AddWord("Mashy",45,"")
    mcloud1.addword("Ozzie",15,"")
    mcloud1.AddWord("Olo",9,"")
    mcloud1.AddWord("Eso",8,"")
    page.Cell(2,1).AddComponent(mcloud1.abmcomp)
Enjoy, we are done here!
 

Attachments

techknight

Well-Known Member
Licensed User
You know, When I look up at the sky, there are a lot of clouds up there depending on the day. Problem is, I cant ever tell which cloud has my data. Gotta be oine of them suckers. Then there is the occasional cloud that has its data breached and dampens my day. Then sometimes, its frozen! but not so much around here where I live.
 
Top