Slide1

Private Sub Command1_click()
Dim s As String
txtth.Text = Left(Text2.Text, 4)
s = Mid(Text2.Text, 5, 1)
If s = “A” Then
txtgol.Text = “A”
txtjb.Text = “manajer”
txtgp.Text = “4000000”
txttj.Text = “1025000”
ElseIf s = “B” Then
txtgol.Text = “B”
txtjb.Text = “ka. seksi”
txtgp.Text = “3500000”
txttj.Text = “975000”
ElseIf s = “C” Then
txtgol.Text = “C”
txtjb.Text = “staf”
txtgp.Text = “3000000”
txttj.Text = “925000”
End If
s = Mid(Text2.Text, 7, 1)
If s = “s” Then
txtkod.Text = “s”
txtst.Text = “singel”
ElseIf s = “m” Then
txtkod.Text = “m”
txtst.Text = “menikah”
txtkod.Text = “j”
txtst.Text = “janda”
txtkod.Text = “d”
txtst.Text = “duda”
End If
s = Mid(Text2.Text, 9, 3)
If s = “keu” Then
txtbg.Text = “accaunting”
ElseIf s = “adm” Then
txtbg.Text = “administrasi”
ElseIf s = “sdm” Then
txtbg.Text = “general affairi”
ElseIf s = “edp” Then
txtbg.Text = “it unuit”
ElseIf s = “spm” Then
txtbg.Text = “security”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text10_Change()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Iklan