Program Menghitung Gaji Karyawan dengan VB 6.0

Program menghitung gaji karyawan dengan VB.6.0 ini dengan ketetapan-ketetapan jumlah gaji karyawan sesuai dengan jabatan masing-masing. Untuk karyawan yang telah menikah ada tunjangan sebesar 0,1 x gaji. Pajak dikenakan pada masing-masing karyawan dengan hitungan 0,15 x gaji. Nama karyawan, gaji dan tunjangan sudah dibuat otomatis berdasarkan pemilihan combobox.

Silahkan copy paste mantra-mantra dibawah ini.

Private Sub Form_Load()
    Combo1.AddItem "001"
    Combo1.AddItem "002"
    Combo1.AddItem "003"
    Combo2.AddItem "Hacker"
    Combo2.AddItem "Blogger"
    Combo2.AddItem "Pheaker"
    Combo3.AddItem "Menikah"
    Combo3.AddItem "Tidak Menikah"
End Sub

Private Sub combo2_Click()
    Select Case Combo2.Text
    Case "Hacker": Text2.Text = 1750000
    Case "Blogger": Text2.Text = 2500000
    Case "Pheaker": Text2.Text = 1250000
    End Select
    Text4.Text = 0.15 * Text2.Text
End Sub

Private Sub combo1_Click()
    Select Case Combo1.Text
    Case "001": Text1.Text = "Mastah"
    Case "002": Text1.Text = "Sistah"
    Case "003": Text1.Text = "Nubi"
    End Select
End Sub

Private Sub combo3_Click()
    Select Case Combo3.Text
    Case "Menikah": Text3.Text = 0.1 * Text2.Text
    Case "Tidak Menikah": Text3.Text = 0
    End Select
End Sub

Private Sub Command2_Click()
    Combo1.Text = ""
    Combo2.Text = ""
    Combo3.Text = ""
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Combo1.SetFocus
End Sub

Private Sub Command1_Click()
    Text5.Text = Val(Text2.Text) + Val(Text3.Text) - Val(Text4.Text)
End Sub

Private Sub Command3_Click()
End
End Sub

Dan ini penampakan program yang menghitung gaji karyawan setelah dijalankan.

Sekian Tutorial membuat aplikasi gaji karyawan menggunakan bahasa pemograman VB 6.0 kali ini moga bermanfaat bagi kita semua. Selamat belajar .