Ejemplo básico de como generar gráficos con MSChart.
oForm = Createobject("Grafico")
oForm.Show(1)
Define Class Grafico
As Form
Add Object oChart
As OleControl
;
WITH OleClass="MSChart20Lib.MSCHart.2",;
Top=0,
Left=0,;
Width=This.Width,
Height=This.Height
Procedure Init
Local lnCounter
With This.oChart.Object
.RowCount = 12
.RowLabelCount = 1
.Title.Text="Ejemplo
de Grafico"
.ColumnCount
= 1
.ChartType=1
.Column
= 1
Rand(-1)
For
lnCounter =1
To
12
.Row
= lnCounter
.RowLabel = 0 + lnCounter
.Data
=
Rand()*100
EndFor
EndWith
EndProc
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
