Private Sub Cmdproses_Click()
Dim B, C As String
Txttt = "20" & Mid(Txtkb, 5, 2)
B = Left(Txtkb, 3)
If B = "rpl" Then
Txtjb = "Rekayasa Perangkat Lunak"
Txtpng = "Winda Erlianti"
Txth = "83000"
ElseIf B = "sim" Then
Txtjb = "Sistem Informasi Manajemen"
Txtpng = "Fadiya Ulfa"
Txth = "75900"
ElseIf B = "edp" Then
Txtjb = "Elektronik Data Processing"
Txtpng = "Nurul Agustina"
Txth = "62000"
ElseIf B = "mnj" Then
Txtjb = "Manajemen"
Txtpng = "Rian Hidayat"
Txth = "42000"
ElseIf B = "cdr" Then
Txtjb = "Corel Draw"
Txtpng = "Siti Nur Khotimah"
Txth = "53000"
End If
C = Right(Txtkb, 1)
If C = "a" Then
Txtpnb = "Andi Offset Yogyakarta"
ElseIf C = "i" Then
Txtpnb = "Indah Surabaya"
ElseIf C = "s" Then
Txtpnb = "Salemba Empat"
ElseIf C = "e" Then
Txtpnb = "Elek Media Komputindo"
ElseIf C = "m" Then
Txtpnb = "Maxicom"
End If
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_cilck()
Txtkb = ""
Txtjb = ""
Txttt = ""
Txtpnb = ""
Txtpng = ""
Txth = ""
Txtkb.SetFocus
End Sub
Private Sub cmdbatal_click()
Txtkb = ""
Txtjb = ""
Txttt = ""
Txtpnb = ""
Txtpng = ""
Txth = ""
Txtkb.SetFocus
End Sub