Posted by : dawie heart Selasa, 06 November 2012

Setelah mengetahui tentang tipe data dan operator, sekarang kita coba membuat aplikasi sederhana untuk lebih memudahkan pemahaman tentang tipe data dan operator pada delphi.
Kita akan membuat aplikasi perhitungan gaji karyawan dengan kriteria sebagai berikut :

  1. Setiap orang memiliki gaji pokok dan tunjangan anak.
  2. Besarnya tunjangan anak adalah 50.000
  3. Jumlah anak yang diberi tunjangan maksimal sampai anak ke-3.
Contoh membuat aplikasi perhitungan gaji dengan menggunakan delphi 7
1. Buat project baru pada delphi, kemudian tempatkan komponen-komponen pada form seperti gambar berikut:
form hitung gaji
Tata Letak Form Aplikasi Perhitungan Gaji
2. Atur properti form dan komponen seperti pada tabel.
Component Properti Value
Label1 Caption Nama
Label2 Caption Gaji Pokok
Label3 Caption Jumlah Anak
Label4 Caption Gaji Total
Label5 Caption Aplikasi Perhitungan Gaji
Font 14
Label6 Caption Maksimal anak ke-3
Edit1 Name EdNama
Text Dikosongkan
Edit2 Name EdGajipokok
Text Dikosongkan
Edit3 Name EdJumlahanak
Text Dikosongkan
Edit4 Name EdGajitotal
Text Dikosongkan
Button1 Name BtHitung
Width 75
Height 65
3. Jika benar maka tampilan form menjadi seperti ini.
Form Aplikasi Perhitungan Gaji
Form Aplikasi Perhitungan Gaji
4. Dobel klik Button BtHitung pada form, lalu isikan prosedur perhitungan gaji sebagai berikut
procedure TForm1.Button1Click(Sender: TObject);
Const TAnak = 50000;
Var
JAnak:integer;
GPokok,Tunjangan,GTotal:Real;
begin
GPokok := StrtoFloat(EdGajipokok.Text);
JAnak := Strtoint(EdJumlahanak.Text);
if Janak > 3 then
begin
Janak := 3;
Showmessage(‘Jumlah Anak yang diberi tunjangan hanya sampai anak ke-3′);
end;
Tunjangan := Janak * Tanak;
GTotal := GPokok + Tunjangan;
EdGajiTotal.Text := Floattostr(GTotal);
end;
5. Coba jalankan project dengan menekan F9 lalu isikan data data pada nama, gaji pokok dan jumlah anak dan tekan tombol Hitung, Jika benar maka akan tampil seperti ini
Aplikasi Perhitungan Gaji Dengan Delphi 7
Aplikasi Perhitungan Gaji Dengan Delphi 7
6. Coba pada jumlah anak isikan dengan angka diatas 3 (misal= 4) maka akan tampil pesan sebagai berikut dan jumlah tunjangan hanya dihitung 3 anak.
Pesan jumlah anak
Pesan jumlah anak diatas 3
7. Simpan project dan unit dengan nama ProHitungGaji.dpr dan UhitungGaji.pas.
8. Download file project disini

Leave a Reply

Terima Kasih Telah Berkunjung

Subscribe to Posts | Subscribe to Comments

- Copyright © KUMPUL DI SINI - Dawie Heart - Powered by Blogger - Designed by Garuda Indonesia Komunitas -