Tugas 3.4 Data Buku STMIK PRINGSEWU

Private Sub cbokodebuku_Click()

Select Case cbokodebuku.Text

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()

cbokodebuku.SetFocus

cbokodebuku.Text = ""

Txtjb.Text = ""

txtpeng.Text = ""

txttater.Text = ""

txtpen.Text = ""

txtharga.Text = ""

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokodebuku.SetFocus

cbokodebuku.Text = ""

Txtjb.Text = ""

txtpeng.Text = ""

txttater.Text = ""

txtpen.Text = ""

txtharga.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokodebuku, 1)

If A = "A" Then

txtpen.Text = "ANDI OFFSET YOGYAKARTA"

ElseIf A = "I" Then

txtpen.Text = "INDAH SURABAYA"

ElseIf A = "S" Then

txtpen.Text = "SALEMBA EMPAT"

ElseIf A = "E" Then

txtpen.Text = "ELEK MEDIA KOMPUTINDO"

ElseIf A = "M" Then

txtpen.Text = "MAXICOM"

End If

A = Mid(cbokodebuku, 3, 3)

If A = "SIM" Then

Txtjb.Text = "Sistem Informasi Menejemen"

txtpeng.Text = "YATI NUR OKTAVIA"

txtharga.Text = "75900"

ElseIf A = "EDP" Then

Txtjb.Text = "Elektronik Data Prosesing"

txtpeng.Text = "IMAM TARMIZI"

txtharga.Text = "62000"

ElseIf A = "MNJ" Then

Txtjb = "Menejemen"

txtpeng.Text = "VALENTINA MARIANA ADIWIANTI"

txtharga.Text = "42000"

ElseIf A = "CDR" Then

Txtjb.Text = "corel draw"

txtpeng.Text = "RIYAN SUHANDI"

txtharga.Text = "53000"

ElseIf A = "RPL" Then

Txtjb.Text = "Rekayasa Perangkat Lunak"

txtpeng.Text = "SINTA UMPU SINGA"

txtharga.Text = "83000"

End If

txttater.Text = "20" & Right(cbokodebuku, 2)

End Sub

Private Sub Form_Load()

cbokodebuku.AddItem "A-SIM-01"

cbokodebuku.AddItem "I-EDP-02"

cbokodebuku.AddItem "S-MNJ-03"

cbokodebuku.AddItem "E-CDR-04"

cbokodebuku.AddItem "M-RPL-05"

End Sub