TUGAS 3.1 PROGRAM GAJI

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

CMBGOL.AddItem "I"

CMBGOL.AddItem "II"

CMBGOL.AddItem "III"

CMBGOL.AddItem "IV"

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmbgol_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case CMBGOL.Text

Case "I"

gapok = 1500000

tunjangan = 150000

Case "II"

gapok = 2000000

tunjangan = 200000

Case "III"

gapok = 2500000

tunjangan = 250000

Case "IV"

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

TXTGP.Text = gapok

TXTTUNJA.Text = tunjangan

Txtpj.Text = pajak

Txttoter.Text = total - pajak

End Sub

Public Sub kosong()

TXTNIDN.SetFocus

TXTNIDN.Text = ""

TXTNP.Text = ""

CMBGOL.Text = ""

TXTGP.Text = ""

TXTTUNJA.Text = ""

Txtpj.Text = ""

Txttoter.Text = ""

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTNP.SetFocus

End If

End Sub