Amigos
Será que alguem poderia por Favor me enviar um exemplo de como fazer graficos Barras / Pizza / linhas etc..
Desde já agradeço
Exibir Graficos de Barras / Pizza / linhas etc..
Moderador: Moderadores
2 Mensagens • Página 1 de 1
por rochinha » 07 Nov 2006 13:41
Amiguinho
Veja este exemplo:
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 :?)
Veja este exemplo:
#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 :?)
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master 
- Mensagens: 4547
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 806 vezes
- Mens.Curtidas: 246 vezes
Ver tópicos ativos •
2 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
