Grafica simple...no he podido

Grafica simple...no he podido

Postby D.Fernandez » Thu Jul 27, 2017 12:52 am

Amigos:
Tengo 12 meses (enero a Dic.) y 12 datos numéricos sacados de una base de datos.
La BD consta de 13 campos, 1 es el año y los otros doce representan al mes y contienen números.
Esto es lo que pretendo mostrar, pero no he podido.
Si me muestran algún código, sería muy bueno.

Gracias, saludos

Ruben Dario Fernandez
Dario Fernandez
FWH 22.12, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 455
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Grafica simple...no he podido

Postby armando.lagunas » Thu Jul 27, 2017 12:05 pm

un ejemplo como se define
Code: Select all  Expand view

...
...
                  REDEFINE GRAPH oGraph ID 20 OF oPag[2]:aDialogs[1] TYPE  1 DEFAULT

                           oGraph:AddSerie( {0} ,  "Trad "+STR( YEAR(oApp:dFecEnd)   ,4), nRGB(159,255,159) )
                           oGraph:AddSerie( {0} ,  "Org. "+STR( YEAR(oApp:dFecEnd)   ,4), nRGB(255,127, 39) )
                           oGraph:AddSerie( {0} ,  "Año " +STR((YEAR(oApp:dFecEnd)-1),4), nRGB(130,192,255) )
                           oGraph:SetYVals( {"---"} )
                           oGraph:cTitle             := "RECEPCION GENERAL PLANTA"
                           oGraph:cTitY              := "ESPECIES"
                           oGraph:cTitX              := "TONELADAS"
                           oGraph:cPicture           := "@E 99,999.9"
...
...
 


ejemplo como llenar los datos recorriendo una tabla

Code: Select all  Expand view

...
...
   oGrapp:aData         :=  {}
   oGrapp:aSeries       := {}
   oGrapp:nType         :=   1   //  Barras
   aKil                       := {}
   aDat                     :=  {}

   DO WHILE !EOF()
      AADD( aKil, PA22->TOTA / 1000 )
      AADD( aDat, "." )
      SKIP
   ENDDO
   oGrapp:AddSerie( ASORT( aKil ,,, { |x,y|  x > y }  ) ,   "Ranking ", nRGB(127,128,130))
   oGrapp:SetYVals(  aDat  )
   oGrapp:Refresh()
...
...
 


ejemplo de resultado

Image

hecha un vistazo en este link : http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32275


Saludos
SkyPe: armando.lagunas@hotmail.com
Mail: armando.lagunas@gmail.com
User avatar
armando.lagunas
 
Posts: 346
Joined: Mon Oct 05, 2009 3:35 pm
Location: Curico-Chile

Re: Grafica simple...no he podido

Postby D.Fernandez » Thu Jul 27, 2017 1:33 pm

Impresionante Armando. Pruebo y aviso. La verdad que esta espectacular.

Gracias.
Saludos.
Ruben Dario Fernandez
Dario Fernandez
FWH 22.12, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 455
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 11 guests