TUGAS_3_6
Private Sub cmdbatal_Click()
Txtkode = ””
Txtjudul = ””
Txtpengarang = ””
Txtterbit = ””
Txtpenerbit = ””
Txtharga = “”
Txtkode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
Txtkode = ””
Txtjudul = ””
Txtpengarang = ””
Txtterbit = ””
Txtpenerbit = ””
Txtharga = “”
Txtkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim P, JB, PENG, HAR, PENER As String
Txtterbit.Text = "20" & Mid(txtkode.Text, 5,2)
P = Left(txtkode.Text, 3)
If P = " SIM"
Or P = “ sim” Then
JB = "Sistem
Informasi Manajemen"
PENG = "Fadiya
Ulfa"
HAR = "75900"
ElseIf P = "EDP" Or P = “edp” Then
JB = " Elektronik
Data Processing"
PENG = " Nurul
Agustina"
HAR = "62000"
ElseIf P = "MNJ" Or P = “mnj” Then
JB =
"Manajemen"
PENG = "Rian
Hidayat"
HAR = "42000"
ElseIf P = "CDR " Or P = “cdr” Then
JB = " COREL
Draw"
PENG = "Siti Nur
Khotimah"
HAR = "53000"
ElseIf P = "RPL" Or P = “rpl” Then
JB = "Rekayasa
Prangkat Lunak"
PENG = "Winda
Erlanti"
HAR = "83000"
End If
Txtjudul.Text = JB
Txtpengarang.Text = PENG
Txtharga.Text = HAR
P = Right(txtkode.Text, 1)
If P = "A" Or P= “a” Then
PENER = "Andi Officet Yogyakarta"
Elseif P = "I" Or P = “i” Then
PENER= " Indah Surabaya"
Elseif P = "S" Or P = “s” Then
PENER= " Salemba Empat"
Elseif = "E"
Or = “e” Then
PENER= " Elek Media Komputindo"
Elseif P = "M" Or P = “m” Then
PENER= " Maxicom"
End If
txtpenerbit.Text= PENER
End Sub
Private Sub Form_Active()
Txtkode = ””
Txtjudul = ””
Txtpengarang = ””
Txtterbit = ””
Txtpenerbit = ””
Txtharga = “”
Txtkode.SetFocus
End Sub
Komentar
Posting Komentar