Latihan penggunaan Control Grid dan Chart

Latihan

Buatlah Program menyajikan jumlah mahasiswa aktif masing-masing fakultas disajikan dalam bentuk tabulasi (grid) dan grafik (chart).

Desain Form

Grid dan Chart Delphi - Desain Form

Grid dan Chart Delphi - Desain Form

Pengkodean

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.Cells[0,0]:='Fakultas';
   StringGrid1.Cells[0,1]:='Teknik';
   StringGrid1.Cells[0,2]:='Ekonomi';
   StringGrid1.Cells[0,3]:='Pertanian';
   StringGrid1.Cells[0,4]:='KIP';
   StringGrid1.Cells[1,0]:='Jumlah';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   stringgrid1.Cells[1,combobox1.ItemIndex+1]:=Edit1.Text;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
   var i: integer;
begin
   for i:=1 to stringgrid1.rowcount-1 do
   chart1.Series[0].Add(strtofloat(stringgrid1.cells[1,i]),stringgrid1.cells[0,i]);
end;

Hasil Eksekusi

Grid dan Chart Delphi - Hasil Eksekusi

Grid dan Chart Delphi - Hasil Eksekusi

 Related Link

Iklan

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;

Menggunakan StringGrid pada Delphi

StringGrid merupakan komponen visual Delphi yang digunakan menyajikan data dalam bentuk lajur atau Grid. Beberapa properti yang sering digunakan dalan komponen StringGrid diantaranya:

ColCount

Properti Colcount digunakan untuk menentukan jumlah kolom pada StringGrid

RowCount

Properti RowCount  digunakan untuk menentukan jumlah baris  pada StringGrid

FixedCols

Properti FixedCols menyataka jumlah kolom tetap (kolom judul) yang berada dikolom paling kiri dari tabel. Kolom tersebut tidak akan tergulung jika pengguna melakukan scrolling secara horispntal.

FixedRows

Properti FixedRows menyatakan jumlah baris tetap (baris judul) yang berada dikolom paling atas dari tabel. Baris tersebut tidak akan tergulung jika pengguna melakukan scrolling secara vertikal.

Cells [kolom,baris]

Properti Cells [kolom,baris]  menyatakan konten  sel pada alamat [kolom, baris]. Melalui properti Cell dapat diakses data-data pada masing-masing cell. Tipe datanya berupa string sehingga data-data non string harus dikonversi dulu sebelum dimasukkan ke dalam properti ini.

Contoh Program:

Buat lah program konversi kurs dollar terhadap rupiah dengan input berupa harga per dollar dalam rupiah. Selalnjutnya dilakukan prosesi perhitungan konversi dari 1 sd 100 dollar dalam bentuk lajur. Contoh tampilannya sebagai berikut:

Tampilan Stringrid

Tampilan Stringrid

Penyelesaian:

Desain Form seperti tampilan berikut ini:

Latihan - Stringgrid

Form Stringgrid

Atur properti StringGrid1 sebagai berikut:

  • FixedCols: 0
  • ColCount: 2
  • RoowCount:101
procedure TForm1.FormCreate(Sender: TObject);
  var i:integer;
begin
   stringgrid1.Cells[0,0] := 'Dollar';
   stringgrid1.Cells[1,0] := 'Rupiah';

   for i:=1 to 100 do
      stringgrid1.Cells[0,i] := inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var hargadollar :longint;
    rupiah: longint;
    i: integer;
begin
    hargadollar:= strtoint(edit1.Text);
    for i:=1 to 100 do
       begin
         rupiah:=i*hargadollar;
         stringgrid1.Cells[1,i]:=inttostr(rupiah);
       end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 100 do
      stringgrid1.Cells[1,i] := '';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   close;
end;

Jawaban UTS Pemrograman Berorientasi Obyek

Soal 1

Buatlah program penghitungan gaji dengan input berupa: Golongan (1/2/3/4), Ada Istri/Suami (Y/T), Jumlah Anak, Jumlah Jam Lembur. Sedangkan Outputnya: Gaji Pokok, Tunjangan fungsional, Tunjangan Suami/Istri, Tunjangan Anak, Tunjangan Beras, Insentif Lembur, Total Gaji. Beberapa ketentua sebagai berikut:

  • Gaji Pokok, Tunjangan Fungsional berdasarkan Golongan
Golongan Gaji Pokok Tunjangan Fungsional
1 1000000 200000
2 1500000 350000
3 2500000 500000
4 4500000 800000
  • Jika ada Istri/Suami maka Tunjangan Suami/Istri : 500000
  • Tunjangan Anak berdasarkan Jumlah anak
Jumlah Anak Gaji Pokok
1 200000
2 500000
>= 3 800000
  • Tunjangan Beras : 200000
  • Insentif lembur dihitung berdasarkan Jumlah Jam Lembur * 20000
  • Total Gaji dihitung berdasarkan jumlahan Gaji Pokok, Tunjangan fungsional, Tunjangan Suami/Istri, Tunjangan Anak, dan Insentif Lembur. Contoh Tampilan Sebagai berikut:

Baca lebih lanjut

Latihan Delphi – Contoh If..then..else

Pada sesi ini akan dibahas contoh sederhana pernyataan percabangan menggunakan if..then..else. Perintah percabangan adalah perintah yang memungkinan suatu baris atau blok perintah dieksekusi atau tidak dieksekusi berdasarkan syarat/kondisi tertentu. Dalam Delphi dikenal 2 bentuk percabangan, yaitu:

  • If..then..else
  • Case..of..

Latihan

Buat program dengan input nilai ujian, jika nilai ujian kurang dari 60 maka hasinya tidak lulus jika lebih besar sama dengan 60 maka hasilnya lulus.
Desain form seperti gambar berikut ini:

Delphi - Contoh If then else

Delphi - Contoh If then else

Pengkodean:


procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
   hasil:string;
begin
   nilai:=strtoint(edit1.Text);
   if nilai < 60 then
      hasil:= 'Tidak lulus'
   else
      hasil:='Lulus';
 edit2.Text:= hasil;
end;

Latihan Delphi – Membuat jam Digital

Pada sesi latihan ini anda akan diperkenalkan dengan control timer yang berfungsi untuk menjalankan suatu baris atau beberapa baris perintah dalam interval secara kontinyu.  Ada 2 Properti Timer yang sering digunakan yaitu:

  • Interval, properti ini digunakan untuk mengatur selang waktu pengeksekusian perintah, nilainya menyatakan dalam ms (milisecond) atau 1/1000 detik. Sebagai contoh, jika properti interval diberi nilai 1000 maka proses eksekusinya setiap detik.
  • Enabled, properti ini berfungsi untuk mengatur apakah perintah dapat dieksekusi atau tidak. Jika bernilai True maka baris perintah akan dieksekusi. Sebaliknya jika properti Enabled ini diberi nilai False maka perintan tidak akan dieksekusi.

Untuk memudahkan pemahaman berikut ini contoh program jam digital menggunakan control Timer. Buatlah form dan letakkan sebuah control timer, label, dan button seperti pada gambar berikut ini.

Delphi - Jam Digital

Delphi - Jam Digital

Lakukan pengaturan properti pada control Timer1, Pada property Timer diisi = 1000, maksudnya agar perintah dikerjakan setiap 1 detik. Atur properti Enabled dengan True, dengan demikian perintah dapat dikerjakan begitu form dibuka.

Selanjutnya ketik pengkodeannya dengan mengklik ganda control timer1. Adapun codingya sebagai berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Label1.Caption:=formatdatetime('"Time  :"hh:mm:ss',now)
end;

Perintah tersebut akan dikerjakan berulang-ulang sesuai dengan interval waktu yang telah ditentukan.

Tambahkan kode berikut pada button1 untuk menutup form

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Close;
end;