Sistema de Gráficos (Delphi)

Rá, mais um programa :)

Desta vez é um sistema de gráficos para computar dados sobre a gripe suína (A ideia não foi minha).

Eu havia escrito um texto lindo e magnífico - modéstia à parte - protagonizando Alice e Matt, mas o IE (sim, estou usando IE) deu uma bela travada e eu perdi meu precioso trabalho, porque o Blogger recusou-se a salvar. Imaginem a desgraça.

Dramas à parte, segue o código para o programa:
 unit Unit_swine_flu; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart, StdCtrls, ArrowCha, TeeShape, BubbleCh, GanttCh; type TForm1 = class(TForm) Edit1: TEdit; Edit3: TEdit; Edit7: TEdit; Edit5: TEdit; Edit9: TEdit; Edit11: TEdit; Edit12: TEdit; Edit10: TEdit; Edit8: TEdit; Edit6: TEdit; Edit4: TEdit; Edit2: TEdit; Label3: TLabel; Label4: TLabel; Button1: TButton; Chart2: TChart; Series2: TLineSeries; Chart3: TChart; Series3: TPieSeries; Chart4: TChart; Series4: THorizBarSeries; Chart6: TChart; Series6: TArrowSeries; Chart7: TChart; Chart8: TChart; Series8: THorizAreaSeries; Chart9: TChart; Series9: THorizLineSeries; Chart5: TChart; Series5: TAreaSeries; Chart1: TChart; Series1: TBarSeries; Series7: TPointSeries; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; RadioButton5: TRadioButton; RadioButton6: TRadioButton; RadioButton7: TRadioButton; RadioButton8: TRadioButton; RadioButton9: TRadioButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure js_voi_limpar_graficos(); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure js_voi_limpar_dados(); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.js_voi_limpar_dados(); begin self.edit1.text:= ''; self.edit2.text:= ''; self.edit3.text:= ''; self.edit4.text:= ''; self.edit5.text:= ''; self.edit6.text:= ''; self.edit7.text:= ''; self.edit8.text:= ''; self.edit9.text:= ''; self.edit10.text:= ''; self.edit11.text:= ''; self.edit12.text:= ''; end; procedure TForm1.Button2Click(Sender: TObject); begin js_voi_limpar_graficos(); end; procedure TForm1.Button3Click(Sender: TObject); begin js_voi_limpar_dados(); end; procedure TForm1.FormCreate(Sender: TObject); begin js_voi_limpar_graficos(); end; procedure TForm1.js_voi_limpar_graficos(); begin self.chart1.Visible:=false; self.chart2.Visible:=false; self.chart3.Visible:=false; self.chart4.Visible:=false; self.chart5.Visible:=false; self.chart6.Visible:=false; self.chart7.Visible:=false; self.chart8.Visible:=false; self.chart9.Visible:=false; end; procedure TForm1.Button1Click(Sender: TObject); var js_flo_valor : real; begin js_voi_limpar_graficos(); self.Chart1.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart1.Series[0].Add(js_flo_valor, self.edit11.text, clblack); self.Chart2.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart2.Series[0].Add(js_flo_valor, self.edit11.text, clblack); self.Chart3.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart3.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart4.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart4.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart5.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart5.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart6.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart6.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart7.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart7.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart8.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart8.Series[0].Add(js_flo_valor, self.edit11.text, clteal); self.Chart9.Series[0].Clear(); js_flo_valor:= strtofloat(self.edit2.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit1.text, clblue); js_flo_valor:= strtofloat(self.edit4.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit3.text, clred); js_flo_valor:= strtofloat(self.edit6.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit5.text, clyellow); js_flo_valor:=strtofloat(self.edit8.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit7.text, clpurple); js_flo_valor:=strtofloat(self.edit10.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit9.text, clwhite); js_flo_valor:=strtofloat(self.Edit12.text); self.Chart9.Series[0].Add(js_flo_valor, self.edit11.text, clteal); if (self.RadioButton1.Checked=true) then self.chart1.visible:=true; if (self.RadioButton7.checked=true) then self.Chart4.visible:=true; if (self.RadioButton3.checked=true) then self.Chart2.visible:=true; if (self.RadioButton8.checked=true) then self.Chart5.visible:=true; if (self.RadioButton6.checked=true) then self.Chart9.visible:=true; if (self.RadioButton4.checked=true) then self.Chart8.visible:=true; if (self.RadioButton5.checked=true) then self.Chart7.visible:=true; if (self.RadioButton9.checked=true) then self.Chart6.visible:=true; if (self.RadioButton2.checked=true) then self.Chart3.visible:=true; end; end.

Imagens (os dados utilizados são fictícios):

Por enquanto é isso, mais tarde - ou outro dia - eu volto e posto o texto que o Blogger não quis salvar :<

Frase famosa!

 "É bem melhor pensar sem falar do que falar sem pensar." - Jô Soares

Trilha sonora ♪

"Onde foi que eu errei? 

Batendo de frente com a diferença 

Entre eu e o mundo"

Me vs. The World (Madina Lake)

Beijos, tenham juízo.