GoogleChart auch für Purebasic

Hier könnt ihr alle Fragen zu SpiderBasic austauschen.
Benutzeravatar
hjbremer
Beiträge: 822
Registriert: 27.02.2006 22:30
Computerausstattung: von gestern
Wohnort: Neumünster

GoogleChart auch für Purebasic

Beitrag von hjbremer »

was in Spiderbasic geht muß auch in Purebasic gehen !!!

hier eine kleine Demo zur Inspiration. Wer Lust hat kann das ja mal ausbauen und hier posten.
z.B. Daten ändern

Code: Alles auswählen

; PB 5.60 x64 unter Windows 10

; damit Webgadget den Htmlcode richtig anzeigt, habe ich gelesen im Forum und funktioniert
; <meta http-equiv='X-UA-Compatible' content='IE=edge'>

; Original Html siehe Google
; https://google-developers.appspot.com/chart/interactive/docs/quick_start

  Html$ = "<html>" +
          "<head>" +
          "<meta http-equiv='X-UA-Compatible' content='IE=edge'>" +         
          "<script type='text/javascript' src='https://www.gstatic.com/charts/loader.js'></script>" +
          "<script type='text/javascript'>" +         
          "google.charts.load('current', {'packages':['corechart']});" +
          "google.charts.setOnLoadCallback(drawChart);" +         
          "function drawChart() {" +
          "var Data = new google.visualization.DataTable();" +
          "Data.addColumn('string', 'Topping');" +
          "Data.addColumn('number', 'Slices');" +
          "Data.addRows([" +
          "['Birnen', 4]," +
          "['Onions', 1]," +
          "['Olives', 1]," +
          "['Zucchini', 1]," +
          "['Pepperoni', 2]" +
          "]);" +         
          "var options = {'title':'How Much Pizza I Ate Last Night'," +
          "'width':400," +
          "'height':300};" +         
          "var chart = new google.visualization.PieChart(document.getElementById('chart_div'));" +
          "chart.draw(Data, options);" +
          "}" +
          "</script>" +
          "</head>" +         
          "<body>" +
          "<div id='chart_div'></div>" +
          "</body>" +
          "</html>"
 
  
  
  If OpenWindow(0, 0, 0, 800, 500, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
     ;oder aus Datei
     ;WebGadget(0, 10, 10, 800, 500, "file://C:\Users\hjbremer\Dropbox\BeispieleV4\test.html") 
     
     ContainerGadget(11, 10, 10, 425, 325, #PB_Container_Double) ;25 größer als im HtmlCode oben
     WebGadget(0, 0, 0, 425, 325, "")                            ;sonst Scrollbalken
     SetGadgetItemText(0, #PB_Web_HtmlCode, html$)
     CloseGadgetList()
     
     Repeat 
     Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
PS: Html in Datasection packen und laden funktioniert mit Peeks() nicht
Purebasic 5.70 x86 5.72 X 64 - Windows 10

Der Computer hat dem menschlichen Gehirn gegenüber nur einen Vorteil: Er wird benutzt
grüße hjbremer
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: GoogleChart auch für Purebasic

Beitrag von RSBasic »

hjbremer hat geschrieben:was in Spiderbasic geht muß auch in Purebasic gehen !!!
:allright:
hjbremer hat geschrieben:PS: Html in Datasection packen und laden funktioniert mit Peeks() nicht
Warum sollte es nicht funktionieren?

Code: Alles auswählen

If OpenWindow(0, 0, 0, 800, 500, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ContainerGadget(11, 10, 10, 425, 325, #PB_Container_Double) ;25 größer als im HtmlCode oben
  WebGadget(0, 0, 0, 425, 325, "")                            ;sonst Scrollbalken
  SetGadgetItemText(0, #PB_Web_HtmlCode, PeekS(?HTML))
  CloseGadgetList()
  
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

DataSection
  HTML:
  Data.s "<html>" +
         "<head>" +
         "<meta http-equiv='X-UA-Compatible' content='IE=edge'>" +         
         "<script type='text/javascript' src='https://www.gstatic.com/charts/loader.js'></script>" +
         "<script type='text/javascript'>" +         
         "google.charts.load('current', {'packages':['corechart']});" +
         "google.charts.setOnLoadCallback(drawChart);" +         
         "function drawChart() {" +
         "var Data = new google.visualization.DataTable();" +
         "Data.addColumn('string', 'Topping');" +
         "Data.addColumn('number', 'Slices');" +
         "Data.addRows([" +
         "['Birnen', 4]," +
         "['Onions', 1]," +
         "['Olives', 1]," +
         "['Zucchini', 1]," +
         "['Pepperoni', 2]" +
         "]);" +         
         "var options = {'title':'How Much Pizza I Ate Last Night'," +
         "'width':400," +
         "'height':300};" +         
         "var chart = new google.visualization.PieChart(document.getElementById('chart_div'));" +
         "chart.draw(Data, options);" +
         "}" +
         "</script>" +
         "</head>" +         
         "<body>" +
         "<div id='chart_div'></div>" +
         "</body>" +
         "</html>"
EndDataSection
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Antworten