tugas 2.2

 NIDN

Private Sub Combo1_Click()

Dim gapok, pajak, tunjangan, total As Variant

    Select Case Combo1.Text

    Case "I"

    Text1 = "14100411"

    Text2 = "OVITRIA NINGSIH"

    gapok = 2500000

    tunjangan = 250000

   

    Case "II"

    Text1 = "14100525"

    Text2 = "MAI INDAH"

    gapok = 3000000

    tunjangan = 300000

   

    Case "III"

    Text1 = "14100213"

    Text2 = "ANGGEL"

    gapok = 4500000

    tunjangan = 450000

   

    Case "IV"

    Text1 = "14100214"

    Text2 = "ANISA"

    gapok = 4000000

    tunjangan = 400000

   

    Case Else

    gapok = 0

    tunjangan = 0

End Select

    total = gapok + tunjangan

    pajak = total * 0.1

    Text3 = gapok

    Text4 = tunjangan

    Text5 = pajak

    Text6 = total - pajak

End Sub

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Combo1 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "I"

Combo1.AddItem "II"

Combo1.AddItem "III"

Combo1.AddItem "IV"

End Sub