Program Menghitung Honor Karyawan Visual Basic

Pada tutorial kali ini kita akan menciptakan sebuah aktivitas Menghitung Gaji dengan Visual Basic, Kita akan menghitung honor karyawan bab kantor menurut level pekerjaan (Manajer, HRD, Staf, Sekertaris dan Reseptionist, perhitungan honor di sini mencakup bonus 10% dari honor pokok bagi karyawan yang selalu masuk, dan bonus lemburan, bagi karyawan yang berkerja melebihi waktu normal, sepakat 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 menyerupai ini :

3. ubahlah propertiesnya, dengan kriteria menyerupai 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
	Aligment	Center
All	Font Size	12

Sehingga menyerupai 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 menyerupai 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 yakni 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 = honor * 0.1 'Karyawan mendapat bonus berupa 0,1 (10%) dari gaji

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

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

End If

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

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

Text4 = total 'Nilai dari total sama dengan text4

End Sub

Catatn :

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

Private Sub Form_Load() Combo1.AddItem "Manager" 'Script untuk menambahkan variabel ke combo box Combo1.AddItem "Sekertaris" 'Sehingga combo box akan menyerupai 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 honor = 6000000 'Gaji Manager yakni 6 Juta ElseIf Combo1 = "Sekertaris" Then honor = 5000000 ElseIf Combo1 = "HRD" Then honor = 5000000 ElseIf Combo1 = "Staf" Then honor = 4000000 ElseIf Combo1 = "Reseptionist" Then honor = 3500000 End If If Text2 = "" Or Text2 = "0" Then 'Jika Text2 (Absen) tidak ada maka bonus = honor * 0.1 'Karyawan mendapat bonus berupa 0,1 (10%) dari honor Else 'Tapi jikalau karyawan membolos / Absen, walau satu hari dengan alasan apapun maka bonus = 0 'Bonus = 0, yang berarti, karyawan tersebut tidak mendapat bonus End If lembur = Text3 * 25000 'Jika karyawan kerja lembur, maka Jumlah Jam lembur x 25 Ribu total = honor + bonus + lembur 'Total honor yang di dapatkan Text4 = total 'Nilai dari total sama dengan text4 End Sub

5. Dan kini coba jalankan programnya,

Itualah aktivitas untuk Menghitung honor karyawan,
Sekian dan terimakasih