Menampilkan Data pada Grafik TChart Delphi

11 11 2009

Setelah beberapa hari dihadapkan dengan beberapa persoalan non-akademis yang saya rasa tidak ada gunanya dan membuang tenaga serta pikiran (Mode Congkak = ON), akhirnya saya putuskan untuk membuat tulisan ini sebagai penghilang rasa sumpek. dari judul diatas saya rasa sudah banyak di temukan pada web-web maupun blog-blog teman delphiers lainnya. Pada tulisan ini akan ditunjukkan bagaimana manampilkan sebuah data (Misalnya: data perhitungan) kedalam sebuah interface grafik. Dengan menggunakan komponen TChart yang berada pada pallet komponen additional delphi, maka dapat dilihat tampilan grafiknya.

Sekian basa-basi dan pendahuluannya yang diselingi beberapa baris curhat kecil, berikutnya akan langsung ke langkah pembuatan programnya.

Langkah :

  • Buka Delphi anda (saya menggunakan Versi 6)
  • Letakkan komponen 1 chart dan 1 button ke form.
  • Double klik pada komponen chart, sehingga anda dapat melihat tampilan dialog box untuk mengkonfigurasi chart sesuai dengan keinginan anda.
  • Klik tombol ”add” pada tab series, kemudian pilih tampilan grafik (bar, line, pie, dlsb..) yang ada pada tampilan tersebut.

Setelah langkah diatas terpenuhi, kemudian kita menuju ke proses pembuatannya:

procedure TForm1.Button1Click(Sender: TObject);
begin

    Chart1.Series[0].AddXY(10, 20, '', clblue);
    Chart1.Series[0].AddXY(15, 50, '', clblue);
    Chart1.Series[0].AddXY(20, 30, '', clblue);
    Chart1.Series[0].AddXY(25, 70, '', clblue);
    Chart1.Series[0].AddXY(30, 10, '', clblue);
    Chart1.Series[0].AddXY(35, 50, '', clblue);
    Chart1.Series[0].AddXY(40, 45, '', clblue);
    Chart1.Series[0].AddXY(45, 10, '', clblue);

end;

keterangan:

Chart1.Series[0].AddXY(10, 20, '', clblue);

function AddXY(Const AXValue, AYValue: Double;
Const AXLabel: String; AColor: TColor) : Longint;

Fungsi diatas akan memberikan nilai X=10 dan nilai Y=20, labelnya dapat kita kosongkan dan memberi warna biru (pada contoh), untuk source code diatas kita sudah menentukan nilainya X dan Y melalui source code nya. Misalkan data tersebut berada pada komponen “edit” maka kita memerlukan sedikit modifikasi pada source code tersebut, sehingga menjadi:

Chart1.Series[0].AddXY(strtofloat(edit1.text), strtofloat(edit2.text), '', clblue);

Dilihat dari source tsb, maka kita hanya perlu mengkonversi type datanya yang ada di komponen edit.

Sekian tullisan yang sangat sederhana ini, semoga dapat bermanfaat bagi teman-teman yang membutuhkan. Mohon maaf bila ada kata-kata yang kurang berkenan dan bila ada kesalahan mohon koreksinya. Untuk screenshoot dan contoh programnya menyusul, karena warnetnya ga diinstall delphi, jadi ga bisa terkondisi dengan baik, hehehe…………….

Sekian dan Terimakasih.


Actions

Information

4 responses

17 11 2009
nia

kalo chartnya berdasrkan database gimana source code nya ??? tanks mastr delphi

17 11 2009
heru widakdo

kalo grafik dan berhubungan dengan database, mgkn bisa pakai komponen dbchart. silahkan dicoba dahulu, kalo ada kesulitan mgkn bisa diselesaikan bersama….saya jg msh belajar kok…..

16 03 2011
Ajay

Mas, mau nanya nih.
Untuk timer:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;

klo sumbu x dari timer gimana ya caranya, apakah seperti ini (tapi error)
….
….
addxy(timetostr(time),strtofloat(edit2.text),”,clblue);
….

Tolong dibantu

22 03 2011
bayu

kalau mw ngebuat gelombang sinus d chart apa instruksi nya?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: