MEMBUAT CHART ANIMASI MENGGUNAKAN DELPHI

Untuk membuat chart animasi, seperti biasa kita membuat program melalui delphi..

Tambahkan button1, button 2, dbchart, dan timer..

Tambahkan listing sebagai berikut..

procedure TForm1.Timer1Timer(Sender: TObject);

var i : longint;

tmp: double; begin

with dbchart1 do

begin for i := 0 to seriescount-1 do

with series[i] do

begin

tmp := xvalues[1] - xvalues[0];

delete(0);

addxy(xvalues.last+tmp,yvalues.last+random(100)-50,'',clteecolor);

end;

repaint

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

var i,j:integer;

begin

with dbchart1 do

for i:=0 to seriescount-1 do

for j:=1 to 15 do

series[i].AddXY(j,random(100),'',clteecolor) ;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

MESSAGEDLG('132321540',MTINFORMATION,[MBOK],0);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Output programnya...