TUGAS 3.1 PROGRAM GAJI

TUGAS 3.1 PROGRAM GAJI

source kode :

Private Sub Cmdbatal_Click()

kosong

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

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gaji, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case "I"

gaji = 1500000

tunjangan = 150000

Case "II"

gaji = 2000000

tunjangan = 200000

Case "III"

gaji = 2500000

tunjangan = 250000

Case "IV"

gaji = 3000000

tunjangan = 300000

Case Else

gaji = 0

tunjangan = 0

End Select

total = gaji + tunjangan

pajak = total * 0.1

txtgaji.Text = gaji

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total - pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = ""

txtnama.Text = ""

cbogolongan.Text = ""

txtgaji.Text = ""

txttunjangan.Text = ""

txtpajak.Text = ""

txttotal.Text = ""

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub