Se non ricordo male, questa cosa l'avevi già notificata tempo fà, ma che avevi abbandonato a causa di alcuni problemi (non ricordo quali...).
A parte l'indubbio vantaggio di avere una utility di questo tipo, qual'è il motivo di questo tuo ritorno di fiamma? ;D
Public Sub Massa()
Dim myconn As New Connection
Dim myset As Result
Dim hfile As Stream
myconn.Type = "sqlite3"
myconn.Host = Application.Path
myconn.Name = "myZone.db"
myconn.Open
myset = myconn.Exec("SELECT * FROM tbPeso ORDER BY GMA")
If myset.Count > 0 Then
hFile = Open Application.Path & "/massa.html" For Create
Print #hFile, "<!--"
Print #hFile, "You are free to copy and use this sample in accordance with the terms of the"
Print #hFile, "Apache license (http://www.apache.org/licenses/LICENSE-2.0.html)"
Print #hFile, "-->"
Print #hFile, ""
Print #hFile, "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"
Print #hFile, "<html xmlns='http://www.w3.org/1999/xhtml'>"
Print #hFile, "<head>"
Print #hFile, "<meta http-equiv='content-type' content='text/html; charset=utf-8'/>"
Print #hFile, "<title>"
Print #hFile, "Google Visualization API Sample"
Print #hFile, "</title>"
Print #hFile, "<script type='text/javascript' src='http://www.google.com/jsapi'></script>"
Print #hFile, "<script type='text/javascript'>"
Print #hFile, "google.load('visualization', '1', {packages: ['corechart']});"
Print #hFile, "</script>"
Print #hFile, "<script type='text/javascript'>"
Print #hFile, "function drawVisualization() {"
Print #hFile, "// Create and populate the data table."
Print #hFile, "var data = new google.visualization.DataTable();"
Print #hFile, "data.addColumn('string', 'x');"
Print #hFile, "data.addColumn('number', 'Massa Grassa');"
Print #hFile, "data.addColumn('number', 'Massa Magra');"
For Each myset
Print #hFile, "data.addRow(['" & Format$(myset!GMA, "dd/mm/yy") & "', " & myset!GRASSA & "," & myset!MAGRA & "]);"
Next
Print #hFile, "// Create and draw the visualization."
Print #hFile, "new google.visualization.AreaChart(document.getElementById('visualization'))."
Print #hFile, "draw(data,{curveType:'function',width: 300, height: 200,vAxis: {maxValue: 10},title: 'Storico massa grassa/magra'});"
Print #hFile, "}"
Print #hFile, "google.setOnLoadCallback(drawVisualization);"
Print #hFile, "</script>"
Print #hFile, "</head>"
Print #hFile, "<body style='font-family: Arial;border: 0 none;'>"
Print #hFile, "<div id='visualization' style='width: 300px; height: 200px;'></div>"
Print #hFile, "</body>"
Print #hFile, "</html>"
Else
Message("Dati massa grassa/magra non disponibili.")
hFile = Open Application.Path & "/massa.html" For Create
Print #hFile, "<html>"
Print #hFile, "<head>"
Print #hFile, "<meta http-equiv='content-type' content='text/html; charset=ISO-8859-1'>"
Print #hFile, "</head>"
Print #hFile, "<body>"
Print #hFile, "<small style='font-weight: bold;'><small>Dati massa grassa/magra non disponibili.</small></small>"
Print #hFile, "</body>"
Print #hFile, "</html>"
Endif
EndSe vi interessa ho un metodo alternativo per effettuare grafici di elevatissima qualità sfruttando codice java Google. Che non preclude l'utilizzzo dell'ottimo linegraf. Le possibilità sono eccezionali, quello che serve è una connessione attiva, ma ora anche i bambini ce l'hanno. Le routine in pratica si sostanziano solo in un loop per fornire il recordset dei dati da plottare. Personalizzazioni dei grafici infinite. Tanto per capirci, i grafici che vedete nella foto sono cliccabili e su ogni punto compare la finestrella informativa. Se vi fa piacere scrivo un articoletto-post. Buona giornata.Sarebbe mooolto interessante.
Credo sia molto più istruttivo e costruttivo aiutare f.surfing nello sviluppo della sua libreria piuttosto che utilizzare dei giocattoli messi a disposizione da Google. Poi non lamentiamoci che Gambas offre poco materiale se siamo noi i primi a cercare altrove!
Credo sia molto più istruttivo e costruttivo aiutare f.surfing nello sviluppo della sua libreria piuttosto che utilizzare dei giocattoli messi a disposizione da Google. Poi non lamentiamoci che Gambas offre poco materiale se siamo noi i primi a cercare altrove!Sono d'accordo con te, io sto usando molto la libreria di fsurfing che ritengo più che ottima e che spero continui a sviluppare anche con l'aiuto di altri.
Concordo con tornu...
Non stiamo qui a fare crociate verso o a favore di un linguaggio, oppure di un specifico modo di pensare.
Dopotutto i linguaggi sono nati proprio per poter sviluppare idee utili per risolvere i nostri problemi quotidiani, cercando di farlo nel modo più veloce e semplice.
La semplicità di Gambas ha fatto in modo da avvicinare alla programmazione molti dei nostri amici del forum, ma questo non vuol dire che ce lo siamo sposato, e che non possiamo ampliare la nostra conoscenza cercando di ampliarne le possibilità che, indubbiamente, potrebbero portare vantaggio sia a noi che al linguaggio stesso.
Già il linguaggi stesso si appoggia a librerie esterne, ed è una cosa normalissima, se non si vuole impazzire a scrivere ex-novo cose già fatte e belle che sperimentate.
Inoltre andy ha dimostrato che con Gambas si può interagire con cose esterne, il che è già di per se una bella cosa.
Il mio pensiero continua ad essere lo stesso. Inutile andare OT per questioni non inerenti il post originale. Chi vuole approfondire può utilizzare gli appositi spazi messi a disposizione.