Membuat Chart Pada Delphi


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

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

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

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

Chart Delphi - Pengaturan properti pada control chart

Pengkodean

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Title.Text.Clear;
  chart1.Title.Text.Add('Grafik Penerimaan Mahasiswa Baru')
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',clmaroon);
  Chart1.Series[0].Add(strtofloat(Edit4.Text),'2011',cllime);
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;

4 thoughts on “Membuat Chart Pada Delphi

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s