PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → EXEMPLO DE COMO FAZER UM GRAFICO COM WX
EXEMPLO DE COMO FAZER UM GRAFICO COM WX
Iniciado por Boller, set., 26 2022 9:41 PM - 3 respostas
Membro registado
3.462 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 26 2022 - 9:41 PM




Info ("VERIFICAR O CODIGO")

//Exemplo X / Y
grCreate(CHART_Exemplo1, grColumn)
//grCreate(CHART_Exemplo1, grLine)

//Definindo a Fonte Titulo
MyFonte1 is Font
MyFonte1 = FontCreate("Arial", 15, iBold)
grTitleFont(CHART_Exemplo1, MyFonte1)
//Definindo a Fonte Label
MyFonte2 is Font
MyFonte2 = FontCreate("Arial", 8, iNormal)
grLabelFont(CHART_Exemplo1, MyFonte2)
//Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela
MyFonte3 is Font
MyFonte3 = FontCreate("Arial", 8, iNormal)
grLegendFont(CHART_Exemplo1, MyFonte3)
//Definindo a Fonte Axis
MyFonte4 is Font
MyFonte4 = FontCreate("Arial",15, iNormal)
grAxisTitleFont(CHART_Exemplo1, MyFonte4)

grTitle(CHART_Exemplo1, "Estimativa Mensal de Producao de Energia para o ano de 2022")

grLabel(CHART_Exemplo1, grShowValue, True)
//grMask(CHART_Exemplo1,grMaskValue,"99 999 999,99 $")

//cor da linha X e Y
grColor(CHART_Exemplo1,grColorAxis,RGB(0,0,0))

//cor da borda das colunas
grColor(CHART_Exemplo1,grColorBorder,RGB(0,0,0))

//cor da linha X e Y
grColor(CHART_Exemplo1,grColorGridlines,RGB(255,255,255))


bExibeLabel is boolean = True
IF bExibeLabel = True
grLabel(CHART_Exemplo1, grShowLabel, True)
ELSE
grLabel(CHART_Exemplo1, grShowLabel, False)
END

bExibeSeriesLabel is boolean = True
IF bExibeSeriesLabel = True
grSeriesLabel(CHART_Exemplo1,1,"Serie Label")
ELSE
grSeriesLabel(CHART_Exemplo1,1,"")
END


PosicaoLegenda is int = 1
IF PosicaoLegenda=1 THEN
grLegend(CHART_Exemplo1,grAtLeft)
ELSE IF PosicaoLegenda=2 THEN
grLegend(CHART_Exemplo1,grAtRight)
ELSE IF PosicaoLegenda=3 THEN
grLegend(CHART_Exemplo1,grAtBottom)
ELSE IF PosicaoLegenda=4 THEN
grLegend(CHART_Exemplo1,grAtTop)
END


bExibePorcentagem is boolean = False
IF bExibePorcentagem= True THEN
grLabel(CHART_Exemplo1, grShowPercent, True)
ELSE
grLabel(CHART_Exemplo1, grShowPercent, False)
END

bSmoothing is boolean = True
IF bSmoothing = 1 THEN
grSmoothing(CHART_Exemplo1, True)
ELSE
grSmoothing(CHART_Exemplo1, False)
END

//DADOS X E Y

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,1,"Janeiro")
grCategoryColor(CHART_Exemplo1,1,RGB(250,0,0))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,2,"Fevereiro")
grCategoryColor(CHART_Exemplo1,2,RGB(250,0,99))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,3,"Março")
grCategoryColor(CHART_Exemplo1,3,RGB(250,0,170))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,4,"Abril")
grCategoryColor(CHART_Exemplo1,4,RGB(199,0,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,5,"Maio")
grCategoryColor(CHART_Exemplo1,5,RGB(147,0,250))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,6,"Junho")
grCategoryColor(CHART_Exemplo1,6,RGB(41,0,250))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,7,"Julho")
grCategoryColor(CHART_Exemplo1,7,RGB(0,41,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,8,"Agosto")
grCategoryColor(CHART_Exemplo1,8,RGB(0,123,250))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,9,"Setembro")
grCategoryColor(CHART_Exemplo1,9,RGB(0,194,250))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,10,"Outubro")
grCategoryColor(CHART_Exemplo1,10,RGB(0,241,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,11,"Novembro")
grCategoryColor(CHART_Exemplo1,11,RGB(255,255,0))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,12,"Dezembro")
grCategoryColor(CHART_Exemplo1,12,RGB(255,199,187))

grDraw(CHART_Exemplo1)

grSaveBMP(CHART_Exemplo1,"GRAFICO.BMP")

MyImage is Image = "GRAFICO.BMP"

dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)

dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG")


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.462 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 26 2022 - 9:41 PM
// Summary: <specify the procedure action>
// Syntax:
// ConfigurarGrafico ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE ConfigurarGrafico()

tipo++

//Exemplo X / Y
SWITCH tipo
CASE 1
grCreate(CHART_Exemplo1, grColumn)
CASE 2
grCreate(CHART_Exemplo1, grArea)
CASE 3
grCreate(CHART_Exemplo1, grBarCharts)
CASE 4
grCreate(CHART_Exemplo1, grBubbleChart)
CASE 5
grCreate(CHART_Exemplo1, grCandleStick)
CASE 6
grCreate(CHART_Exemplo1, grColumnStacked)
CASE 7
grCreate(CHART_Exemplo1, grDonut)
CASE 8
grCreate(CHART_Exemplo1, grFunnel)
CASE 9
grCreate(CHART_Exemplo1, grHeatMap)
CASE 10
grCreate(CHART_Exemplo1, grLine)
CASE 11
grCreate(CHART_Exemplo1, grMinMax)
CASE 12
grCreate(CHART_Exemplo1, grPie)
CASE 13
grCreate(CHART_Exemplo1, grRadar)
CASE 14
grCreate(CHART_Exemplo1, grRadialBar)
CASE 15
grCreate(CHART_Exemplo1, grRangeArea)
CASE 16
grCreate(CHART_Exemplo1, grScatter)
CASE 17
grCreate(CHART_Exemplo1, grScatter3D)
CASE 18
grCreate(CHART_Exemplo1, grSemiCircular)
CASE 19
grCreate(CHART_Exemplo1, grSunburst)
CASE 20
grCreate(CHART_Exemplo1, grSurface)
CASE 21
grCreate(CHART_Exemplo1, grWaterfall)
OTHER CASE
grCreate(CHART_Exemplo1, grColumn)
END

//Definindo a Fonte Titulo
MyFonte1 is Font
MyFonte1 = FontCreate("Arial", 15, iBold)
grTitleFont(CHART_Exemplo1, MyFonte1)
//Definindo a Fonte Label
MyFonte2 is Font
MyFonte2 = FontCreate("Arial", 8, iNormal)
grLabelFont(CHART_Exemplo1, MyFonte2)
//Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela
MyFonte3 is Font
MyFonte3 = FontCreate("Arial", 8, iNormal)
grLegendFont(CHART_Exemplo1, MyFonte3)
//Definindo a Fonte Axis
MyFonte4 is Font
MyFonte4 = FontCreate("Arial",15, iNormal)
grAxisTitleFont(CHART_Exemplo1, MyFonte4)

grTitle(CHART_Exemplo1, "Estimativa Mensal de Producao de Energia para o ano de 2022")

grLabel(CHART_Exemplo1, grShowValue, True)
//grMask(CHART_Exemplo1,grMaskValue,"99 999 999,99 $")

//cor da linha X e Y
grColor(CHART_Exemplo1,grColorAxis,RGB(0,0,0))

//cor da borda das colunas
grColor(CHART_Exemplo1,grColorBorder,RGB(0,0,0))

//cor da linha X e Y
grColor(CHART_Exemplo1,grColorGridlines,RGB(255,255,255))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,1,"Janeiro")
grCategoryColor(CHART_Exemplo1,1,RGB(250,0,0))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,2,"Fevereiro")
grCategoryColor(CHART_Exemplo1,2,RGB(250,0,99))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,3,"Março")
grCategoryColor(CHART_Exemplo1,3,RGB(250,0,170))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,4,"Abril")
grCategoryColor(CHART_Exemplo1,4,RGB(199,0,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,5,"Maio")
grCategoryColor(CHART_Exemplo1,5,RGB(147,0,250))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,6,"Junho")
grCategoryColor(CHART_Exemplo1,6,RGB(41,0,250))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,7,"Julho")
grCategoryColor(CHART_Exemplo1,7,RGB(0,41,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,8,"Agosto")
grCategoryColor(CHART_Exemplo1,8,RGB(0,123,250))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,9,"Setembro")
grCategoryColor(CHART_Exemplo1,9,RGB(0,194,250))

grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,10,"Outubro")
grCategoryColor(CHART_Exemplo1,10,RGB(0,241,250))

grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,11,"Novembro")
grCategoryColor(CHART_Exemplo1,11,RGB(255,255,0))

grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,12,"Dezembro")
grCategoryColor(CHART_Exemplo1,12,RGB(255,199,187))

grDraw(CHART_Exemplo1)

grSaveBMP(CHART_Exemplo1,"GRAFICO.BMP")

MyImage is Image = "GRAFICO.BMP"

dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)

dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG")


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.462 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 26 2022 - 9:42 PM
// Summary: <specify the procedure action>
// Syntax:
// ConfigGrafico ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE ConfigGrafico()


//Exemplo X / Y
grCreate(CHART_Exemplo1, grColumn)
//grCreate(CHART_Exemplo1, grLine)

//Definindo a Fonte Titulo
MyFonte1 is Font
MyFonte1 = FontCreate("Arial", 15, iBold)
grTitleFont(CHART_Exemplo1, MyFonte1)
//Definindo a Fonte Label
MyFonte2 is Font
MyFonte2 = FontCreate("Arial", 8, iNormal)
grLabelFont(CHART_Exemplo1, MyFonte2)
//Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela
MyFonte3 is Font
MyFonte3 = FontCreate("Arial", 8, iNormal)
grLegendFont(CHART_Exemplo1, MyFonte3)
//Definindo a Fonte Axis
MyFonte4 is Font
MyFonte4 = FontCreate("Arial",15, iNormal)
grAxisTitleFont(CHART_Exemplo1, MyFonte4)

grTitle(CHART_Exemplo1, "Estimativa Mensal de Producao de Energia para o ano de 2022")

grLabel(CHART_Exemplo1, grShowValue, True)
//grMask(CHART_Exemplo1,grMaskValue,"99 999 999,99 $")

//cor da linha X e Y
Colorir()
grColor(CHART_Exemplo1,grColorAxis,RGB(R,G,B))

//cor da borda das colunas
Colorir()
grColor(CHART_Exemplo1,grColorBorder,RGB(R,G,B))

//cor da linha X e Y
Colorir()
grColor(CHART_Exemplo1,grColorGridlines,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,1,"Janeiro")
grCategoryColor(CHART_Exemplo1,1,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,2,"Fevereiro")
grCategoryColor(CHART_Exemplo1,2,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,3,"Março")
grCategoryColor(CHART_Exemplo1,3,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,4,"Abril")
grCategoryColor(CHART_Exemplo1,4,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,5,"Maio")
grCategoryColor(CHART_Exemplo1,5,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,6,"Junho")
grCategoryColor(CHART_Exemplo1,6,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,7,"Julho")
grCategoryColor(CHART_Exemplo1,7,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,8,"Agosto")
grCategoryColor(CHART_Exemplo1,8,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,9,"Setembro")
grCategoryColor(CHART_Exemplo1,9,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10)
grCategoryLabel(CHART_Exemplo1,10,"Outubro")
grCategoryColor(CHART_Exemplo1,10,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20)
grCategoryLabel(CHART_Exemplo1,11,"Novembro")
grCategoryColor(CHART_Exemplo1,11,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30)
grCategoryLabel(CHART_Exemplo1,12,"Dezembro")
grCategoryColor(CHART_Exemplo1,12,RGB(R,G,B))

grDraw(CHART_Exemplo1)

grSaveBMP(CHART_Exemplo1,"GRAFICO.BMP")

MyImage is Image = "GRAFICO.BMP"

dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)

dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG")


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.462 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 26 2022 - 9:48 PM
DOWNLOAD FONTE EM WEBDEV

https://repository.windev.com/resource.awp?file_id=281474976711757;exemplo-como-fazer-grafico-via-codigo-salvar-imagem-disco


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, setembro, 26 2022 - 9:49 PM