TUGAS 3_4 DATA BUKU STMIK PRINGSEWU

Private Sub cbokode_Change()

Select Case cbokode

Case "A-SIM-01"

Case "I-EDP-02"

Case "S-MNJ-03"

Case "E-CDR-04"

Case "M-RPL-05"

End Select

End Sub

Private Sub cmdbatal_Click()

cbokode = ""

txtjb = ""

txtpg = ""

txtth = ""

txtpn = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode = ""

txtjb = ""

txtpg = ""

txtth = ""

txtpn = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokode, 1)

If A = "A" Then

txtpn = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

txtpn = "Indah Surabaya"

ElseIf A = "S" Then

txtpn = "Salemba Empat"

ElseIf A = "E" Then

txtpn = "Elek Media Komputindo"

ElseIf A = "M" Then

txtpn = "Maxicom"

End If

A = Mid(cbokode, 3, 3)

If A = "SIM" Then

txtjb = "Sistem Informasi Manajemen"

txtpg = "Yati Nur Oktavia"

txtharga = "75900"

ElseIf A = "EDP" Then

txtjb = "Elektronik Data Processing"

txtpg = "Imam Tarmizi"

txtharga = "62000"

ElseIf A = "MNJ" Then

txtjb = "Manajemen"

txtpg = "Valentina Mariana Adiwianti"

txtharga = "42000"

ElseIf A = "CDR" Then

txtjb = "Corel Draw"

txtpg = "Riyan Suhandi"

txtharga = "53000"

ElseIf A = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpg = "Sinta Umpu Singa"

txtharga = "83000"

End If

txtth = "20" & Right(cbokode, 2)

End Sub

Private Sub Form_Load()

cbokode.AddItem "A-SIM-01"

cbokode.AddItem "I-EDP-02"

cbokode.AddItem "S-MNJ-03"

cbokode.AddItem "E-CDR-04"

cbokode.AddItem "M-RPL-05"

End Sub