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

Moderador: Moderadores
#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_)
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes