B4J Library [ABMaterial] Clouding our Notable Members

Discussion in 'B4J Libraries & Classes' started by Mashiane, Sep 1, 2018.

  1. Mashiane

    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.

    Code:
    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.
     

    Attached Files:

    Last edited: Sep 1, 2018
  2. Mashiane

    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

    Code:
    Sub mcloud1_click(params As Map)
        
    Dim text As String = params.Get("value")
        
    page.Msgbox("",text,text,"Ok",False,"","")
    End Sub
    Code:
    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!
     

    Attached Files:

    moster67, amaxco, Cableguy and 2 others like this.
  3. derez

    derez Expert Licensed User

Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice