Langkah Mudah Untuk Membuat Delphi Chart

Sesi kali ini akan membahas bagaimana membuat char pada Delphi. Control Chart terletak pada tab Additional, seperti tersaji pada gambar berikut ini

letak control chart

Latihan

Untuk memudahkan pemahaman akan diberikan Latihan  pemaanfaatan chart. Akan dibuat program yang menyajikan grafik penerimaan mahasiswa baru berdasarkan data inputan yang terdiri dari empat tahun: 2008, 2009, 2010 dan 2011. Contoh keluaran dapat dilihat pada gambar dibawah ini.

Contoh Latihan Penggunaan Chart dalam Delphi

Desain Form

Desainlah form dengan meletakkan control-control sebagai berikut:
Letakkan 4 Control label, 4 control EditBox, 3 Control Bitbutton (terletak pada tab Additional), control  Chart

Chart Delphi - Desain Form

Pengaturan Properti

Obyek/Control	Properti	Nilai
Form	Caption	Grafik Penerimaan Mahasiswa Baru
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

Chart Delphi - Pengaturan properti pada control chart

Pengkodean

view sourceprint?

01	procedure TForm1.FormCreate(Sender: TObject);

02

begin

03	Chart1.Title.Text.Clear;

04	chart1.Title.Text.Add('Grafik Penerimaan Mahasiswa Baru')

05

end;

06

07	procedure TForm1.BitBtn1Click(Sender: TObject);

08

begin

09	Chart1.Series[0].clear;

10	Chart1.Series[0].Add(strtofloat(Edit1.Text),'2008',clred);

11	Chart1.Series[0].Add(strtofloat(Edit2.Text),'2009',clyellow);

12	Chart1.Series[0].Add(strtofloat(Edit3.Text),'2010',clmaroon);

13	Chart1.Series[0].Add(strtofloat(Edit4.Text),'2011',cllime);

14

end;

15

16	procedure TForm1.BitBtn2Click(Sender: TObject);

17

begin

18	Chart1.Series[0].clear;

19	Edit1.Text :='';

20	Edit2.Text :='';

21	Edit3.Text :='';

22	Edit4.Text :='';

23

end;

24

25	procedure TForm1.BitBtn3Click(Sender: TObject);

26

begin

27

Close;

28

end;

Posted in: Tutorial Delphi