Program Mencari Upah Karyawan Di Visual Basic

Assalamamuallaikum Wr.Wb............

Berikut ini saya akan mempposting Program sederhana Menghitung Gaji Karyawan Perharinya Dengan lembur maksimal 8 jam dari jam kerja, Program ini sangat sederhana dengan menggunakan Program Aplikasi Visual Basic, yang jika karyawan tersebut bekerja lebih dari 8 jam misalnya 10 jam maka 2 jam dari 10 jam akan dihitung lembur dengan biaya lembur 1 jam Rp. 10.000 ini untuk golongan 1, dan untuk golongan 2 jika karyawan tersebut bekerja lebih dari 8 jam misalnya 10 jam maka 2 jam dari 10 jam akan dihitung lembur dengan biaya lembur 1 jam Rp. 20.000, dengan Gaji karyawan yang diterima selama 1 bulan untuk golongan pertama misalanya Rp. 2.500.000 dan golongan kedua misalnya Rp. 1.500.000. Berikut Tabel Gaji dan Lembur Karyawan :

Golongan	Upah Harian	Upah Lembur / Jam
1	Rp. 2.500.000,00	Rp. 10.000,00
2	Rp. 1.500.000	Rp. 20.000,00

Dari soal di atas mungkin teman-teman sudah paham betul akan prosesnya bagaimana menghitung gaji karyawan dengan gaji maksimal diatas, Ok.......... Kita mulai saja membuat program Perhitungan gai karyawan :
1. Pastikan terlebih dahulu Anda menginstall Program Aplikasi Visual Basic di komputer Anda;
2. Jika sudah Buatlah satu buah Form dengan judul form Program Hitung Gaji Karyawan;
3. Berikut tampilan Form yang Anda Buat nantinya :

2. Ketuk listing berikut ini :

Dim a As Integer
Private Sub cbogol_Change()
cbogol.AddItem 1
cbogol.AddItem 2
End Sub

Private Sub Cmdclear_Click()
Txtnama.Text = ""
cbogol.Text = ""
Txtjam.Text = ""
Txtupah.Text = "'"
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim jam As Integer
Dim upah As Long
jam = Val(Txtjam.Text)
If cbogol.Text = "1" And jam >= 8 Then
    upah = (jam - 8) * 10000 + 2500000
ElseIf cbogol.Text = "1" And jam >= 8 Then
    upah = (jam - 8) * 20000 + 1500000
ElseIf cbogol.Text = "1" And jam <= 8 Then
    upah = 2500000
Else
    upah = 1500000
End If
Txtupah = upah
End Sub

Private Sub Form_Load()
cbogol.AddItem 1
cbogol.AddItem 2
End Sub

Selamat mencoba semoga bermanfaat dan menjadi disiplin ilmu untuk kita semua khususnya dalam ilmu Pemprograman................................