tugas 3.4

Private Sub cmdbataal_Click()
cbokode = ""
txtjb = ""
Txtpenga = ""
txttt = ""
txtpener = ""
txtharga = ""
End Sub

Private Sub cmdkluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
cbokode = ""
txtjb = ""
Txtpenga = ""
txttt = ""
txtpener = ""
txtharga = ""


End Sub

Private Sub cmdproses_Click()
Dim R As String
R = Left(cbokode, 1)
If R = "A" Then
txtpener = "andi offset yogyakarta"
ElseIf R = "I" Then
txtpener = "INDAH SURABAYA"
ElseIf R = "S" Then
txtpener = "SALEMBA EMPAT"
ElseIf R = "E" Then
txtpener = "ELEK MEDIA KOPUTINDO"
ElseIf R = "M" Then
txtpener = "MAXI"
End If
R = Mid(cbokode, 3, 3)
If R = "SIM" Then
txtjb = "SISTEM INFORMASI"
Txtpenga = "YATI NUR OKTAVIA"
txtharga = "75900"
ElseIf R = "EDP" Then
txtjb = "ELEKTRONIK DATA PROSESING"
Txtpenga = "IMAM TARMIZI"
txtharga = "62000"

ElseIf R = "MNJ" Then
txtjb = "MANAJEMEN"
Txtpenga = "VALENTINAA MARIANA ADIWIANI"
txtharga = "42000"
ElseIf R = "CDR" Then
txtjb = "COREAL DRAW"
Txtpenga = "RIYAN SUHANDI"
txtharga = "53000"
ElseIf R = "RPL" Then
txtjb = "REKAYASA PERANGKAT LUNAK"
Txtpenga = "SINTA UMPU SINGA"
txtharga = "83000"
End If
txttt = "20" & Right(cbokode, 2)



End Sub

Private Sub Form_Load()
cbokode.AddItem "A-SIM-01"
cbokode.AddItem "I-EDP-02"
cbokode.AddItem "S-MJN-03"
cbokode.AddItem "E-CDR-04"
cbokode.AddItem "M-RPL-05"


End Sub

Private Sub pxtpenga_Change()

End Sub