topic-34384

Board index FiveWin para Harbour/xHarbour Grafica simple...no he podido

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Grafica simple...no he podido
Posted: 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 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Grafica simple...no he podido
Posted: Thu Jul 27, 2017 12:05 PM

un ejemplo como se define

Code (fw): Select all Collapse

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

...
...
   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

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

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Grafica simple...no he podido
Posted: Thu Jul 27, 2017 01:33 PM

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

Gracias.
Saludos.
Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

FiveTech Support Forums

Continue the discussion