PROJECT MENGHITUNG GAJI KARYAWAN MENGGUNAKAN APLIKASI VISUAL BASIC 6.0
Nama : Sifa Rafdhania Fatikasari
NPM : 26218713
Kelas : 1EB16
Mata Kuliah : PKTI 2B
Langkah - langkah membuat program menghitung gaji karyawan pada visual basic
1. Buka aplikasi microsoft visual basic terlebh dahulu, kemudian pilih standart EXE lalu klik open
2. Lalu buat tampilan form seperti pada gambar dibawah ini
Lalu selanjutnya adalah membuat 6 textbox, 2 option button, dan 1 command button yang ada pada toolbox. Buat textbox lalu hapus text pada setiap textbox dan ganti name nya pada properties window. Textbox 1 menjadi txtnamapegawai. Textbox 2 menjadi txtgolongan. Textbox 3 menjadi txtlembur. Textbox 4 menjadi txtTMK. Textbox 5 menjadi txtanak. Textbox 6 menjadi txttotalgaji.
3. Selanjutnya membuat kodingan untuk program yang akan dibuat. Yang harus dilakukan adalah mengklik dua kali pada command button yang captiorn nya sudah diganti menjadi Hitung Gaji lalu akan muncul window code. Kemudian ketikkan kodingan pada Private Sub cmdHitung_Click(). Kodingan nya adalah seperti pada gambar dibawah ini
Kodingan diatas sesuai dengan name textbox yang sudah diganti sebelumnya. Nominal - nominal pada kodingan diatas dituliskan sesuai dengan keterangan yang diberikan, keterangan nya adalah sebagai berikut :
a. Jika pegawai adalah :
- Golongan 1, maka gaji pokoknya adalah Rp 300.000
- Golongan 2, maka gaji pokoknya adalah Rp 400.000
- Golongan 3, maka gaji pokoknya adalah Rp 1200000
b. Jika Pegawai lembur, lama lembur maksimal adalah 20 jam, dengan ketentuan :
- Golongan 1, maka honor lembur per jam adalah Rp 30.000
- Golongan 2, maka honor lembur per jam adalah Rp 40.000
- Golongan 3, honor lembur tidak dihitung
c. Tunjangan pegawai Rp 150.000 untuk semua golongan
d. Jika pegawai ;
- Belum menikah : tunjangan pegawai ditambahkan Rp 20.000
- Menikah belum punya anak : tunjangan pegawai ditambahkan Rp 25.000
- Menikah dan punya anak 1 : tunjangan pegawai ditambahkan Rp 45.000
- Menikah dan punya anak 2 : tunjangan pegawai ditambahkan Rp 55.000
- Menikah dan punya anak lebih dari 2 ; tunjangan pegawai ditambahkan Rp 60.000
e. Jika pegawai sudah menikah, mendapatkan tunjangan beras sebesar Rp 25.000
f. Jika pegawai tidak masuk lebih dari 3 hari, maka total gaji dipotong 2 persen (2%)
g. Total gaji/THP (take home pay) = Gaji pokok + Honor lembur + Tunjangan pegawai
+ Tunjangan beras
Penjelasan kodingan :
+ Tunjangan beras
Penjelasan kodingan :
Dim Golongan As Integer
Dim Anak As Integer
Golongan = txtgolongan.Text
Anak = txtanak.Text
Dim itu mendeklarasikan variabel dan As Integer adalah untuk tipe data untuk angka bulat. txtgolongan.Text dan txtanak.Text adalah name label golongan dan name nama yg ada pada properties window.
If (Golongan >= 3 Or Golongan <= 0) Then
txttotalgaji.Text = “Tidak Terdefinisi”
End If
If...Then adalah bentuk pemilihan keputusan untuk satu percabangan, bila kondisi terpenuhi (True),maka hanya satu percabangan saja yang dikerjakan. sebaliknya jika kondisi tidak terpenuhi (False), maka tidak ada yang dikerjakan. berarti jika golongan lebih dari 3 atau golongan kurang dari 0 makan total gaji tidak terdefinisi.
If (Golongan = 1) Then
txttotalgaji.Text = 300000 + 150000 + Val(txtlembur.Text)
* 30000
End If
Artinya perhitungan total gaji pada golongan 1 dihitung dari gaji pokok golongan 1 + tunjangan pegawai + jam lamanya pegawai lembur * honor lembur golongan 1. End If untuk memilih suatu kondisi apakah bernilai benar atau salah
If (Golongan = 2) Then
txttotalgaji.Text = 400000 + 150000 + Val(txtlembur.Text) * 40000
End If
Artinya perhitungan total gaji pada golongan 2 dihitung dari gaji pokok golongan 2 + tunjangan pegawai + jam lamanya pegawai lembur * honor lembur golongan 2. End If untuk memilih suatu kondisi apakah bernilai benar atau salah.
If (Golongan = 3) Then
txttotalgaji.Text = 1200000 + 150000 + Val(txtlembur.Text) * 0
End If
Artinya perhitungan total gaji pada golongan 3 dihitung dari gaji pokok golongan 3 + tunjangan pegawai + jam lamanya pegawai lembur * honor lembur golongan 3 (bernilai 0 karena tidak terdefinisi). End If untuk memilih suatu kondisi apakah bernilai benar atau salah.
If (txtTMK > 3) Then
txttotalgaji.Text = Val(txttotalgaji.Text) - Val(txttotalgaji.Text) * 2 / 100
End If
diatas adalah untung menghitung nominal tidak masuk kerja. total gaji dikali 2% karena jika pegawai tidak masuk lebih dari 3 hari maka total gaji akan dipotong 2%. End If untuk memilih suatu kondisi apakah bernilai benar atau salah.
If BM.Value = True Then
txttotalgaji.Text = Val(txttotalgaji.Text) + 20000
End If
Value itu untuk menentukan pilihan dan true then digunakan untuk memberi tahu bahwa bernilai TRUE. perhitungannya adalah dengan ditambah dengan tunjangan pegawai yang belum menikah.
If Menikah.Value = True Then
txttotalgaji.Text = Val(txttotalgaji.Text) + 25000 + 25000
End If
Value itu untuk menentukan pilihan dan true then digunakan untuk memberi tahu bahwa bernilai TRUE. perhitungannya adalah dengan ditambah dengan tunjangan pegawai yang sudah menikah tetapi belum punya anak dan ditambah tunjangan beras bagi yang sudah menikah.
If (Anak = 1) Then
txttotalgaji.Text = Val(txttotalgaji.Text) + 20000
End If
Artinya total gaji yang sudah menikah dan punya anak satu di tambah dengan 20000
If (Anak = 2) Then
txttotalgaji.Text = Val(txttotalgaji.Text) + 30000
End If
Artinya total gaji yang sudah menikah dan punya anak satu di tambah dengan 30000
If (Anak = 3) Then
txttotalgaji.Text = Val(txttotalgaji.Text) + 40000
End If
Artinya total gaji yang sudah menikah dan punya anak satu di tambah dengan 35000
End Sub
End Sub digunakan untuk mengakhiri kodingan yang telah kita kerjakan.
4. Hitung total gaji pegawai
- Bapak Andi : Golongan 1, Lembur 15 jam, Menikah anak 4, Tidak masuk kerja 6 hari
- Bapak Budi : Golongan 2, Lembur 1 jam, Bujangan, Tidak Masuk 0 hari
- Ibu Susi : Golongan 3, Lembur 21 jam, Menikah anak 3, Tidak masuk 3 hari
5. Selesai.
Komentar
Posting Komentar