Tugas 4.2

Private Sub cmdbatal_Click()
cbokb = ""
txtjb = ""
txtp = ""
txttt = ""
txtpn = ""
txthar = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
cbokb = ""
txtjb = ""
txtp = ""
txttt = ""
txtpn = ""
txthar = ""
End Sub

Private Sub cmdproses_Click()
Dim C, jb, peng, har, pener As String
txttt = "20" & Right(cbokb, 2)
C = Mid(cbokb, 3, 3)
If C = "SIM" Then
jb = "Sistem Informasi Manajemen"
peng = "Yati Nur Oktavia"
har = "75900"
ElseIf C = "EDP" Then
jb = "Elektronik Data Processing"
peng = "Imam Tarmizi"
har = "62000"
ElseIf C = "MNJ" Then
jb = "Manajemen"
peng = "Valentina Mariana Adiwianti"
har = "42000"
ElseIf C = "CDR" Then
jb = "corel draw"
peng = "Riyan Suhandi"
har = "53000"
ElseIf C = "RPL" Then
jb = "Rekayasa Perangkat Lunak"
peng = "Sinta Umpu Singa"
har = "83000"
End If
txtjb = jb
txtp = peng
txthar = har
C = Left(cbokb, 1)
If C = "A" Then
pener = "Andi Offset yogyakarta"
ElseIf C = "I" Then
pener = "Indah Surabaya"
ElseIf C = "S" Then
pener = "Salemba Empat"
ElseIf C = "E" Then
pener = "Elek Media Komputindo"
ElseIf C = "M" Then
pener = "Maxinco"
End If
txtpn = pener
End Sub

Private Sub Form_Load()
cbokb.AddItem "A-SIM_01"
cbokb.AddItem "I-EDP_02"
cbokb.AddItem "S-MNJ_03"
cbokb.AddItem "E-CDR_04"
cbokb.AddItem "M-RPL_05"
End Sub