Private Sub Cbogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogol.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 “V”
gapok = 3500000
tunjangan = 350000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjuangan
pajak = total * 0.1
TXTGAPOK.Text = gapok
Txttunjangan.Text = tunjangan
txtpajak.Text = pajak
Txttotal.Text = total – pajak
End Sub Private Sub Cmdbatal_Click()
TXTNIDN.SetFocus
TXTNIDN.Text = “”
TXTNAMA.Text = “”
Cbogol.Text = “”
TXTGAPOK.Text = “”
Txttunjangan.Text = “”
txtpajak.Text = “”
Txttotal.Text = “” End Sub Private Sub Cmdkeluar_Click()
Unload Me
End Sub Private Sub Cmdlagi_Click()
TXTNIDN.Text = “”
TXTNAMA.Text = “”
Cbogol.Text = “”
TXTGAPOK.Text = “”
Txttunjangan.Text = “”
txtpajak.Text = “”
Txttotal.Text = “” End Sub Private Sub Form_Activate()
TXTNIDN.SetFocus
TXTNIDN.Text = “”
TXTNAMA.Text = “”
Cbogol.Text = “”
TXTGAPOK.Text = “”
Txttunjangan.Text = “”
txtpajak.Text = “”
Txttotal.Text = “” End Sub Private Sub Form_Load()
Cbogol.AddItem “I”
Cbogol.AddItem “II”
Cbogol.AddItem “III”
Cbogol.AddItem “IV”
Cbogol.AddItem “V” End Sub Private Sub TXTNIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNAMA.SetFocus
End If
End Sub
Private Sub Check1_Click()If (Check1.Value = 1) And (Check2.Value = 1) Then
Label2.FontBold = True
Label2.FontItalic = True ElseIf (Check1.Value = 1) And (Check2.Value = 0) Then
Label2.FontBold = True
Label2.FontItalic = False ElseIf (Check1.Value = 0) And (Check2.Value = 1) Then
Label2.FontBold = False
Label2.FontItalic = True ElseIf (Check1.Value = 0) And (Check2.Value = 0) Then
Label2.FontBold = False
Label2.FontItalic = False
End If End Sub
Private Sub Check2_Click()
If (Check1.Value = 1) And (Check2.Value = 1) Then
Label2.FontBold = True
Label2.FontItalic = True
ElseIf (Check1.Value = 1) And (Check2.Value = 0) Then
Label2.FontBold = True
Label2.FontItalic = False
ElseIf (Check1.Value = 0) And (Check2.Value = 1) Then
Label2.FontBold = False
Label2.FontItalic = True
ElseIf (Check1.Value = 0) And (Check2.Value = 0) Then
Label2.FontBold = False
Label2.FontItalic = False
End If End Sub
Private Sub Command1_Click()
Label2.Caption = (Text1.Text) End Sub
Private Sub Command2_Click()
Unload Me End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label2.ForeColor = vbBlue
End If End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label2.ForeColor = vbRed
End If
End Sub
srywahyuni 