Nama Kelompok :
1. Maris Khairah (53418995)
2. Nadia Cantika Putri
(55418122)
3. Puji Intan Lestari
(55418607)
4. Renda Ayu Kusuma W.
(55418990)
Kelas : 2IA16
Untuk memenuhi tugas
softskill, kami membuat video berdurasi minimal 5 menit.
Dalam video ini, kami akan mencoba membuat Aplikasi Perhitungan Gaji Karyawan dengan kriteria sebagai berikut :
Dalam video ini, kami akan mencoba 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:
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
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;
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
Artikel diatas merupakan penjelasan singkat
dari program yang kami buat, untuk lebih jelasnya bisa dilihat dalam video.
Berikut adalah link untuk melihat video :
https://www.youtube.com/watch?v=R1basaXXN4E&feature=youtu.be
Tidak ada komentar:
Posting Komentar