Tugas 3.1

TUGAS 3.1

MENGHITUNG GAJI POKOK & TUNJANGAN PEGAWAI

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan

Case "I"

gapok = 150000

tunjangan = 150000

Case "II"

gapok = 2000000

tunjangan = 2000000

Case "III"

gapok = 2500000

tunjangan = 2500000

Case "IV"

gapok = 3000000

tunjangan = 3000000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + golongan

pajak = total * 0.1

Txtgapok = gapok

Txttunjangan = tunjangan

Txtpajak = pajak

Txttotal = total - pajak

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

Cbogolongan.AddItem "I"

Cbogolongan.AddItem "II"

Cbogolongan.AddItem "III"

Cbogolongan.AddItem "IV"

End Sub

Public Sub kosong()

Txtnidn.SetFocus

Txtnidn.Text = ""

Txtnama.Text = ""

Cbogolongan.Text = ""

Txtgapok.Text = ""

Txttunjangan.Text = ""

Txtpajak.Text = ""

Txttotal.Text = ""

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub