tugas 4.9

Private Sub cmdbatal_Click()
Cbokb.SetFocus
Cbokb.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txttt.Text = “”
Txtpen.Text = “”
Txth.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
Cbokb.SetFocus
Cbokb.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txttt.Text = “”
Txtpen.Text = “”
Txth.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
Txttt.Text = “20” & Right(Cbokb.Text, 2)
a = Mid(Cbokb.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “YATI NUR OKTAVIA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “VALENTINA MARIANA ADIWIANTI”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “IMAM TARMIZI”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIYAN SUHANDI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “SINTA UMPUL SINGA”
h = “83000”
End If
Txtjb.Text = b
Txtpeng.Text = c
Txth.Text = h
d = Left(Cbokb.Text, 1)
If d = “A” Then
Txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
Txtpen.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
Txtpen.Text = “MAXICOM”
ElseIf d = “S” Then
Txtpen.Text = “SURYA PERMAI”
ElseIf d = “E” Then
Txtpen.Text = “ELEK MEDIA KOMPUTINDO”
End If
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