TUGAS 5 DATA KARYAWAN

PEGAWAI 1 PEGWAI 2

Private Sub bt_Click()
gl.SetFocus
gl.Text = “”
ks.Text = “”
st.Text = “”
th.Text = “”
jb.Text = “”
bg.Text = “”
gj.Text = “”
tj.Text = “”
tg.Text = “”
nm.Text = “”
nik.Text = “”
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
gl.SetFocus
gl.Text = “”
ks.Text = “”
st.Text = “”
th.Text = “”
jb.Text = “”
bg.Text = “”
gj.Text = “”
tj.Text = “”
tg.Text = “”
nm.Text = “”
nik.Text = “”
End Sub

Private Sub nik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim A As String
gl.Text = Mid(nik.Text, 5, 1)
ks.Text = Mid(nik.Text, 7, 1)
th.Text = Left(nik.Text, 4)

A = Mid(nik.Text, 7, 1)
If A = “S” Then
st.Text = “Single”
ElseIf A = “M” Then
st.Text = “Menikah”
ElseIf A = “J” Then
st.Text = “Janda”
ElseIf A = “D” Then
st.Text = “Duda”
End If
A = Mid(nik.Text, 5, 1)
If A = “A” Then
jb.Text = “Manager”
gj.Text = “4000000”
tj.Text = “1025000”
ElseIf A = “B” Then
jb.Text = “Ka. Seksi”
gj.Text = “3500000”
tj.Text = “975000”
ElseIf A = “C” Then
jb.Text = “Staff”
gj.Text = “3000000”
tj.Text = “925000”
End If
A = Right(nik.Text, 3)
If A = “KEU” Then
bg.Text = “Accounting”
ElseIf A = “ADM” Then
bg.Text = “Administrasi”
ElseIf A = “SDM” Then
bg.Text = “General Affair”
ElseIf A = “EDP” Then
bg.Text = “IT Unit”
ElseIf A = “SPM” Then
bg.Text = “Security”
End If
tg.Text = Val(gj.Text) + Val(tj.Text)
End If
End Sub

Private Sub nm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
nik.SetFocus
End If
End Sub

Private Sub ps_Click()
Dim A As String
gl.Text = Mid(nik.Text, 5, 1)
ks.Text = Mid(nik.Text, 7, 1)
th.Text = Left(nik.Text, 4)

A = Mid(nik.Text, 7, 1)
If A = “S” Then
st.Text = “Single”
ElseIf A = “M” Then
st.Text = “Menikah”
ElseIf A = “J” Then
st.Text = “Janda”
ElseIf A = “D” Then
st.Text = “Duda”
End If
A = Mid(nik.Text, 5, 1)
If A = “A” Then
jb.Text = “Manager”
gj.Text = “4000000”
tj.Text = “1025000”
ElseIf A = “B” Then
jb.Text = “Ka. Seksi”
gj.Text = “3500000”
tj.Text = “975000”
ElseIf A = “C” Then
jb.Text = “Staff”
gj.Text = “3000000”
tj.Text = “925000”
End If
A = Right(nik.Text, 3)
If A = “KEU” Then
bg.Text = “Accounting”
ElseIf A = “ADM” Then
bg.Text = “Administrasi”
ElseIf A = “SDM” Then
bg.Text = “General Affair”
ElseIf A = “EDP” Then
bg.Text = “IT Unit”
ElseIf A = “SPM” Then
bg.Text = “Security”
End If
tg.Text = Val(gj.Text) + Val(tj.Text)
End Sub

Iklan

TUGAS 5 DATA BUKU PERPUSTAKAAN

BUKU 1 BUKU 2

Private Sub bt_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
pg.Text = “”
tt.Text = “”
pt.Text = “”
hp.Text = “”
End Sub

Private Sub kb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 7, 2)
ps = Mid(kb.Text, 3, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
pg.Text = “Yati Nur Oktavia”
hp.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
pg.Text = “Imam Tarmizi”
hp.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
pg.Text = “Valentina Mariana Adiwianti”
hp.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
pg.Text = “Riyan Suhandi”
hp.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
pg.Text = “Sinta Umpu Singa”
hp.Text = “83000”
End If
pr = Left(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End If
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
pg.Text = “”
tt.Text = “”
pt.Text = “”
hp.Text = “”
End Sub

Private Sub ps_Click()
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 7, 2)
ps = Mid(kb.Text, 3, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
pg.Text = “Andra Setiwan”
hp.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
pg.Text = “Desi Istiqomah”
hp.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
pg.Text = “Sandy Fitrajaya”
hp.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
pg.Text = “Tri Indah Sari”
hp.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
pg.Text = “Ernita Sari”
hp.Text = “83000”
End If
pr = Left(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End Sub

TUGAS 5 DATA PENJUALAN LAPTOP

PENJUALAN 1 PENJUALAN 2

Private Sub ds_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tb.SetFocus
End If
End Sub

Private Sub Form_Load()
kp.AddItem “Asus A43SA”
kp.AddItem “Asus A43SD”
kp.AddItem “Asus A43SJ”
kp.AddItem “Asus A43TA”
kp.AddItem “Asus A43SL”
kp.AddItem “Apple MD311”
kp.AddItem “Apple MD313”
kp.AddItem “Apple MD314”
kp.AddItem “Apple MD322”
kp.AddItem “Apple MC965”
End Sub
Private Sub hp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ds.SetFocus
End If
End Sub

Private Sub hs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
jj.SetFocus
End If
End Sub

Private Sub ht_Click()
kp.SetFocus
kp.Text = “”
mt.Text = “”
hs.Text = “”
jj.Text = “”
hp.Text = “”
ds.Text = “”
tb.Text = “”
End Sub

Private Sub jj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
hp.SetFocus
hp.Text = Val(hs.Text) * Val(jj.Text)
End If
Select Case hp.Text
Case Is > 140000000
ds.Text = Val(hp.Text) * 0.15
Case Is > 135000000
ds.Text = Val(hp.Text) * 0.1
Case Is > 130000000
ds.Text = Val(hp.Text) * 0.05
Case Is > 125000000
ds.Text = Val(hp.Text) * 0.02
End Select
tb.Text = Val(hp.Text) – Val(ds.Text)
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub kp_Click()
If kp.Text = “Asus A43SA” Then
mt.Text = “Asus A43SA-VX090D”
hs.Text = “5500000”
ElseIf kp.Text = “Asus A43SD” Then
mt.Text = “Asus A43SD-VX052D”
hs.Text = “4500000”
ElseIf kp.Text = “Asus A43SJ” Then
mt.Text = “Asus A43SJ-VX792D”
hs.Text = “4300000”
ElseIf kp.Text = “Asus A43TA” Then
mt.Text = “Asus A43TA-VX034D”
hs.Text = “4900000”
ElseIf kp.Text = “Asus A43SL” Then
mt.Text = “Asus A43SL-VX264D”
hs.Text = “4300000”
ElseIf kp.Text = “Apple MD311” Then
mt.Text = “Apple Macbook Pro MD311”
hs.Text = “19300000”
ElseIf kp.Text = “Apple MD313” Then
mt.Text = “Apple Macbook Pro MD313”
hs.Text = “24200000”
ElseIf kp.Text = “Apple MD314” Then
mt.Text = “Apple Macbook Pro MD314”
hs.Text = “11900000”
ElseIf kp.Text = “Apple MD322” Then
mt.Text = “Apple Macbook Pro MD322”
hs.Text = “14700000”
ElseIf kp.Text = “Apple MC965” Then
mt.Text = “Apple Macbook Pro MC965”
hs.Text = “21300000”
End If
End Sub

Private Sub kp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
mt.SetFocus
End If
End Sub
Private Sub mt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
hs.SetFocus
End If
End Sub

Private Sub ps_Click()
hp.Text = Val(hs.Text) * Val(jj.Text)
Select Case hp.Text
Case Is > 140000000
ds.Text = Val(hp.Text) * 0.15
Case Is > 135000000
ds.Text = Val(hp.Text) * 0.1
Case Is > 130000000
ds.Text = Val(hp.Text) * 0.5
Case Is > 125000000
ds.Text = Val(hp.Text) * 0.2
End Select
tb.Text = Val(hp.Text) – Val(ds.Text)
End Sub

TUGAS 5 DATA BIAYA MAHASISWA

BIAYA 1 BIAYA 2

Private Sub bt_Click()
nm.SetFocus
nm = ” ”
np = ” ”
jr = ” ”
pr = ” ”
ta = ” ”
no = ” ”
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
nm.SetFocus
nm = ” ”
np = ” ”
jr = ” ”
pr = ” ”
ta = ” ”
no = ” ”
End Sub

Private Sub nm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
np.SetFocus
End If
End Sub

Private Sub np_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim A As String
t.Text = “20” & Left(np.Text, 2)
ps = Mid(np.Text, 3, 1)
If A = “1” Then
jr.Text = “Sistem Informasi”
ElseIf A = “2” Then
jr.Text = “Tehnik Informatika”
ElseIf A = “3” Then
jr.Text = “Manajemen Informatika”
ElseIf A = “4” Then
jr.Text = “Manajemen & Komp. Akuntansi”
End If
A = Mid(np.Text, 4, 2)
If A = “01” Then
pr.Text = “Strata Satu”
bp.Text = “1950000”
tb.Text = “Satu Juta Sembilan Ratus Lima Puluh Ribu Rupiah”
ElseIf A = “02” Then
pr.Text = “Diploma Empat”
bp.Text = “1750000”
tb.Text = “Satu Juta Tujuh Ratus Lima Puluh Ribu Rupiah”
ElseIf A = “03” Then
pr.Text = “Diploma Tiga”
bp.Text = “1650000”
tb.Text = “Satu Juta Enam Ratus Lima Puluh Ribu Rupiah”
ElseIf A = “04” Then
pr.Text = “Diploma Dua”
bp.Text = “1450000”
tb.Text = “Satu Juta Empat Ratus Lima Puluh Ribu Rupiah”
End If
no.Text = Right(np.Text, 3)
End If
End Sub

Private Sub ps_Click()
Dim ps As String
t.Text = “20” & Left(np.Text, 2)
ps = Mid(np.Text, 3, 1)
If ps = “1” Then
jr.Text = “Sistem Informasi”
ElseIf ps = “2” Then
jr.Text = “Tehnik Informatika”
ElseIf ps = “3” Then
jr.Text = “Manajemen Informatika”
ElseIf ps = “4” Then
jr.Text = “Manajemen & Komp. Akuntansi”
End If
pr = Mid(np.Text, 4, 2)
If pr = “01” Then
pr.Text = “Strata Satu”
bp.Text = “1950000”
tb.Text = “Satu Juta Sembilan Ratus Lima Puluh Ribu Rupiah”
ElseIf pr = “02” Then
pr.Text = “Diploma Empat”
bp.Text = “1750000”
tb.Text = “Satu Juta Tujuh Ratus Lima Puluh Ribu Rupiah”
ElseIf pr = “03” Then
pr.Text = “Diploma Tiga”
bp.Text = “1650000”
tb.Text = “Satu Juta Enam Ratus Lima Puluh Ribu Rupiah”
ElseIf pr = “04” Then
pr.Text = “Diploma Dua”
bp.Text = “1450000”
tb.Text = “Satu Juta Empat Ratus Lima Puluh Ribu Rupiah”
End If
no.Text = Right(np.Text, 3)
End Sub

TUGAS 5 DATA PENDAFTARAN MAHASISWA

PENDAFTARAN 2 PENDAFTARAN1

Private Sub bt_Click()
nm.SetFocus
nm.Text = “”
npm.Text = “”
kls.Text = “”
jr.Text = “”
pr.Text = “”
tm.Text = “”
nu.Text = “”
up.Text = “”
bp.Text = “”
ub.Text = “”
ba.Text = “”
tb.Text = “”
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
nm.SetFocus
nm.Text = “”
npm.Text = “”
kls.Text = “”
jr.Text = “”
pr.Text = “”
tm.Text = “”
nu.Text = “”
up.Text = “”
bp.Text = “”
ub.Text = “”
ba.Text = “”
tb.Text = “”
End Sub

Private Sub nm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
npm.SetFocus
End If
End Sub

Private Sub npm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim A As String
A = Left(npm.Text, 1)
If A = “E” Then
kls.Text = “Eksekutif”
ba.Text = “600000”
ub.Text = “1250000”
ba.Text = “600000”
ElseIf A = “R” Then
kls.Text = “Reguler”
ba.Text = “600000”
ub.Text = “1000000”
ba.Text = “600000”
End If
tm.Text = “20” & Mid(npm.Text, 3, 2)
nu.Text = Right(npm.Text, 3)
A = Mid(npm.Text, 5, 1)
If A = “1” Then
jr.Text = “Sistem Informasi”
ElseIf A = “2” Then
jr.Text = “Managemen Informatika”
ElseIf A = “3” Then
jr.Text = “Managemen dan Komp. Akuntansi”
End If
A = Mid(npm.Text, 6, 2)
If A = “01” Then
pr.Text = “Strata Satu”
up.Text = “200000”
ElseIf A = “02” Then
pr.Text = “Diploma Tiga”
up.Text = “150000”
ElseIf A = “03” Then
pr.Text = “Diploma Satu”
up.Text = “150000”
End If
A = Left(npm.Text, 1) & Mid(npm.Text, 6, 2)
If A = “E” & “01” Then
bp.Text = “1900000”
ElseIf A = “E” & “02” Then
bp.Text = “1650000”
ElseIf A = “E” & “03” Then
bp.Text = “1350000”
ElseIf A = “R” & “01” Then
bp.Text = “1500000”
ElseIf A = “R” & “02” Then
bp.Text = “1250000”
ElseIf A = “R” & “03” Then
bp.Text = “1250000”
End If
tb.Text = Val(up.Text) + Val(bp.Text) + Val(ub.Text) + Val(ba.Text)
End If
End Sub

Private Sub ps_Click()
Dim A As String
A = Left(npm.Text, 1)
If A = “E” Then
kls.Text = “Eksekutif”
ba.Text = “600000”
ub.Text = “1250000”
ba.Text = “600000”
ElseIf A = “R” Then
kls.Text = “Reguler”
ba.Text = “600000”
ub.Text = “1000000”
ba.Text = “600000”
End If
tm.Text = “20” & Mid(npm.Text, 3, 2)
nu.Text = Right(npm.Text, 3)
A = Mid(npm.Text, 5, 1)
If A = “1” Then
jr.Text = “Sistem Informasi”
ElseIf A = “2” Then
jr.Text = “Managemen Informatika”
ElseIf A = “3” Then
jr.Text = “Managemen dan Komp. Akuntansi”
End If
A = Mid(npm.Text, 6, 2)
If A = “01” Then
pr.Text = “Strata Satu”
up.Text = “200000”
ElseIf A = “02” Then
pr.Text = “Diploma Tiga”
up.Text = “150000”
ElseIf A = “03” Then
pr.Text = “Diploma Satu”
up.Text = “150000”
End If
A = Left(npm.Text, 1) & Mid(npm.Text, 6, 2)
If A = “E” & “01” Then
bp.Text = “1900000”
ElseIf A = “E” & “02” Then
bp.Text = “1650000”
ElseIf A = “E” & “03” Then
bp.Text = “1350000”
ElseIf A = “R” & “01” Then
bp.Text = “1500000”
ElseIf A = “R” & “02” Then
bp.Text = “1250000”
ElseIf A = “R” & “03” Then
bp.Text = “1250000”
End If
tb.Text = Val(up.Text) + Val(bp.Text) + Val(ub.Text) + Val(ba.Text)
End Sub

TUGAS 4 NO 10 DATA BUKU 2

DATA BUKU2

Private Sub bt_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
pg.Text = “”
tt.Text = “”
pt.Text = “”
hp.Text = “”
End Sub

Private Sub kb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 7, 2)
ps = Mid(kb.Text, 3, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
pg.Text = “Yati Nur Oktavia”
hp.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
pg.Text = “Imam Tarmizi”
hp.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
pg.Text = “Valentina Mariana Adiwianti”
hp.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
pg.Text = “Riyan Suhandi”
hp.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
pg.Text = “Sinta Umpu Singa”
hp.Text = “83000”
End If
pr = Left(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End If
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
pg.Text = “”
tt.Text = “”
pt.Text = “”
hp.Text = “”
End Sub

Private Sub ps_Click()
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 7, 2)
ps = Mid(kb.Text, 3, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
pg.Text = “Yati Nur Oktavia”
hp.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
pg.Text = “Imam Tarmizi”
hp.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
pg.Text = “Valentina Mariana Adiwianti”
hp.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
pg.Text = “Riyan Suhandi”
hp.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
pg.Text = “Sinta Umpu Singa”
hp.Text = “83000”
End If
pr = Left(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End Sub

TUGAS 4 N0 9 DATA BUKU 1

DATA BUKU 1

Private Sub bt_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
p.Text = “”
tt.Text = “”
pt.Text = “”
hr.Text = “”
End Sub

Private Sub kb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 5, 2)
ps = Mid(kb.Text, 1, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
p.Text = “Fadiya Ulfa”
hr.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
p.Text = “Nurul Agustina”
hr.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
p.Text = “Rian Hidayat”
hr.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
p.Text = “Siti Nur Khotimah”
hr.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
p.Text = “Winda Erlianti”
hr.Text = “83000”
End If
pr = Right(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End If
End Sub

Private Sub kl_Click()
End
End Sub

Private Sub lg_Click()
kb.SetFocus
kb.Text = “”
jb.Text = “”
p.Text = “”
tt.Text = “”
pt.Text = “”
hr.Text = “”
End Sub

Private Sub ps_Click()
Dim ps As String
tt.Text = “20” & Mid(kb.Text, 5, 2)
ps = Mid(kb.Text, 1, 3)
If ps = “SIM” Then
jb.Text = “Sistem Informasi Manajemen”
p.Text = “Fadiya Ulfa”
hr.Text = “75900”
ElseIf ps = “EDP” Then
jb.Text = “Elektronik Data Processing”
p.Text = “Nurul Agustina”
hr.Text = “62000”
ElseIf ps = “MNJ” Then
jb.Text = “Manajemen”
p.Text = “Rian Hidayat”
hr.Text = “42000”
ElseIf ps = “CDR” Then
jb.Text = “Corel Draw”
p.Text = “Siti Nur Khotimah”
hr.Text = “53000”
ElseIf ps = “RPL” Then
jb.Text = “Rekayasa Perangkat Lunak”
p.Text = “Winda Erlianti”
hr.Text = “83000”
End If
pr = Right(kb.Text, 1)
If pr = “A” Then
pt.Text = “Andi Offset Yogyakarta”
ElseIf pr = “I” Then
pt.Text = “Indah Surabaya”
ElseIf pr = “S” Then
pt.Text = “Salemba Empat”
ElseIf pr = “E” Then
pt.Text = “Elek Media Komputindo”
ElseIf pr = “M” Then
pt.Text = “Maxicom”
End If
End Sub