B4J Library [ABMaterial] Clouding our Notable Members

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.




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.

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.

 

[Mashiane]

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.

Sub mcloud1_click(params As Map)
    Dim text As String = params.Get("value")
    page.Msgbox("",text,text,"Ok",False,"","")
End Sub

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!

 

[derez]

 

[techknight]

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.

 

[liulifeng77]

I really like your component,However,an error occurred while debugging .It seems that that the type cannot be converted.(I used mashplugins)
can you give me some suggestion? thanks!

 

[Mashiane]

Mashplugins is no longer being maintained or being used by myself.

Rather create your own custom components to use, please.

Sorry about that.