PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Exemplo de plotar um Grafico
Exemplo de plotar um Grafico
Started by Boller, Sep., 26 2020 2:05 PM - No answer
Registered member
3,181 messages
Popularité : +89 (91 votes)
Posted on September, 26 2020 - 2:05 PM




EDT_HD_Total = Val(fDriveInfo("C:", fdTotalSpace))/1000
EDT_HD_Livre = Val(fDriveInfo("C:", fdFreeSpace))/1000
EDT_HD_Usado = Val(Val(EDT_HD_Total) - Val(EDT_HD_Livre))

//grCreate(CHART_HD, grPie)
grTitle(CHART_HD, "Info HD C:")

IF grExist(CHART_HD) THEN
grDeleteSeries(CHART_HD)
grDeleteAll(CHART_HD)
grClearPict(CHART_HD)
END

// Display the values
grLabel(CHART_HD, grShowValue, True)

//Legendas
grSeriesLabel(CHART_HD,1,"Usado")
grSeriesLabel(CHART_HD,2,"Livre")
grCategoryLabel(CHART_HD,1,"Usado")
grCategoryLabel(CHART_HD,2,"Livre")

//Legenda no Roda pé
grLegend(CHART_HD,grAtBottom)

//Exibe porcentagem
grLabel(CHART_HD, grShowPercent, True)

//Cores
//Usado é Vermelho
grSeriesColor(CHART_HD, 1, GetColor(1,RGB(255,0,0)))
//Livre é Azul
grSeriesColor(CHART_HD, 2, GetColor(2,RGB(0,0,255)))

//Valor do HD Usado
grAddData(CHART_HD,1,Val(EDT_HD_Usado))
//Valor do HD Livre
grAddData(CHART_HD,1,Val(EDT_HD_Livre))
grDraw(CHART_H


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/