1.1
Private Sub cbonpm_Click()
Dim NM, JR As String
Select Case cbonpm.Text
Case “14100158”
NM = “RICKY SETIAWAN”
JR = “SISTEM INFORMASI”
Case “14100159”
NM = “YANTI APRILDA”
JR = “SISTEM INFORMASI”
Case “14100131”
NM = “ASIAH”
JR = “SISTEM INFORMASI”
Case “14100185”
NM = “LUKAS PRASTOWO”
JR = “SISTEM INFORMASI”
Case “14100097”
NM = “IMAM RAIS”
JR = “SISTEM INFORMASI”
Case “14100063”
NM = “MIFTAHUDIN KARIM”
JR = “SISTEM INFORMASI”
Case “14100161”
NM = “ISMA ROBI”
JR = “SISTEM INFORMASI”
Case “14201008”
NM = “RAHAYU SAPUTRI”
JR = “MANAJEMEN INFORMATIKA”
Case “14201016”
NM = “ENDANG SAWITRI”
JR = “MANAJEMEN INFORMATIKA”
Case “14201009”
NM = “SEPTI TRIWAHYUNI”
JR = “MANAJEMEN INFORMATIKA”
End Select
txtnama = NM
txtjur = JR
txtquis.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnama.Text = “”
txtjur.Text = “”
txtquis.Text = “”
txttugas.Text = “”
txtuts.Text = “”
txtuas.Text = “”
txtna.Text = “”
txtmutu.Text = “”
cmbnpm.Text = “”
cmbnpm.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis.Text)
TUGAS = Val(txttugas.Text)
UTS = Val(txtuts.Text)
UAS = Val(txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
txtmutu.Text = HM
End Sub
Private Sub Form_Load()
cbonpm.AddItem “14201007”
cbonpm.AddItem “14100061”
cbonpm.AddItem “14100060”
cbonpm.AddItem “14100142”
cbonpm.AddItem “14100153”
cbonpm.AddItem “14100132”
cbonpm.AddItem “14100124”
cbonpm.AddItem “14201012”
cbonpm.AddItem “14100127”
cbonpm.AddItem “14201002”
End Sub
Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis.Text)
TUGAS = Val(txttugas.Text)
UTS = Val(txtuts.Text)
UAS = Val(txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
txtmutu.Text = HM
End If
End Sub
Private Sub txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
Private Sub cboNPM_Click()
Dim NM, JR As String
Select Case cboNPM.Text
Case “14201007”
NM = “RICKY SETIAWAN”
JR = “SISTEM INFORMASI”
Case “14100159”
NM = “YANTI APRILDA”
JR = “SISTEM INFORMASI”
Case “14100131”
NM = “ASIAH”
JR = “SISTEM INFORMASI”
Case “14100185”
NM = “LUKAS PRASTOWO”
JR = “SISTEM INFORMASI”
Case “14100097”
NM = “IMAM RAIS”
JR = “SISTEM INFORMASI”
Case “14100063”
NM = “MIFTAHUDIN KARIM”
JR = “SISTEM INFORMASI”
Case “14100161”
NM = “ISMA ROBI”
JR = “SISTEM INFORMASI”
Case “14201008”
NM = “RAHAYU SAPUTRI”
JR = “MANAJEMEN INFORMATIKA”
Case “14201016”
NM = “ENDANG SAWITRI”
JR = “MANAJEMEN INFORMATIKA”
Case “14201009”
NM = “SEPTI TRIWAHYUNI”
JR = “MANAJEMEN INFORMATIKA”
End Select
txtnama = NM
txtjur = JR
txtquis.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnama.Text = “”
txtjur.Text = “”
txtquis.Text = “”
txttugas.Text = “”
txtuts.Text = “”
txtuas.Text = “”
txtna.Text = “”
txtmutu.Text = “”
cmbnpm.Text = “”
cmbnpm.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis.Text)
TUGAS = Val(txttugas.Text)
UTS = Val(txtuts.Text)
UAS = Val(txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
txtmutu.Text = HM
End Sub
Private Sub Form_Load()
cbonpm.AddItem “14201009”
cbonpm.AddItem “14100097”
cbonpm.AddItem “14100161”
cbonpm.AddItem “14100159”
cbonpm.AddItem “14100158”
cbonpm.AddItem “14100131”
cbonpm.AddItem “14100063”
cbonpm.AddItem “14201008”
cbonpm.AddItem “14201016”
cbonpm.AddItem “14100185”
End Sub
Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis.Text)
TUGAS = Val(txttugas.Text)
UTS = Val(txtuts.Text)
UAS = Val(txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
txtmutu.Text = HM
End If
End Sub
Private Sub txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
pegawaii
Private Sub cmbbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub
Private Sub cmbkeluar_Click()
End
End Sub
Private Sub cmblagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
cbogolongan = “”
txtgapok = “”
txttunjangan = “”
txtpajak = “”
txttotal = “”
End Sub
Private Sub Form_load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub
Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total – pajak
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
npm
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “01” Then
txtps.Text = “Strata Satu”
ElseIf S = “02” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “03” Then
txtps.Text = “Diploma Empat”
ElseIf S = “04” Then
txtps.Text = “Diploma Dua”
End If
txtnu.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub
Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprogram.Text = “”
txttahun.Text = “”
txturut.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprogram.Text = “”
txttahun.Text = “”
txturut.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
txtprogram.Text = “Strata Satu”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
txtprogram.Text = “Diploma Tiga”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
txtprogram.Text = “Diploma Empat”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
txtprogram.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 5)
End Sub
Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprogram.Text = “”
txttahun.Text = “”
txturut.Text = “”
End Sub
Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub
laptop
Private Sub Combo1_Click()
Select Case Combo1.Text
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “128000000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “158000000”
Case “Apple MC968 Macbook Air”
Text1.Text = “Apple Macbook Air MC968”
Text2.Text = “99000000”
Case “Apple MC969 Macbook Air”
Text1.Text = “Apple Macbook Air MC969”
Text2.Text = “119000000”
Case “Apple MC700 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC700”
Text2.Text = “108000000”
Case “Apple MC721 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC721”
Text2.Text = “159000000”
Case “Apple MC723 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC723”
Text2.Text = “193000000”
Case “Apple MC724 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC724”
Text2.Text = “137000000”
Case “Apple MC311 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC311”
Text2.Text = “242000000”
Case “Apple MC313 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC313”
Text2.Text = “119000000”
Case “Apple MC314 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC314”
Text2.Text = “147000000”
Case “Apple MC318 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC318”
Text2.Text = “176000000”
Case “Apple MC322 Macbook Pro”
Text1.Text = “Apple Macbook Pro MC322”
Text2.Text = “213000000”
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “128000000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “158000000”
End Select
End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 140000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 135000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 130000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 125000000 Then
Text5.Text = Val(Text4.Text) * 0.02
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub
Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem “Apple MC965 Macbook Air”
Combo1.AddItem “Apple MC966 Macbook Air”
Combo1.AddItem “Apple MC968 Macbook Air”
Combo1.AddItem “Apple MC969 Macbook Air”
Combo1.AddItem “Apple MC700 Macbook Pro”
Combo1.AddItem “Apple MC721 Macbook Pro”
Combo1.AddItem “Apple MC723 Macbook Pro”
Combo1.AddItem “Apple MC724 Macbook Pro”
Combo1.AddItem “Apple MC311 Macbook Pro”
Combo1.AddItem “Apple MC313 Macbook Pro”
Combo1.AddItem “Apple MC314 Macbook Pro”
Combo1.AddItem “Apple MC318 Macbook Pro”
Combo1.AddItem “Apple MC322 Macbook Pro”
Combo1.AddItem “Apple MC965 Macbook Air”
Combo1.AddItem “Apple MC966 Macbook Air”
End Sub
Private Sub text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
JUAL LAPTOP
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 140000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 135000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 130000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 125000000 Then
Text5.Text = Val(Text4.Text) * 0.02
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub
penjualan komputer
Private Sub Combo1_Click()
Select Case Combo1.Text
Case “P205”
Text1.Text = “pentiumII 500 Mega Hz”
Text2.Text = “1500000”
Case “P308”
Text1.Text = “pentiumIII 800 Mega Hz”
Text2.Text = “2100000”
Case “P310”
Text1.Text = “pentiumIII 1.0 Giga Hz”
Text2.Text = “3500000”
Case “P415”
Text1.Text = “pentiumIV 1.5 Giga Hz”
Text2.Text = “4000000”
Case “P417”
Text1.Text = “pentiumIV 1.7 Giga Hz”
Text2.Text = “4200000”
Case “P419”
Text1.Text = “pentiumIV 1.9 Giga Hz”
Text2.Text = “5500000”
End Select
End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 25000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 20000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 15000000 Then
Text5.Text = Val(Text4.Text) * 0.2
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub
Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem “P205”
Combo1.AddItem “P308”
Combo1.AddItem “P310”
Combo1.AddItem “P415”
Combo1.AddItem “P417”
Combo1.AddItem “P419”
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 25000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 20000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 15000000 Then
Text5.Text = Val(Text4.Text) * 0.2
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End If
End Sub
data buku stmik
Private Sub Command1_Click()
Dim A, B, C, D As String
Dim H As Double
Text3.Text = “20” & Right(Combo1.Text, 2)
A = Mid(Combo1.Text, 3, 3)
If A = “SIM” Then
B = “SISTEM INFORMASI MANAJEMEN”
C = “YATI NUR OKTAVIA”
H = “75900”
ElseIf A = “MNJ” Then
B = “MANAJEMEN”
C = “VALENTINA MARIANA ADIWIANTI”
H = “42000”
ElseIf A = “EDP” Then
B = “ELECTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
H = ” 62000″
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHANDI”
H = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINGA”
H = “83000”
End If
Text1.Text = B
Text2.Text = C
Text5.Text = H
D = Left(Combo1.Text, 1)
If D = “A” Then
Text4.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
Text4.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
Text4.Text = “MAXICOM”
ElseIf D = “S” Then
Text4.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
Text4.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub
Private Sub Command3_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem “A-SIM-01”
Combo1.AddItem “I-EDP-02”
Combo1.AddItem “S-MNJ-03”
Combo1.AddItem “E-CDR-04”
Combo1.AddItem “M-RPL-05”
End Sub
tiket kereta
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim JK As String
Dim HT, JB As Variant
A = Left(txtkt, 3)
If A = “BIM” Then
JK = “BIMA”
HT = “50000”
JB = “16.00”
ElseIf A = “EKO” Then
JK = “EKONOMI”
HT = “35000”
JB = “19.00”
ElseIf A = “MUT” Then
JK = “MUTIARA”
HT = “23000”
JB = “17.00”
ElseIf A = “SEN” Then
JK = “SENJA”
HT = “15.000”
JB = “20.00”
End If
txtht.Text = HT
txtjk.Text = JK
txtjb.Text = JB
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub
Private Sub txtkt_KeyPress(KeyAscii As Integer)
If keyascci = 13 Then
txtjt.SetFocus
End If
End Sub
Private Sub cmdbatal_Click()
txtkode.SetFocus
txtkode = “”
txtjudul = “”
txtpengarang = “”
txttahun = “”
txtpenerbit = “”
txtharga = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode.SetFocus
txtkode = “”
txtjudul = “”
txtpengarang = “”
txttahun = “”
txtpenerbit = “”
txtharga = “”
End Sub
Private Sub cmdproses_Click()
Dim JB, PG, PR As String
Dim TT, HR As Variant
A = Left(txtkode.Text, 3)
If A = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Fadiya Ulfa”
HR = “75900”
ElseIf A = “EDP” Then
JB = “Elektronik Data Processing”
PG = “Nurul Agustina”
HR = “62000”
ElseIf A = “MNJ” Then
JB = “Manajemen”
PG = “Rina Hidayat”
HR = “42000”
ElseIf A = “CDR” Then
JB = “Corel Draw”
PG = “Siti Nur Khotimah”
HR = “53000”
ElseIf A = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Winda Erlianti”
HR = “83000”
End If
txtjudul.Text = JB
txtpengarang.Text = PG
txtharga.Text = HR
txttahun.Text = “20” & Mid(txtkode.Text, 5, 2)
B = Right(txtkode.Text, 1)
If B = “A” Then
PR = “Andi Offset Yogyakarta”
ElseIf B = “I” Then
PR = “Indah Surabaya”
ElseIf B = “S” Then
PR = “Salemba Empat”
ElseIf B = “E” Then
PR = “Elek Media Koputindo”
ElseIf B = “M” Then
PR = “Maxicom”
End If
txtpenerbit.Text = PR
End Sub