Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- 'ejemplos sacados de https://github.com/nnnick/Chart.js
- 'leyenda: https://github.com/bebraw/Chart.js.legend
- '
- Private meses As String
- Private datos1 As String
- Private datos2 As String
- Private datos3 As String
- Private titulo1 As String
- Private titulo2 As String
- Private titulo3 As String
- Private hcon As New Connection
- Private res As Result
- Public Sub _new()
- End
- Public Sub Form_Open()
- Dim archivo As String
- Dim n As Integer
- 'preparo entorno de trabajo...
- definir()
- ' If Exist(User.home & "/.ChartJS") Then
- ' Else
- Try Mkdir User.home & "/.ChartJS"
- Try Mkdir User.home & "/.ChartJS/trabajo2"
- 'limpieza de archivos
- ModuleComun.vaciarDirectorio(User.home & "/.ChartJS")
- ModuleComun.vaciarDirectorio(User.home & "/.ChartJS/trabajo2")
- archivo = "Chart.js"
- copiarArchivos(archivo)
- archivo = "Chart.min.js"
- copiarArchivos(archivo)
- archivo = "legend.js"
- copiarArchivos(archivo)
- archivo = "barra.html"
- copiarArchivosAtrabajo(archivo)
- hcon.type = "sqlite3"
- hcon.host = Application.Path & "/"
- hcon.name = "datos"
- Try hcon.Open
- res = hcon.Exec("Select * from tabla")
- GridViewDatos.columns.count = res.Fields.Count
- For n = 0 To res.Fields.count - 1
- GridViewDatos.Columns[n].text = res.Fields[n].name
- Next
- GridViewDatos.rows.count = res.count
- crearGrafica()
- Me.center
- ' Endif
- End
- Public Sub copiarArchivos(nombre As String)
- Try Copy nombre To User.home & "/.ChartJS" & "/" & nombre
- End
- Public Sub copiarArchivosAtrabajo(nombre As String)
- Try Copy nombre To User.home & "/.ChartJS" & "/trabajo2/" & nombre
- End
- Public Sub crearGrafica()
- Dim a As Integer
- Dim fich As String
- titulo1 = TextBox1.Text
- titulo2 = TextBox2.Text
- titulo3 = TextBox3.Text
- datos1 = GridViewDatos[0, 1].text
- datos2 = GridViewDatos[0, 2].text
- datos3 = GridViewDatos[0, 3].text
- For a = 1 To GridViewDatos.Rows.count - 1
- datos1 &= "," & GridViewDatos[a, 1].text
- datos2 &= "," & GridViewDatos[a, 2].text
- datos3 &= "," & GridViewDatos[a, 3].text
- Next
- meses = "\"" & GridViewDatos[0, 0].text & "\""
- For a = 1 To GridViewDatos.Rows.count - 1
- meses &= ",\"" & GridViewDatos[a, 0].text & "\""
- Next
- fich = File.Load(User.home & "/.ChartJS" & "/trabajo2/barra.html")
- fich = Replace$(fich, "#meses", meses)
- fich = Replace$(fich, "#datos1", datos1)
- fich = Replace$(fich, "#titulo1", titulo1)
- fich = Replace$(fich, "#datos2", datos2)
- fich = Replace$(fich, "#titulo2", titulo2)
- fich = Replace$(fich, "#datos3", datos3)
- fich = Replace$(fich, "#titulo3", titulo3)
- File.Save(User.home & "/.ChartJS" & "/trabajo2/barra.html", fich)
- WebView1.Url = "file:///" & User.home & "/.ChartJS" & "/trabajo2/barra.html"
- End
- Public Sub definir()
- With GridViewDatos
- .header = 3
- .rows.count = 6
- .columns.count = 4
- .Columns[0].title = "mes"
- .Columns[1].title = "cantidad1"
- .Columns[2].title = "cantidad2"
- .Columns[3].title = "cantidad3"
- .Columns[0].width = 60
- .Columns[1].width = 60
- .Columns[2].width = 60
- .Columns[3].width = 60
- .font.name = "Times"
- .font.size = 9
- .Background = 16777215
- .Foreground = 0
- End With
- End
- Public Sub GridViewDatos_Data(Row As Integer, Column As Integer)
- res.MoveTo(row)
- GridViewDatos.Data.Text = res[GridViewDatos.Columns[column].Text]
- End
- Public Sub Form_Close()
- hcon.close
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement