RMCHART - DEMO

[russimicro]

Buenas noches...

Requiero implementar la generación de graficas desde fivewin, en el foro encontré RMCHART, pero tengo el siguiente problema :

Incluí el RMCDEMO de rmchart en mi App, pero los valores del eje [Y] se desbordan de su valor verdadero, he tomado el ejemplo del demo sin ninguna modificación (rmc4xhb.zip- mnSingleBars() )

ver el resultado en el siguiente link

http://www.russoft.co/RMCHART.jpg

Saludos...

Jonsson Russi
Colombia
Nota: Si alguien tiene experiencia con otras herramientas para generar graficas, les agradezco sus referencias y experiencias

[cmsoft]

Hola Jonsson!
No se si esto pueda servirte, pero a mi me ha sido de utilidad.

Code: Select all  Expand view

#Include "FiveWin.Ch"
#Include "TGraph.Ch"

FUNCTION Grafica()
LOCAL oGraf, aSerie := ARRAY(10), aLeyen := ARRAY(10), oDlg, i
FOR i := 1 TO 10
   aSerie[i] := nRandom(i*100)
   aLeyen[i] := i
NEXT i
   DEFINE DIALOG oDlg RESOURCE "GRAFICA" OF MEMVAR->oWPpal
      oDlg:lHelpIcon := .f.
      REDEFINE GRAPH oGraf OF oDlg ID 111 TITLE "Ventas totales" 3D XGRID;
                            YGRID XVALUES YVALUES LEGENDS TYPE 2
      oGraf:cTitle := "Valores aleatorios del 1 al 10 "
      oGraf:cSubTit:= "En pesos"
      oGraf:cTitX  := "Valores"
      oGraf:cTitY  := "Dias"
      oGraf:lPopUp := .T.
      oGraf:AddSerie(aSerie, "Ventas por dia", RGB(128,128,255))
      oGraf:SetYVals(aLeyen)
   ACTIVATE DIALOG oDlg CENTER ON INIT oGraf:Refresh()
RETURN nil
 

El archivo .RC debe contener

Code: Select all  Expand view

GRAFICA DIALOG 58, 37, 336, 208
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Gráficos"
FONT 8, "Tahoma"
{
 CONTROL "", 111, "TGRAPH", 161 | WS_CHILD | WS_TABSTOP, 6, 13, 326, 164
}
 

[Antonio Linares]

Jonsson,

FWH proporciona soporte de gráficos, puedes revisar samples/graph.prg

[russimicro]

Gracias ,,, por sus prontas respuestas...

Si ,, ya estoy revisando y probando la clase tgraph

saludos

Johnson russi