Latihan Visual Basic Menghitung Gaji

*Soal: 
  Membuat Program hitung gaji + tunjangan dari Pegawai, Staf Direktur, dan Direktur menggunakan  "Select Case"
 
*Ketentuan: 
- Tunjangan Hadir = dalam 1 bulan berapa kali hadir x Rp.10.000,- (tidak boleh lebih dari 31 hari)
- Tunjangan Jabatan =  
 ^Pegawai : Rp.500.000,- dan Gaji Pokok Rp.2.000.000,-
 ^Staf Direktur : Rp.800.000,- dan Gaji Pokok Rp.4.000.000,-
 ^Direktur : Rp.1.000.000,- dan Gaji Pokok Rp.5.000.000,-
- Tunjangan Anak = Jumlah Anak x Rp.100.000,- (anak yang diberi tunjangan maksimal 2 orang anak saja).


*Tampilan:

  *Listing program:

Private Sub cmdbersih_Click()

txtnama.Text = ""

txtjumanak.Text = ""

txtjumhadir.Text = ""

Combo1.Text = "Pilih Jabatan"

lblnama.Caption = ""

lbljabatan.Caption = ""

lblgajipokok.Caption = ""

lbltunjabatan.Caption = ""

lbltunjanak.Caption = ""

lblhadir.Caption = ""

lbltotal.Caption = ""

End Sub

Private Sub cmdhitung_Click()

If txtnama.Text = "" Then

MsgBox "MASUKKAN NAMA"

txtnama.SetFocus

Exit Sub

End If

If txtjumanak.Text = "" Then

MsgBox "MASUKKAN JUMLAH ANAK"

txtjumanak.SetFocus

Exit Sub

End If

If txtjumhadir.Text = "" Then

MsgBox "Masukkan Jumlah Kehadiran Dalam 1 Bulan"

txtjumhadir.SetFocus

Exit Sub

End If

If txtjumhadir.Text > 31 Then

MsgBox "Anda terlalu banyak memasukkan Jumlah Kehadiran"

Exit Sub

End If

nama = txtnama.Text

lblnama.Caption = "Nama :    " & nama

Select Case Combo1.Text

               Case "Pegawai"

                     tunjabatan = 500000

                     gajipokok = 2000000

                    

               Case "Staf Direktur"

                    

                     tunjabatan = 800000

                     gajipokok = 4000000

                    

               Case "Direktur"

                    

                     tunjabatan = 1000000

                     gajipokok = 5000000

                    

End Select

lbljabatan.Caption = "Jabatan :   " & Combo1.Text

lbltunjabatan.Caption = "Tunjangan Jabatan :   " & Format(tunjabatan, "Currency")

lblgajipokok.Caption = "Gaji Pokok :  " & Format(gajipokok, "Currency")

jumanak = Val(txtjumanak.Text)

If txtjumanak.Text <= 2 Then tunjanak = Val(txtjumanak) * 100000

If txtjumanak > 2 Then tunjanak = 2 * 100000

lbltunjanak.Caption = "Tunjangan Anak :   " & Format(tunjanak, "Currency")

txtjumhadir = Val(txtjumhadir.Text)

tunjhadir = Val(txtjumhadir) * 10000

lblhadir.Caption = "Tunjangan Hadir :   " & Format(tunjhadir, "Currency")

total = Val(tunjabatan) + Val(gajipokok) + Val(tunjanak) + Val(tunjhadir)

lbltotal.Caption = "Total Gaji :    " & Format(total, "Currency")

                    

End Sub

Private Sub cmdkeluar_Click()

x = MsgBox("Anda Akan Keluar Dari Form Ini ?", vbQuestion + vbOKCancel, "Information")

If x = vbOK Then

End

End If

End Sub

Private Sub Form_Load()

Const anak = 100000

Const hadir = 10000

Combo1.AddItem "Pegawai"

Combo1.AddItem "Staf Direktur"

Combo1.AddItem "Direktur"

End Sub

Private Sub Timer1_Timer()

ljam = Time

End Sub

Private Sub Timer2_Timer()

ltanggal = Date

End Sub