Program Animasi Grafik Delphi 7

Program ini iseng muncul ketika Ki Sableng belajar plot data pada grafik...heee...ya cuma mainan aja ini, tapi bisa diambil potongannya juga buat aplikasi tertentu...heeeee,,,o iya maap lagi2 ndeso dan katrok...Grafiknya bisa di set 2 dimensi atau 3 dimensi,,,tapi ya cuma ngono iku,koyok dolanan bocah cilik..heeee

Software yang dipakai adalah Borland Delphi 7, langsung aj lah, ini dia form yan saya buat....

Komponen yang saya gunakan adalah :

TForm1 = class(TForm)
    Timer1: TTimer;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Chart1: TChart;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

Saya mendefinisikan variabel ini :

Form1: TForm1;
  x:integer;
  y1,y2:extended;

Prosedur Timer saya isi ini :

procedure TForm1.Timer1Timer(Sender: TObject);
var t: longint;
    y: array[1..2] of extended;
begin
  y[1]:=5*sin(pi*x/180);
  y[2]:=5*cos(2*pi*x/180);
  x:=x+1;
  timer1.Enabled:=false;
  for t:= 0 to chart1.SeriesCount-1 do
  with chart1.Series[t] do add (y[t+1],'',clteecolor);
  with chart1.BottomAxis do
  begin
    automatic := false;
    maximum := series1.XValues.Last;
    minimum := maximum - 100;
  end;
  timer1.Enabled:=true;
end;

Prosedur checkbox1 ini :

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
  begin
    timer1.Enabled:=true;
  end else
  begin
    timer1.Enabled:=false;
  end;
end;

Prosedur checkbox2 ini :

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if checkbox2.Checked then
  chart1.View3D:=true
  else
  chart1.View3D:=false;
end;

Prosedur button1 ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate
end;

Ini dia video hasilnya....maap ndeso

Yahhh....semoga bermanfaat lah...

Salam damai....senajan kenthir nanging kebak pikir......