Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik

Borland Delphi merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi untuk mengolah teks, grafik, angka, database dan aplikasi web. Program ini mempunyai kemampuan luas yang terletak pada produktifitas, kualitas, pengembangan perangkat lunak, kecepatan kompilasi, pola desain yang menarik serta bahasa pemrogramannya terstruktur dan lengkap. Fasilitas pemrograman dibagi dalam dua kelompok yaitu object dan bahasa pemrograman.

Buat aplikasi baru lalu tambahkan komponen berikut kedalam form1:

Komponen	Properties	Keterangan
TEdit	Name:edNim , text:(kosongkan)	-
TEdit	Name:edNama,text(kosongkan)	-
TRadioButton	Name:rbLaki , caption:laki-laki	-
TRadioButton	Name:rbPerempuan , Caption:Perempuan	-
TComboBox	Name:cbBidangStudi , text:(kosongkan)	Isi itemnya dengan: -Tekhnik Informatika -Manajemen Informatika -Teknik Komputer
TButton	Name:btnSimpan , caption :Simpan Data
TButton	Name:btnTambah , caption:Tambah Data
TButton	Name:btnGrafik , caption:Tampilkan Grafik
TChart	Name:grfBatang	Double klik , pilih tab series , tekan add dan pilih jenisnya bar
TChart	Name:grfPie	Double klik , pilih tab series , tekan add dan pilih jenisnya pie
TStausBar	Name:status

Jangan lupa tambahkan 4 buah komponen label dan rubah captionnya serta susun sesuai gambar di bawah ini :

Tambahkan variabel berikut pada klausa var (diatas implementation)

1. var  
2. i : integer;  
3.   nimmhs, namamhs : array [1..100] of string;  
4.   jns_kel, bidang : array [1..100] of string;  
5.   jml_ti, jml_mi, jml_tk, jml_laki2, jml_perempuan : real;  

Variabel diatas berfungsi untuk penyimpanan data sementara yang nantinya akan di tampikan ke grafik.Double-klik button simpan dan tambahkan kode berikut:

 

1. procedure TForm1.btnSimpanClick(Sender: TObject);  
2. begin  
3.   if ((edNim.Text = '') or (edNama.Text = '') or (not rbLaki.Checked and not rbPerempuan.Checked) or (cbJurusan.Text = '')) then //agar semua data di isi  
4.      begin  
5.         Application.MessageBox('Ada Data Yang Belum Di Isi !!','Kesalahan',MB_OK or MB_ICONWARNING);  
6.      end  
7.   else  
8.      begin  
9.      i := i + 1;  
10.      nimmhs[i] := edNim.text;  
11.      namamhs[i] := edNama.Text;  
12.   
13.      if rbLaki.Checked then  
14.      begin  
15.       jns_kel[i] := 'LAKI-LAKI';  
16.       jml_laki2 := jml_laki2 + 1;  
17.      end  
18.      else if rbPerempuan.Checked then  
19.      begin  
20.       jns_kel[i] := 'PEREMPUAN';  
21.       jml_perempuan := jml_perempuan + 1;  
22.      end;  
23.   
24.      bidang[i] := cbJurusan.Text;  
25.   
26.      Status.Panels[0].Text := 'JUMLAH MAHASISWA = ' + inttostr(i);  
27.   
28.      if cbJurusan.Text = 'TEKNIK INFORMATIKA' then jml_ti := jml_ti + 1  
29.      else if cbJurusan.Text = 'MANAJEMEN INFORMATIKA' then jml_mi := jml_mi + 1  
30.      else if cbJurusan.Text = 'TEKNIK KOMPUTER' then jml_tk := jml_tk + 1;  
31.      end;  
32. end;  

Kode di atas berfungsi untuk menambahkan data pada variabel array yang telah di inisialisasi sebelumnya.Double-klik button tambah dan ketikan kode berikut:

1. procedure TForm1.btnTambahClick(Sender: TObject);  
2. begin  
3.      edNim.Clear;  
4.      edNama.Clear;  
5.      rbLaki.Checked := false;  
6.      rbPerempuan.Checked := false;  
7.      cbJurusan.ClearSelection;  
8. end;  

Berfungsi untuk membersihkan input pada edit dan komponen lainnya.Double-klik button tampilkan Grafik dan ketikan kode berikut.

1. procedure TForm1.btnGrafikClick(Sender: TObject);  
2. begin  
3.     grfBatang.Series[0].Clear;  
4.     grfBatang.Series[0].Add(jml_ti,'Mhs TI',clred);  
5.     grfBatang.Series[0].Add(jml_mi,'Mhs MI',clblue);  
6.     grfBatang.Series[0].Add(jml_tk,'Mhs TK',clyellow);  
7.   
8.     grfPie.Series[0].Clear;  
9.     grfPie.Series[0].add(jml_laki2,'Laki-laki',clred);  
10.     grfPie.Series[0].add(jml_perempuan,'Perempuan',clyellow);  
11. end;  

Kode di atas berfungsi untuk menampilkan data yang telah di input kedalam diagram grafik.Coba jalankan program anda lalu input data.Tekan simpan lalu coba tekan tampilkan grafik.


 

Share on Google Plus

About Unknown

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.