Program Menghitung Gaji Karyawan Visual Basic

Pada tutorial kali ini kita akan membuat sebuah program Menghitung Gaji dengan Visual Basic, Kita akan menghitung gaji karyawan bagian kantor berdasarkan level pekerjaan (Manajer, HRD, Staf, Sekertaris dan Reseptionist, perhitungan gaji di sini meliputi bonus 10% dari gaji pokok bagi karyawan yang selalu masuk, dan bonus lemburan, bagi karyawan yang berkerja melebihi waktu normal, baiklah ayo kita mulai tutorialnya :

1. Pertama jalankan VB dengan project Standar EXE

2. Lalu tambahkan 4 label, 4 text box, 1 combo box an 1 command button, aturlah sehingga seperti ini :

3. ubahlah propertiesnya, dengan kriteria seperti ini :

Tool Box	Properties	Keterangan
Label 1	Caption	Nama
Label 2		Jabatan
Label 3		Absen
Label 4		Lembur
Command 1		Lihat Gaji
Combo 1	Caption	kosong
Text 1
Text 2
Text 3
Text 4
Text 4	Aligment	Center
All	Font Size	12

Sehingga seperti ini :

4. Lalu tuilskan scrip berikut :

Private Sub Form_Load()

Combo1.AddItem "Manager" 'Script untuk menambahkan variabel ke combo box

Combo1.AddItem "Sekertaris" 'Sehingga combo box akan seperti sebuah list

Combo1.AddItem "HRD" 'Lihat Gambar List Combo Box (Bawah)

Combo1.AddItem "Staf"

Combo1.AddItem "Reseptionist"

End Sub

List Combo Box

Private Sub Command1_Click()

If Combo1 = "Manager" Then 'Jika combo box berisi variabel Manager maka

gaji = 6000000 'Gaji Manager adalah 6 Juta

ElseIf Combo1 = "Sekertaris" Then

gaji = 5000000

ElseIf Combo1 = "HRD" Then

gaji = 5000000

ElseIf Combo1 = "Staf" Then

gaji = 4000000

ElseIf Combo1 = "Reseptionist" Then

gaji = 3500000

End If

If Text2 = "" Or Text2 = "0" Then 'Jika Text2 (Absen) tidak ada maka

bonus = gaji * 0.1 'Karyawan mendapatkan bonus berupa 0,1 (10%) dari gaji

Else 'Tapi jika karyawan membolos / Absen, walau satu hari dengan alasan apapun maka

bonus = 0 'Bonus = 0, yang berarti, karyawan tersebut tidak mendapatkan bonus

End If

lembur = Text3 * 25000 'Jika karyawan kerja lembur, maka Jumlah Jam lembur x 25 Ribu

total = gaji + bonus + lembur 'Total gaji yang di dapatkan

Text4 = total 'Nilai dari total sama dengan text4

End Sub

Catatn :

Untuk Gaji, Bonus, Lembur dan total dari script diatas, itu adalah sebuah tools di VB untuk menyimpan data di memory, tapi hanya sementara, dan bisa di ubah oleh anda dengan kata yang lebih mudah untuk anda pahami

Private Sub Form_Load()
Combo1.AddItem "Manager" 'Script untuk menambahkan variabel ke combo box
Combo1.AddItem "Sekertaris" 'Sehingga combo box akan seperti sebuah list
Combo1.AddItem "HRD" 'Lihat Gambar List Combo Box (Bawah)
Combo1.AddItem "Staf"
Combo1.AddItem "Reseptionist"
End Sub

Private Sub Command1_Click()
If Combo1 = "Manager" Then 'Jika combo box berisi variabel Manager maka
gaji = 6000000 'Gaji Manager adalah 6 Juta
ElseIf Combo1 = "Sekertaris" Then
gaji = 5000000
ElseIf Combo1 = "HRD" Then
gaji = 5000000
ElseIf Combo1 = "Staf" Then
gaji = 4000000
ElseIf Combo1 = "Reseptionist" Then
gaji = 3500000
End If

If Text2 = "" Or Text2 = "0" Then 'Jika Text2 (Absen) tidak ada maka
bonus = gaji * 0.1 'Karyawan mendapatkan bonus berupa 0,1 (10%) dari gaji
Else 'Tapi jika karyawan membolos / Absen, walau satu hari dengan alasan apapun maka
bonus = 0 'Bonus = 0, yang berarti, karyawan tersebut tidak mendapatkan bonus
End If

lembur = Text3 * 25000 'Jika karyawan kerja lembur, maka Jumlah Jam lembur x 25 Ribu
total = gaji + bonus + lembur 'Total gaji yang di dapatkan 
Text4 = total 'Nilai dari total sama dengan text4
End Sub

5. Dan sekarang coba jalankan programnya,