Contoh Program Pada Aplikasi Delphi untuk Latihan

Dalam belajar programming, Anda sangat wajib untuk mempelajari macam-macam bahasa pemrograman. Agar Anda mahir, Anda harus sering latihan. Cara latihannya gimana? Yah dengan mencoba mempraktekkan program-program yang sudah ada. Jika sudah dipraktekkan, pelajari program tersebut agar Anda paham.

Salah satu bahasa pemrograman yang banyak digunakan oleh programmer adalah Delphi. Delphi adalah bahasa pemrograman untuk pengembangan aplikasi konsol, desktop, web, maupun perangkat mobile. Delphi awalnya dikembangkan oleh CodeGear sebagai divisi pengembangan software milik Embarcadero, dimana sebelumnya divisi tersebutadalah milik Borland. Pada mulanya, Delphi ditujukan hanya untuk OS Microsoft Windows saja, namun sekarang ini Delphi bisa digunakan untuk mengembangkan aplikasi di jenis sistem operasi komputer lainnya, seperti Mac OS X, iOS, dan Android. Kelebihan dan kekurangan bahasa pemrograman generasi ke-4 juga dimiliki oleh bahasa pemrograman ini.

Pada artikel kali ini, kami akan memberikan beberapa contoh program Delphi yang bisa menjadi bahan latihan Anda dalam programming. Berikut ini adalah beberapa contoh yang bisa kami berikan untuk Anda:

1. Program Menghitung Gaji Pegawai

Ketentuan dari program yang akan dibuat adalah sebagai berikut:
Besar gaji pokok:
Direktur=5000000;
Manajer=3000000;
Karyawan=2000000
Besar tunjangan:
Tetap=1000000;
Honorer=500000
Rumus gaji bersih = Gaji pokok+tunjangan


Berikut ini adalah tampilan dari form-form di dalam program ini:

Properti dari tiap obyek di form dijelaskan dalam tabel berikut:

Objek	Name	Caption
Form1	frmgaji	Form Hitung Gaji
Label1	Label1	Menghitung Gaji Pegawai
Label2	Label2	Nama
Label3	Label3	Jabatan
Label4	Label4	Gaji pokok
Label5	Label5	Tunjangan
Label6	Label6	Gaji Bersih
GroupBox1	GroupBox1	Status
RadioButton1	RbHonorer	Honorer
RadioButton2	RbTetap	Tetap
Button1	Bthitung	hitung
Button2	Btinput	Input Lagi
Button3	BtSelesai	Selesai

obyek	Name	Text
Edit1	ednama	–
Edit2	edgajipokok	–
Edit3	edtunjangan	–
Edit4	edgajibersih	–
ComboBox1	cbjabatan	–

Berikut ini adalah listing dari programnya. Kami bagi menjadi beberapa bagian berdasarkan obyeknya:

• Combo Box

Sebelum ke bagian program, isi dahulu daftar jabatannya yang akan dipilih di combo box. Untuk mengisinya ada dua cara., yaitu diubah di Object Properties-nya, dan juga lewat program

Untuk cara pertama, masuklah ke Object Inspector > Properties > Items. Lalu, tuliskan nama-nama jabatannya di String List Editor. Jika sudah, klik OK.

Sedangkan untuk cara kedua, lakukan double klik pada form, lalu ketikkan program berikut:

procedure Tfrmgaji.FormCreate(Sender: TObject);

begin
   cbjabatan.Items.Add (‘Direktur’);
   cbjabatan.Items.Add (‘Manager’ );
   cbjabatan.Items.Add(‘Karyawan’)
end;

Menampilkan Gaji Pokok berdasarkan Data di Combo Box

• Aktifkan combo box(cbjabatan)
• Pada Object Inspector, pilih tab “Event” di samping “Properties”.
• Pilih dan aktifkan “onclick”.
• Double Click pada combo “On Click”
• Ketik program berikut:

procedure Tfrmgaji.cbjabatanClick(Sender: TObject);
begin
if cbjabatan.Text = ‘Direktur’ then
edgajipokok.Text := ‘ 5000000’
else if cbjabatan.Text = ‘Manajer’ then
edgajipokok.Text := ‘3000000’
else if cbjabatan.Text = ‘Karyawan’ then
edgajipokok.Text := ‘2000000’
else edgajipokok.Text := ‘0’
end;

Penghitung Tunjangan Karyawan Honorer
Double click pada obyek radio button “Honorer”, lalu ketik program berikut:

procedure Tfrmgaji.rbhonorerClick(Sender: TObject);
begin
if  rbhonorer.Checked = true then
edtunjangan.Text :=’500000′;
end;

Penghitung Tunjangan Karyawan Tetap
Double click pada obyek radio button “Tetap”, lalu ketik program berikut:

procedure Tfrmgaji.rbtetapClick(Sender: TObject);
begin if  rbtetap.Checked = true then
edtunjangan.Text :=’1000000′;
end;

Penghitung Gaji Bersih Karyawan
Double click pada button “Hitung”, lalu ketik program berikut:

procedure Tfrmgaji.bthitungClick(Sender: TObject);var a,b,c:integer;begina := StrToInt(edgajipokok.Text);b := StrToInt(edtunjangan.Text);c := a+b;edgajibersih.Text := IntToStr(c);end;

Penerima Input Lagi
Double click pada button “Input Lagi”, lalu ketik program berikut:

procedure Tfrmgaji.edlagiClick(Sender: TObject);begin cbjabatan.Text := ‘Jabatan’;ednama.Text := ‘ ‘;edgajibersih.Text := ‘0’;Edtunjangan.Text := ‘0’;edgajipokok.Text := ‘0’;rbhonorer.Checked := false;rbtetap.Checked := false;end;

Tanda program telah selesai
Ketikkan program berikut di baris-baris terakhir program:

procedure Tfrmgaji.btselesaiClick(Sender: TObject);
begin close;
end;

Berikut ini adalah hasil program ketika dijalankan:
run

selanjutnya
 Program untuk Membuat Bentuk Diamond pada Delphi