Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik

Selamat pagi menjelang siang.Pada , kesempatan kali ini saya akan memberikan tutorial mengenai cara menampilkan data pada diagram grafik dengan delphi 7.Alasannya !? Visualisasi data yang di tampilkan pada diagram grafik terlihat lebih menarik dan atraktif.Sehingga mudah untuk di transformasi menjadi informasi yang bermanfaat.Program yang akan di buat , ialah program yang menampilkan data mahasiswa.Yaitu NIM ,Nama , Jurusan , Jenis kelamin.Data tersebut diolah sedemikian rupa sehingga nantinya akan di tampilkan pada grafik.Alur programnya sebagai berikut.User menginput data -> User menyimpan data -> lalu user menampilkannya pada grafik.Lalu tunggu apa lagi !? Segera buka program borland delphi 7 anda.

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)

var
i : integer;
  nimmhs, namamhs : array [1..100] of string;
  jns_kel, bidang : array [1..100] of string;
  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:

procedure TForm1.btnSimpanClick(Sender: TObject);
begin
  if ((edNim.Text = '') or (edNama.Text = '') or (not rbLaki.Checked and not rbPerempuan.Checked) or (cbJurusan.Text = '')) then //agar semua data di isi
     begin
        Application.MessageBox('Ada Data Yang Belum Di Isi !!','Kesalahan',MB_OK or MB_ICONWARNING);
     end
  else
     begin
     i := i + 1;
     nimmhs[i] := edNim.text;
     namamhs[i] := edNama.Text;

     if rbLaki.Checked then
     begin
      jns_kel[i] := 'LAKI-LAKI';
      jml_laki2 := jml_laki2 + 1;
     end
     else if rbPerempuan.Checked then
     begin
      jns_kel[i] := 'PEREMPUAN';
      jml_perempuan := jml_perempuan + 1;
     end;

     bidang[i] := cbJurusan.Text;

     Status.Panels[0].Text := 'JUMLAH MAHASISWA = ' + inttostr(i);

     if cbJurusan.Text = 'TEKNIK INFORMATIKA' then jml_ti := jml_ti + 1
     else if cbJurusan.Text = 'MANAJEMEN INFORMATIKA' then jml_mi := jml_mi + 1
     else if cbJurusan.Text = 'TEKNIK KOMPUTER' then jml_tk := jml_tk + 1;
     end;
end;

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

procedure TForm1.btnTambahClick(Sender: TObject);
begin
     edNim.Clear;
     edNama.Clear;
     rbLaki.Checked := false;
     rbPerempuan.Checked := false;
     cbJurusan.ClearSelection;
end;

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

procedure TForm1.btnGrafikClick(Sender: TObject);
begin
    grfBatang.Series[0].Clear;
    grfBatang.Series[0].Add(jml_ti,'Mhs TI',clred);
    grfBatang.Series[0].Add(jml_mi,'Mhs MI',clblue);
    grfBatang.Series[0].Add(jml_tk,'Mhs TK',clyellow);

    grfPie.Series[0].Clear;
    grfPie.Series[0].add(jml_laki2,'Laki-laki',clred);
    grfPie.Series[0].add(jml_perempuan,'Perempuan',clyellow);
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.Bila tidak ada kesalahan harusnya pada diagram grafik muncul data tersebut.Sebagai perbandingan , silahkan download source codenya DISINI.

Sekian Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik kali ini.Semoga bermanfaat.Dan jangan lupa tunggu tutorial selanjutnya.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya: