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.

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

  • MashJQCloud.bas
    3.1 KB · Views: 352
Last edited:

Mashiane

Expert
Licensed User
Longtime 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

  • MashJQCloud.bas
    4.1 KB · Views: 338

techknight

Well-Known Member
Licensed User
Longtime 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.
 

liulifeng77

Active Member
Licensed User
Longtime User
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!
 

Attachments

  • 捕获.JPG
    捕获.JPG
    32.6 KB · Views: 130
Top