tugas VB : No 4

Private Sub Cbo_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbo.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 20000

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

Text3.Text = gapok

Text4.Text = tunjangan

Text5.Text = pajak

Text6.Text = total – pajak

End Sub

 

Private Sub cmdBATAL_Click()

kosong

End Sub

 

Private Sub cmdKELUAR_Click()

End

End Sub

 

Private Sub cmdLAGI_Click()

kosong

End Sub

 

Private Sub Form_Load()

Cbo.AddItem “I”

Cbo.AddItem “II”

Cbo.AddItem “III”

Cbo.AddItem “IV”

End Sub

Public Sub kosong()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub