|
Exemplo Grafico com WEBDEV feito via Código e Salvando a imagem em Disco
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") |
| |
| |
| Illustrations, screen shots |
|
| |
(To evaluate this resource, click 'Write a review') |
| | | |
No review or comment? Be the first one! |
// Summary: <specify the procedure action> // Syntax: //ConfigGrafico () // // Parameters: // None // Example: // <Specify a usage example> // // Return value: PROCEDURE ConfigGrafico()
//Exemplo X / Y grCreate(CHART_CANDIDATOS, grColumn) //grCreate(CHART_Exemplo1, grLine)
//Definindo a Fonte Titulo MyFonte1 is Font MyFonte1 = FontCreate("Arial", 15, iBold) grTitleFont(CHART_CANDIDATOS, MyFonte1) //Definindo a Fonte Label MyFonte2 is Font MyFonte2 = FontCreate("Arial", 8, iNormal) grLabelFont(CHART_CANDIDATOS, MyFonte2) //Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela MyFonte3 is Font MyFonte3 = FontCreate("Arial", 8, iNormal) grLegendFont(CHART_CANDIDATOS, MyFonte3) //Definindo a Fonte Axis MyFonte4 is Font MyFonte4 = FontCreate("Arial",15, iNormal) grAxisTitleFont(CHART_CANDIDATOS, MyFonte4)
grTitle(CHART_CANDIDATOS, "Estimativa das Eleições dos candidatos a Presidente de 2022")
grLabel(CHART_CANDIDATOS, grShowValue, True) //grMask(CHART_CANDIDATOS,grMaskValue,"99 999 999,99 $")
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorAxis,RGB(0,0,0))
//cor da borda das colunas grColor(CHART_CANDIDATOS,grColorBorder,RGB(0,0,0))
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorGridlines,RGB(0,0,0))
VOTOS_LULA, VOTOS_BOLSONARO, VOTOS_BRANCOS_NULOS is 8-bytes int
//LULA QRY_Total_Geral_Zona_Sessao.ParamCandidato = 13 QRY_Total_Geral_Zona_Sessao.ParamZona = EDT_ZONA QRY_Total_Geral_Zona_Sessao.ParamSessao = EDT_SESSAO IF HExecuteQuery(QRY_Total_Geral_Zona_Sessao,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona_Sessao VOTOS_LULA = QRY_Total_Geral_Zona_Sessao.Total_Votacao END END
//BOLSONARO QRY_Total_Geral.ParamCandidato = 22 QRY_Total_Geral_Zona_Sessao.ParamZona = EDT_ZONA QRY_Total_Geral_Zona_Sessao.ParamSessao = EDT_SESSAO IF HExecuteQuery(QRY_Total_Geral_Zona_Sessao,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona_Sessao VOTOS_BOLSONARO = QRY_Total_Geral_Zona_Sessao.Total_Votacao END END
//BRANCOS E NULOS QRY_Total_Geral.ParamCandidato = 0 QRY_Total_Geral_Zona_Sessao.ParamZona = EDT_ZONA QRY_Total_Geral_Zona_Sessao.ParamSessao = EDT_SESSAO IF HExecuteQuery(QRY_Total_Geral_Zona_Sessao,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona_Sessao VOTOS_BRANCOS_NULOS = QRY_Total_Geral_Zona_Sessao.Total_Votacao END END
grAddData(CHART_CANDIDATOS, 1, VOTOS_LULA) grCategoryLabel(CHART_CANDIDATOS,1,"LULA") grCategoryColor(CHART_CANDIDATOS,1,RGB(255,0,0))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BOLSONARO) grCategoryLabel(CHART_CANDIDATOS,2,"BOLSONARO") grCategoryColor(CHART_CANDIDATOS,2,RGB(0,0,255))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BRANCOS_NULOS) grCategoryLabel(CHART_CANDIDATOS,3,"BRANCOS E NULOS") grCategoryColor(CHART_CANDIDATOS,3,RGB(255,255,255))
grDraw(CHART_CANDIDATOS)
grSaveBMP(CHART_CANDIDATOS,"GRAFICO.BMP")
MyImage is Image = "GRAFICO.BMP"
dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)
dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG") |
| // Summary: <specify the procedure action> // Syntax: //ConfigGrafico () // // Parameters: // None // Example: // <Specify a usage example> // // Return value: PROCEDURE ConfigGrafico()
//Exemplo X / Y grCreate(CHART_CANDIDATOS, grColumn) //grCreate(CHART_Exemplo1, grLine)
//Definindo a Fonte Titulo MyFonte1 is Font MyFonte1 = FontCreate("Arial", 15, iBold) grTitleFont(CHART_CANDIDATOS, MyFonte1) //Definindo a Fonte Label MyFonte2 is Font MyFonte2 = FontCreate("Arial", 8, iNormal) grLabelFont(CHART_CANDIDATOS, MyFonte2) //Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela MyFonte3 is Font MyFonte3 = FontCreate("Arial", 8, iNormal) grLegendFont(CHART_CANDIDATOS, MyFonte3) //Definindo a Fonte Axis MyFonte4 is Font MyFonte4 = FontCreate("Arial",15, iNormal) grAxisTitleFont(CHART_CANDIDATOS, MyFonte4)
grTitle(CHART_CANDIDATOS, "Estimativa das Eleições dos candidatos a Presidente de 2022 - Total pela Zona Eleitoral")
grLabel(CHART_CANDIDATOS, grShowValue, True) //grMask(CHART_CANDIDATOS,grMaskValue,"99 999 999,99 $")
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorAxis,RGB(0,0,0))
//cor da borda das colunas grColor(CHART_CANDIDATOS,grColorBorder,RGB(0,0,0))
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorGridlines,RGB(0,0,0))
VOTOS_LULA, VOTOS_BOLSONARO, VOTOS_BRANCOS_NULOS is 8-bytes int
//LULA QRY_Total_Geral_Zona.ParamCandidato = 13 QRY_Total_Geral_Zona.ParamZona = EDT_ZONA IF HExecuteQuery(QRY_Total_Geral_Zona,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona VOTOS_LULA = QRY_Total_Geral_Zona.Total_Votacao END END
//BOLSONARO QRY_Total_Geral.ParamCandidato = 22 QRY_Total_Geral_Zona.ParamZona = EDT_ZONA IF HExecuteQuery(QRY_Total_Geral_Zona,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona VOTOS_BOLSONARO = QRY_Total_Geral_Zona.Total_Votacao END END
//BRANCOS E NULOS QRY_Total_Geral_Zona.ParamCandidato = 0 QRY_Total_Geral_Zona.ParamZona = EDT_ZONA IF HExecuteQuery(QRY_Total_Geral_Zona,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral_Zona VOTOS_BRANCOS_NULOS = QRY_Total_Geral_Zona.Total_Votacao END END
grAddData(CHART_CANDIDATOS, 1, VOTOS_LULA) grCategoryLabel(CHART_CANDIDATOS,1,"LULA") grCategoryColor(CHART_CANDIDATOS,1,RGB(255,0,0))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BOLSONARO) grCategoryLabel(CHART_CANDIDATOS,2,"BOLSONARO") grCategoryColor(CHART_CANDIDATOS,2,RGB(0,0,255))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BRANCOS_NULOS) grCategoryLabel(CHART_CANDIDATOS,3,"BRANCOS E NULOS") grCategoryColor(CHART_CANDIDATOS,3,RGB(255,255,255))
grDraw(CHART_CANDIDATOS)
grSaveBMP(CHART_CANDIDATOS,"GRAFICO.BMP")
MyImage is Image = "GRAFICO.BMP"
dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)
dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG") |
| // Summary: <specify the procedure action> // Syntax: //ConfigGrafico () // // Parameters: // None // Example: // <Specify a usage example> // // Return value: PROCEDURE ConfigGrafico()
//Exemplo X / Y grCreate(CHART_CANDIDATOS, grColumn) //grCreate(CHART_Exemplo1, grLine)
//Definindo a Fonte Titulo MyFonte1 is Font MyFonte1 = FontCreate("Arial", 15, iBold) grTitleFont(CHART_CANDIDATOS, MyFonte1) //Definindo a Fonte Label MyFonte2 is Font MyFonte2 = FontCreate("Arial", 8, iNormal) grLabelFont(CHART_CANDIDATOS, MyFonte2) //Definindo a Fonte Legenda ---- foi removida do grafico com botao direito sobre ela MyFonte3 is Font MyFonte3 = FontCreate("Arial", 8, iNormal) grLegendFont(CHART_CANDIDATOS, MyFonte3) //Definindo a Fonte Axis MyFonte4 is Font MyFonte4 = FontCreate("Arial",15, iNormal) grAxisTitleFont(CHART_CANDIDATOS, MyFonte4)
grTitle(CHART_CANDIDATOS, "Estimativa das Eleições dos candidatos a Presidente de 2022")
grLabel(CHART_CANDIDATOS, grShowValue, True) //grMask(CHART_CANDIDATOS,grMaskValue,"99 999 999,99 $")
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorAxis,RGB(0,0,0))
//cor da borda das colunas grColor(CHART_CANDIDATOS,grColorBorder,RGB(0,0,0))
//cor da linha X e Y grColor(CHART_CANDIDATOS,grColorGridlines,RGB(0,0,0))
VOTOS_LULA, VOTOS_BOLSONARO, VOTOS_BRANCOS_NULOS is 8-bytes int
//LULA QRY_Total_Geral.ParamCandidato = 13 IF HExecuteQuery(QRY_Total_Geral,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral VOTOS_LULA = QRY_Total_Geral.Total_Votacao END END
//BOLSONARO QRY_Total_Geral.ParamCandidato = 22 IF HExecuteQuery(QRY_Total_Geral,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral VOTOS_BOLSONARO = QRY_Total_Geral.Total_Votacao END END
//BRANCOS E NULOS QRY_Total_Geral.ParamCandidato = 0 IF HExecuteQuery(QRY_Total_Geral,hQueryDefault) = True THEN FOR EACH QRY_Total_Geral VOTOS_BRANCOS_NULOS = QRY_Total_Geral.Total_Votacao END END
grAddData(CHART_CANDIDATOS, 1, VOTOS_LULA) grCategoryLabel(CHART_CANDIDATOS,1,"LULA") grCategoryColor(CHART_CANDIDATOS,1,RGB(255,0,0))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BOLSONARO) grCategoryLabel(CHART_CANDIDATOS,2,"BOLSONARO") grCategoryColor(CHART_CANDIDATOS,2,RGB(0,0,255))
grAddData(CHART_CANDIDATOS, 1, VOTOS_BRANCOS_NULOS) grCategoryLabel(CHART_CANDIDATOS,3,"BRANCOS E NULOS") grCategoryColor(CHART_CANDIDATOS,3,RGB(255,255,255))
grDraw(CHART_CANDIDATOS)
grSaveBMP(CHART_CANDIDATOS,"GRAFICO.BMP")
MyImage is Image = "GRAFICO.BMP"
dSaveImageJPEG(MyImage,inMemory,100,imgProgressiveJPEG)
dSaveImageJPEG(MyImage, fCurrentDir()+fSep()+"GRAFICO.JPG") |
| // 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/ |
| https://forum.pcsoft.fr/en-US/pcsoft.br.windev/3963-exemplo-como-fazer-grafico-com-3965/read.awp |
| | |
|