|
| EXEMPLO DE COMO FAZER UM GRAFICO COM WX |
| Débuté par Boller, 26 sep. 2022 21:41 - 3 réponses |
| |
| | | |
|
| |
Membre enregistré
3 655 messages
Popularité : +175 (223 votes) |
|
Posté le 26 septembre 2022 - 21:41 |
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/ |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
3 655 messages
Popularité : +175 (223 votes) |
|
Posté le 26 septembre 2022 - 21:41 |
// 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/ |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
3 655 messages
Popularité : +175 (223 votes) |
|
Posté le 26 septembre 2022 - 21:42 |
// 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/ |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
3 655 messages
Popularité : +175 (223 votes) |
|
Posté le 26 septembre 2022 - 21:48 |
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/Message modifié, 26 septembre 2022 - 21:49 |
| |
| |
| | | |
|
| | | | |
| | |
|