PC SOFT
ONLINE REPOSITORY
FOR WINDEVWEBDEV AND WINDEV MOBILE

Home |  | Sign in | English US
Exemplo Grafico com WINDEV feito via Código e Salvando a imagem em Disco
Published by Boller
in the category Tools
New features



Description
Exemplo Grafico com WINDEV feito via Código e Salvando a imagem em Disco

// Summary: <specify the procedure action>
// Syntax:
//ConfigGrafico ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
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) //-------------- 10 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,1,"Janeiro")
grCategoryColor(CHART_Exemplo1,1,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20) //-------------- 20 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,2,"Fevereiro")
grCategoryColor(CHART_Exemplo1,2,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30) //-------------- 30 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,3,"Março")
grCategoryColor(CHART_Exemplo1,3,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10) //-------------- 10 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,4,"Abril")
grCategoryColor(CHART_Exemplo1,4,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20) //-------------- 20 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,5,"Maio")
grCategoryColor(CHART_Exemplo1,5,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30) //-------------- 30 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,6,"Junho")
grCategoryColor(CHART_Exemplo1,6,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10) //-------------- 10 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,7,"Julho")
grCategoryColor(CHART_Exemplo1,7,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20) //-------------- 20 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,8,"Agosto")
grCategoryColor(CHART_Exemplo1,8,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30) //-------------- 30 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,9,"Setembro")
grCategoryColor(CHART_Exemplo1,9,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 10) //-------------- 10 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,10,"Outubro")
grCategoryColor(CHART_Exemplo1,10,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 20) //-------------- 20 é o valor a trocar
grCategoryLabel(CHART_Exemplo1,11,"Novembro")
grCategoryColor(CHART_Exemplo1,11,RGB(R,G,B))

Colorir()
grAddData(CHART_Exemplo1, 1, 30) //-------------- 30 é o valor a trocar
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")


//------------------------------------------------------------------------------------------------------------------


PROCEDURE Colorir()

// Initialize random number generator
InitRandom()
rRandomNumber1, rRandomNumber2, rRandomNumber3 is real
rRandomNumber1 = Random()*100
IF rRandomNumber1 > 255 THEN
rRandomNumber1 = 255
END
rRandomNumber2 = Random()*100
IF rRandomNumber2 > 255 THEN
rRandomNumber2 = 255
END
rRandomNumber3 = Random()*100
IF rRandomNumber3 > 255 THEN
rRandomNumber3 = 255
END
R = IntegerPart(rRandomNumber1)
G = IntegerPart(rRandomNumber2)
B = IntegerPart(rRandomNumber3)

//-------------------------------------------------------------------------------------------------------


// Summary: <specify the procedure action>
// Syntax:
//ConfigGrafico ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE ConfigGrafico()

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
none
none
User reviews
(To evaluate this resource, click 'Write a review')
No review or comment? Be the first one!