TUGAS 3 BP5

Private Sub Cmdproses_Click()
Dim A As String
A = Mid(Cbokode, 1, 1)
If A = "A" Then
Textpn = "Abdi Offsyet Yogyakarta"
End If
A = Mid(Cbokode, 3, 3)
If A = "SIM" Then
Textjb = "Sistem Informasi Manajemen"
Textpg = "Yati Nur Oktavia"
Textrp = "75900"
End If
A = Mid(Cbokode, 7, 2)
If A = "01" Then
Texttt = "2001"
End If
A = Mid(Cbokode, 1, 1)
If A = "I" Then
Textpn = "Indah Surabaya"
End If
A = Mid(Cbokode, 3, 3)
If A = "EDP" Then
Textjb = "Electronik Data Processing"
Textpg = "Imam Tarmizi"
Textrp = "62000"
End If
A = Mid(Cbokode, 7, 2)
If A = "02" Then
Texttt = "2002"
End If
A = Mid(Cbokode, 1, 1)
If A = "S" Then
Textpn = "HELMIYANTO"
End If
A = Mid(Cbokode, 3, 3)
If A = "MNJ" Then
Textjb = "MANAJEMEN"
Textpg = "NUZUL RAMADHANI"
Textrp = "79000"
End If
A = Mid(Cbokode, 7, 2)
If A = "03" Then
Texttt = "2003"
End If
End Sub

Private Sub Cmdlagi_Click()
Cbokode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textjb.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbokode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textjb.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
Cbokode.AddItem "A-SIM-01"
Cbokode.AddItem "I-EDP-02"
Cbokode.AddItem "S-MNJ-03"
End Sub