Exibir Graficos de Barras / Pizza / linhas etc..

[marcioe]

Amigos
Será que alguem poderia por Favor me enviar um exemplo de como fazer graficos Barras / Pizza / linhas etc..


Desde já agradeço

[rochinha]

Amiguinho

Veja este exemplo:

Código: Selecionar todos

#Include "FiveWin.Ch"

Static  oWnd  , nTot, nCan
Static  oGraph, aDia, aCan

Function Main()
   LOCAL cDate, cFile, aFld, cTotal

   SET DELETED ON
   SetHandleCount(99)
   nTot:=nCan:=0

   aDia  := {}
   //
   aCan1 := {}
   aCan2 := {}
   aCan3 := {}
   //
   USE Cifras NEW
   DO WHILE !Cifras->(EoF())
      AAdd(aDia,Str(Day(Cifras->Fecha)))
      AAdd(aCan1,Cifras->Cantid)
      AAdd(aCan2,Cifras->Cantid/2)
      AAdd(aCan3,(Cifras->Cantid)+120)
      nTot+=Cifras->Cantid
      nCan++
      Cifras->(DbSkip())
   ENDDO
   //
   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 80 TITLE "Distribucion de captura"
   oGraph:=TGraph():New(0,0,oWnd,oWnd:nWidth()-8,oWnd:nHeight()-40)
   cTotal:="Total: "+Tran(nTot,"999,999")+" registros.         Promedio "+Tran(nTot/nCan,"999,999")
   oGraph:cPicture:="999,999"
   oGraph:SetYVals(aDia)
   oGraph:cTitX   :="Volumen"
   oGraph:cTitY   :=cTotal
   oGraph:lYVal   :=.F.
   oGraph:lLegends:=.F.
   oGraph:lPopUp  :=.T.
   //
   oGraph:AddSerie( aCan1, "Prod 1", RGB(128,128,255))
   oGraph:AddSerie( aCan2, "Prod 2", RGB(128,255,128))
   oGraph:AddSerie( aCan3, "Prod 3", RGB(255,128,128))

   ACTIVATE WINDOW oWnd ;
      ON PAINT (oGraph:nWidth:=oWnd:nWidth()- 8, ;
                oGraph:nHeight:=oWnd:nHeight-40, ;
                oGraph:Refresh(.f.))


RETURN (NIL)

FUNCTION RGB(_r_,_g_,_b_)
   RETURN nRGB(_r_,_g_,_b_)

Arquivo cifras.dbf
-->@ b FECHA ïì¿DŠ€Ù „£’˜€ð!ï¶,gCANTID ì¿NŠ€Ù „£’˜€ð!ï¶,g
20030218 149 20030219 300 20030220 434 20030221 509 20030222 377 20030224 567 20030225 179 20030227 11 20030304 399 20030305 773 20030306 929 20030307 342 20030310 648 20030311 225 20030312 748 20030313 603 20030314 1646 20030315 817 20030317 2312 20030318 1928 20030319 1671 20030320 1585 20030321 2433 20030324 1588 20030325 2141 20030326 2102 20030327 1882 20030328 3380 20030329 1559 20030331 3517 20030401 2024 20030402 4350 20030403 4912 20030404 3980 20030405 2489 20030407 4133 20030408 4312 20030409 5319 20030410 4925 20030411 5574 20030412 1677 20030414 5977 20030415 4528 20030416 5267 20030417 4727 20030421 3148 20030422 4651 20030423 2708 20030424 3253 20030425 2307 20030426 835 20030428 3252 20030429 1506 20030430 3056 20030502 2403 20030505 736 20030506 937 20030507 1110 20030508 902 20030509 1304 20030510 555 20030512 935 20030513 213 20030514 808<--

Copie o conteudo entre --> e o <-- e salve como cifras.dbf

Caso o arquivo cifras.dbf não seja gerado crie um arquivo com os campos FECHA(data) e CANTID(numerico,5) e preencha de dados e visualize o resultado.

@braços :?)