topic-26788

Posts: 411

Joined: Sun Jan 31, 2010 03:30 PM

RMCHART - DEMO
Posted: Mon Jul 15, 2013 12:37 AM

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

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: RMCHART - DEMO
Posted: Mon Jul 15, 2013 03:04 PM

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

Code (fw): Select all Collapse

#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 (fw): Select all Collapse

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
}

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Antonio Linares

Posts: 44162