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
    Rubsanpe, moster67, amaxco and 3 others like this.
  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

  4. techknight

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