Tugas 3 Program 5

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"

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