TUGAS 3 BP8

Private Sub Command1_Click()
Dim a As String
a = Mid(Textnik, 1, 4)
If a = "2009" Then
Textthn = "2009"
End If
a = Mid(Textnik, 5, 1)
If a = "A" Then
Textjbt = "Manajer"
Textgol = "A"
Textgapok = "4000000"
Texttun = "1025000"
ElseIf a = "B" Then
Textjbt = "Ka. Seksi"
Textgol = "B"
Textgapok = "3500000"
Texttun = "975000"
ElseIf a = "C" Then
Textjbt = "Staff"
Textgol = "C"
Textgapok = "3000000"
Texttun = "925000"
End If
a = Mid(Textnik, 7, 1)
If a = "S" Then
Textkode = "S"
Textsts = "Single"
ElseIf a = "M" Then
Textkode = "M"
Textsts = "Menikah"
ElseIf a = "J" Then
Texkode = "J"
Textsts = "Janda"
ElseIf a = "D" Then
Textkode = "D"
Textsts = "Duda"
End If
a = Mid(Textnik, 9, 3)
If a = "KEU" Then
Textbag = "Accounting"
ElseIf a = "ADM" Then
Textbag = "Administrasi"
ElseIf a = "SDM" Then
Textbag = "General Affair"
ElseIf a = "EDP" Then
Textbag = "IT Unit"
ElseIf a = "SPM" Then
Textbag = "Security"
End If
Texttotal = Val(Textgapok) + Val(Texttun)
End Sub

Private Sub Command2_Click()
Textnama = ""
Textnik = ""
Textgol = ""
Textkode = ""
Textsts = ""
Textthn = ""
Textjbt = ""
Textbag = ""
Textgapok = ""
Texttun = ""
Texttotal = ""
Textnama.SetFocus
End Sub

Private Sub Command3_Click()
Textnama = ""
Textnik = ""
Textgol = ""
Textkode = ""
Textsts = ""
Textthn = ""
Textjbt = ""
Textbag = ""
Textgapok = ""
Texttun = ""
Texttotal = ""
Textnama.SetFocus
End Sub

Private Sub Command4_Click()
Unload Me
End Sub


Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub