|
EXEMPLO DE COMO FAZER UM GRAFICO COM WX |
Iniciado por Boller, set., 26 2022 9:41 PM - 3 respostas |
| |
| | | |
|
| |
Membro registado 3.657 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.657 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.657 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.657 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 |
| |
| |
| | | |
|
| | | | |
| | |
|