TUGAS 3

TUGAS 3 ADEL

Private Sub Cmdbatal_Click()
Cbokode.SetFocus
Cbokode = “”
Txtjb = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode = “”
Txtjb = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PENGARANG, HARGA
S = Mid(Cbokode, 3, 3)
If S = “SIM” Then
JB = “SISTEM INFORMASI MANAJEMEN”
PENG = “Yati Nur Oktavia”
HARGA = “75900”
ElseIf S = “EDP” Then
JB = “ELEKTRONIK DATA PROCESSING”
PENG = “Imam Tarmizi”
HARGA = “62000”
ElseIf S = “MNJ” Then
JB = “MANAJEMEN”
PENG = “Valentina Mariana Adiwianti”
HARGA = “42000”
ElseIf S = “CDR” Then
JB = “COREL DRAW”
PENG = “Riyan Suhandi”
HARGA = “53000”
ElseIf S = “RPL” Then
JB = “REKAYASA PERANGKAT LUNAK”
PENG = “Sinta Umpu Singa”
HARGA = “83000”
End If
Txtjb = JB
Txtpeng = PENG
Txtharga = HARGA

S = Left(Cbokode, 1)
If S = “A” Then
PENERBIT = “ANDI OFFSET YOGYAKARTA”
ElseIf S = “I” Then
PENERBIT = “INDAH SURABAYA”
ElseIf S = “S” Then
PENERBIT = “SALEMBA EMPAT”
ElseIf S = “E” Then
PENERBIT = “ELEK MEDIA KOMPUTINDO”
ElseIf S = “M” Then
PENERBIT = “MAXICOM”
End If
Txttt = “20” & Right(Cbokode, 2)
Txtpenerbit = PENERBIT
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

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s