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
