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:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

batang

Diagram