Memanfaatkan Komponen Chart Pada Delphi

Didalam Delphi terdapat banyak komponen yang bisa digunakan. Salah satunya adalah komponen Tchart, kali ini saya akan memnuat contoh proram yang memanfaatkan komponen Tchart tersebut. Dan komponen itu sendiri terletak pada tab Additional. Seperti gambar dibawah ini

Langkah pertama yang harus dilakukan adalah, buatlah form seperti yang ada dibawah ini;

Aturlah propertienya seperti dibawah ini

Obyek/Control	Properti	Nilai
Form	Caption	Grafik Pengunjung Perpustakaan FST UTY
Label1	Caption	2008
	Caption	2009
	Caption	2010
	Caption	2011
BitBtn1	Kind	bkOK
BitBtn2	Kind	bkCancel
BitBtn2	Kind	bkClose

untuk pengaturan properti pada Chart, ikuti langkah berikut:

• klik kanan control chart.

• Klik tab Series
• Klik tombol Add
• Klik tipe Bar chart
• Klik Ok

Dan di bawah ini adalah syntax dari program ini...

procedure TForm1.FormCreate(Sender: TObject);

begin

  Chart1.Title.Text.Clear;

  Chart1.Title.Text.Add('Grafik Pengunjung Perpustakaan FST UTY');

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  Chart1.Series[0].Clear;

  Chart1.Series[0].Add(StrToFloat(Edit1.Text),'2008',clRed);

  Chart1.Series[0].Add(StrToFloat(Edit2.Text),'2009',clYellow);

  Chart1.Series[0].Add(StrToFloat(Edit3.Text),'2010',clGreen);

  Chart1.Series[0].Add(StrToFloat(Edit4.Text),'2011',clBlue);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

  Chart1.Series[0].Clear;

  Edit1.Text:=' ';

  Edit2.Text:=' ';

  Edit3.Text:=' ';

  Edit4.Text:=' ';

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

  Close;

end;

Setelah selesai semuanya running programnya.

Selamat mencoba,,, semoga artikel ini bermanfaat  ^_^....