TUGAS DATABASE 10 PROGRAM

skrin program 1
Private Sub Cmdbatal_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogol.Text = “”
Textgajip.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogol.Text = “”
Textgajip.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub cbogol_Click()
Dim gajip, pajak, tunjangan, total As Variant
Select Case cbogol.Text
Case “I”
gajip = 1500000
tunjangan = 150000
Case “II”
gajip = 2000000
tunjangan = 200000
Case “III”
gajip = 2500000
tunjangan = 250000
Case “IV”
gajip = 3000000
tunjangan = 300000
Case Else
gajip = 0
tunjangan = 0
End Select
total = gajip + tunjangan
pajak = total * 0.1
Textgajip.Text = gajip
Texttunjangan.Text = tunjangan
Textpajak.Text = pajak
Texttotal.Text = total – pajak
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
Private Sub Textnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnama.SetFocus
End If
End Sub

skrin program 2
Private Sub cmdbatal_Click()
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogram = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogram = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim jur As String
Dim ps As String
Dim M As String
M = Mid(Textnpm, 3, 1)
If M = 1 Then
jur = “sistem informasi”
ElseIf M = 2 Then
jur = “teknik informatika”
ElseIf M = 3 Then
jur = “menejemen informatika”
ElseIf M = 4 Then
jur = “komputer akuntansi”
End If
Textjurusan = jur

M = Mid(Textnpm, 4, 2)
If M = “01” Then
ps = “strata 1”
ElseIf M = “02” Then
ps = “diploma 4”
ElseIf M = “03” Then
ps = “diploma 3”
ElseIf M = “04” Then
ps = “diploma 2”
End If
Textprogram = ps
Texttahun = “20” & Left(Textnpm, 2)
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

skrin program 3

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogdi = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdkeluar_click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogdi = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim k As String
k = Mid(Textnpm, 3, 3)
If k = “100” Then
Textjurusan = “sistem informasi”
Textprogdi = “strata 1”
ElseIf k = “200” Then
Textjurusan = “manajemen informatika”
Textprogdi = “diploma 4”
ElseIf k = “300” Then
Textjurusan = “teknik informatika”
Textprogdi = “diploma 3”
ElseIf k = “400” Then
Textjurusan = “komputer akutansi”
Textprogdi = “diploma 2”
End If
Texttahun = “20” & Left(Textnpm, 2)
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

skrin program 4
Private Sub Cbocode_Click()
Dim merk, hs As String
Select Case Cbocode
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966”
merk = “Apple MacBook Air MC966”
hs = “15800000”
Case “MC968”
merk = “Apple MacBook Air MC968”
hs = “9900000”
Case “MC969”
merk = “Apple MacBook Air MC969”
hs = “11900000”
Case “MC700”
merk = “Apple MacBook Pro MC700”
hs = “10800000”
Case “MC721”
merk = “Apple MacBook Pro MC721”
hs = “15900000”
Case “MC723”
merk = “Apple MacBook Pro MC723”
hs = “19300000”
Case “MC724”
merk = “Apple MacBook Pro MC724”
hs = “13700000”
Case “MC311”
merk = “Apple MacBook Pro MC311”
hs = “24200000”
Case “MC313”
merk = “Apple MacBook Pro MC313”
hs = “11900000”
Case “MC314”
merk = “Apple MacBook Pro MC314”
hs = “14700000”
Case “MC318”
merk = “Apple MacBook Pro MC318”
hs = “17600000”
Case “MC322”
merk = “Apple MacBook Pro MC322”
hs = “21300000”
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966 ”
merk = “Apple MacBook Air MC966”
hs = “15800000 ”

End Select
Textmerk = merk
Textharga = hs
Textjumlah.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Textharga = “”
Textjumlah = “”
Textharpen = “”
Textdiscount = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Textharpen = Val(Textjumlah) * Val(Textharga)
If Val(Textharpen) > 140000000 Then
Textdiscount = Val(Textharga) * 15 / 100
ElseIf Val(Textharpen) > 135000000 Then
Textdiscount = Val(Textharpen) * 10 / 100
ElseIf Val(Textharpen) > 130000000 Then
Textdiscount = Val(Textharpen) * 5 / 100
ElseIf Val(Textharpen) > 125000000 Then
Textdiscount = Val(Textharpen) * 2 / 100
End If
Texttotal = Val(Textharpen) – Val(txtdiscount)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()
Cbocode.AddItem “MC965”
Cbocode.AddItem “MC966”
Cbocode.AddItem “MC968”
Cbocode.AddItem “MC969”
Cbocode.AddItem “MC700”
Cbocode.AddItem “MC721”
Cbocode.AddItem “MC723”
Cbocode.AddItem “MC724”
Cbocode.AddItem “MC311”
Cbocode.AddItem “MC313”
Cbocode.AddItem “MC314”
Cbocode.AddItem “MC318”
Cbocode.AddItem “MC322”
End Sub
Private Sub Textjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texthp.SetFocus
End If
End Sub

skrin program 5
Private Sub Cbocode_Click()
Dim jenis, hs As String
Select Case Cbocode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
Textjenis = jenis
Texths = hs
Textjumlah.SetFocus
End Sub
Private Sub Cmdclose_Click()
Form2.Show
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Cmdproses_Click()
Texthp = Val(Textjumlah) * Val(Texths)
If Val(Texthp) > “30000000” Then
Textdiscont = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > “25000000” Then
Textdiscont = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > “20000000” Then
Textdiscont = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > “15000000” Then
Textdiscont = Val(Texthp) * 2 / 100
End If
Texthb = Val(Texthp) – Val(Textdiscont)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Form_Load()
Cbocode.AddItem “P205”
Cbocode.AddItem “P308”
Cbocode.AddItem “P310”
Cbocode.AddItem “P415”
Cbocode.AddItem “P417”
Cbocode.AddItem “P419”
End Sub

skrin program 6
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Cbokode.SetFocus
Textcode = “”
Textjudul = “”
Textpengarang = “”
Texttahun = “”
Textpenerbit = “”
Textharga = “”
End Sub
Private Sub Cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String

q = Mid(Cbokode, 3, 3)
If q = “SIM” Then
judul = “Sistem informasi manajemen”
pengarang = “YatiNurOktavia”
harga = “75900”
ElseIf q = “EDP” Then
judul = “Elektronik Data Processing”
pengarang = “Imam Tarmizi”
harga = “62000”
ElseIf q = “MNJ” Then
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
harga = “42000”
ElseIf q = “CDR” Then
judul = “Corel Draw”
pengarang = “Riyan Suhandi”
harga = “53000”
ElseIf q = “RPL” Then
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
harga = “83000”
End If
Textjudul.Text = judul
Textpengarang.Text = pengarang
Textharga.Text = harga

q = Mid(Cbokode, 1, 1)
If q = “A” Then
penerbit = “Andi Offset Yogyakarta”
ElseIf q = “I” Then
penerbit = “Indah Surabaya”
ElseIf q = “S” Then
penerbit = “SalembaEmpat”
ElseIf q = “E” Then
penerbit = “Elek Media Komputindo”
ElseIf q = “M” Then
penerbit = “Maxicom”
End If
Textpenerbit.Text = penerbit
Texttahun.Text = “20” & Right(Cbokode, 2)
End Sub
Private Sub Cndbatal_Click()
Cbokode.SetFocus
Textcode = “”
Textjudul = “”
Textpengarang = “”
Texttahun = “”
Textpenerbit = “”
Textharga = “”
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()
Cbokode.AddItem “A-SIM-02”
Cbokode.AddItem “I-EDP-04”
Cbokode.AddItem “S-MNJ-06”
Cbokode.AddItem “E-CDR-08”
Cbokode.AddItem “M-RPL-12”
End Sub

skrin program 7

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textkt.SetFocus
Textkt = “”
Textht = “”
Textjk = “”
Textjb = “”
Textjt = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Textkode.Text, 3)
If S = “BIM” Then
Textjenis.Text = “BIMA”
Texthartik.Text = “50000”
Textjam.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Textjenis.Text = “EKONOMI”
Texthartik.Text = “35000”
Textjam.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Textjenis.Text = “MUTIARA”
Texthartik.Text = “23000”
Textjam.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Textjenis.Text = “SENJA”
Texthartik.Text = “15000”
Textjam.Text = “20.00 WIB”
End If
Texttotal.Text = Val(Texthartik.Text) * Val(Textjumlah.Text)
Textjumlah.SetFocus
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttotal = Val(Texthartik) * Val(Textjumlah)
End If
End Sub

skrin program 8

Private Sub Cmdbatal_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim M As String
M = Left(Textkode, 3)
If M = “SIM” Then
Textjudul.Text = “Sistem Informasi Manajemen”
Textpengarang.Text = “Fadiya Ulfa”
Textharga.Text = “75900”
ElseIf M = “EDP” Then
Textjudul.Text = “Elektronik Data Processing”
Textpengarang.Text = “Nurul Agustina”
Textharga.Text = “62000”
ElseIf M = “MNJ” Then
Textjudul.Text = “Manajemen”
Textpengarang.Text = “Rian Hidayat”
Textharga.Text = “42000”
ElseIf M = “CDR” Then
Textjudul.Text = “Corel Draw”
Textpengarang.Text = “Siti Nur Khotimah”
Textharga.Text = “53000”
ElseIf M = “RPL” Then
Textjjudul.Text = “Rekayasa Perangkat Lunak”
Textpengarang.Text = “Winda Erlianti”
Textharga.Text = “83000”
End If
M = Right(Textkode, 1)
If M = “A” Then
Textpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf M = “I” Then
Textpenerbit.Text = “Indah Surabaya”
ElseIf M = “S” Then
Textpenerbit.Text = “Salemba Empat”
ElseIf M = “E” Then
Textpenerbit.Text = “Elek Media Komputindo”
ElseIf M = “M” Then
Textpenerbit.Text = “Maxicom”
End If
Texttahun.Text = “20” & Mid(Textkode, 5, 2)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

skrin program 9
Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Textahun = “”
Textjabaatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Texttahun = “”
Textjabatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Mid(Textnik.Text, 5, 1)
If A = “A” Then
Textgolongan.Text = “A”
Textjabatan.Text = “MANAGER”
Textgajipok.Text = “4000000”
Texttunjangan.Text = “1025000”
ElseIf A = “B” Then
Textgolongan.Text = “B”
Textjabatan.Text = “Ka.SEKSI”
Textgajipok.Text = “3500000”
Texttunjangan.Text = “975000”
ElseIf A = “C” Then
Textgolongan.Text = “C”
Textjabatan.Text = “STAFF”
Textgajipok.Text = “3000000”
Texttunjangan.Text = “925000”
End If
A = Right(Textnik.Text, 3)
If A = “KEU” Then
Textbagian.Text = “ACCOUNTING”
ElseIf A = “ADM” Then
Textbagian.Text = “ADMINISTRASI”
ElseIf A = “SDM” Then
Textbagian.Text = “GENERAL AFFAIR”
ElseIf A = “EDP” Then
Textbagian.Text = “IT UNIT”
ElseIf A = “SPM” Then
Textbagian.Text = “SECURITY”
End If
A = Mid(Textnik.Text, 7, 1)
If A = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf A = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf A = “J” Then
kode = “J”
Status = “JANDA”
ElseIf A = “D” Then
kode = “D”
Status = “DUDA”
End If
Textkodeset.Text = kode
Textstatus.Text = Status
Texttahun.Text = Left(Textnik.Text, 4)
Texttotal.Text = Val(Textgajipok.Text) + Val(Texttunjangan.Text)
End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

ANTO 10
Private Sub Cmdadd_Click()
Data1.Recordset.addnew
Txtkode.SetFocus
End Sub

Private Sub Cmdcancel_Click()
Data1.Recordset.Delete
End Sub

Private Sub Cmdhitung_Click()
Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text)
If Val(Txtjb.Text) > “5” Then
Txtpot.Text = Val(Txtby) * 0.02
Txttb.Text = Val(Txtby.Text) – (Txtpot.Text)
End If
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdproses_Click()
Dim H, nb, hb As String

H = Mid(Txtkode, 5, 2)
If H = “SP” Or H = “sp” Then
Txtnb.Text = “Spidol”
Txthb.Text = “9500”
ElseIf H = “BT” Or H = “bt” Then
Txtnb.Text = “Buku Tulis”
Txthb.Text = “12500”
ElseIf H = “TP” Or H = “tp” Then
Txtnb.Text = “Tip EX”
Txthb.Text = “3000”
ElseIf H = “PG” Or H = “pd” Then
Txtnb.Text = “Penggaris”
Txthb.Text = “2500”
ElseIf H = “PT” Or H = “pt” Then
Txtnb.Text = “Papan Tulis”
Txthb.Text = “5000”
End If
Txtjb.SetFocus
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.Update
End Sub

Iklan

TUGAS 7, 8 DAN 9

FROM 7

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textkt.SetFocus
Textkt = “”
Textht = “”
Textjk = “”
Textjb = “”
Textjt = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim S As String
S = Left(Textkode.Text, 3)
If S = “BIM” Then
Textjenis.Text = “BIMA”
Texthartik.Text = “50000”
Textjam.Text = “16.00 WIB”
ElseIf S = “EKO” Then
Textjenis.Text = “EKONOMI”
Texthartik.Text = “35000”
Textjam.Text = “19.00 WIB”
ElseIf S = “MUT” Then
Textjenis.Text = “MUTIARA”
Texthartik.Text = “23000”
Textjam.Text = “17.00 WIB”
ElseIf S = “SEN” Then
Textjenis.Text = “SENJA”
Texthartik.Text = “15000”
Textjam.Text = “20.00 WIB”
End If
Texttotal.Text = Val(Texthartik.Text) * Val(Textjumlah.Text)
Textjumlah.SetFocus
End Sub

Private Sub Textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttotal = Val(Texthartik) * Val(Textjumlah)
End If
End Sub

ANTHO 08

Private Sub Cmdbatal_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textkode.SetFocus
Textkode.Text = “”
Textjudul.Text = “”
Textpengarang.Text = “”
Texttahun.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim M As String
M = Left(Textkode, 3)
If M = “SIM” Then
Textjudul.Text = “Sistem Informasi Manajemen”
Textpengarang.Text = “Fadiya Ulfa”
Textharga.Text = “75900”
ElseIf M = “EDP” Then
Textjudul.Text = “Elektronik Data Processing”
Textpengarang.Text = “Nurul Agustina”
Textharga.Text = “62000”
ElseIf M = “MNJ” Then
Textjudul.Text = “Manajemen”
Textpengarang.Text = “Rian Hidayat”
Textharga.Text = “42000”
ElseIf M = “CDR” Then
Textjudul.Text = “Corel Draw”
Textpengarang.Text = “Siti Nur Khotimah”
Textharga.Text = “53000”
ElseIf M = “RPL” Then
Textjjudul.Text = “Rekayasa Perangkat Lunak”
Textpengarang.Text = “Winda Erlianti”
Textharga.Text = “83000”
End If
M = Right(Textkode, 1)
If M = “A” Then
Textpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf M = “I” Then
Textpenerbit.Text = “Indah Surabaya”
ElseIf M = “S” Then
Textpenerbit.Text = “Salemba Empat”
ElseIf M = “E” Then
Textpenerbit.Text = “Elek Media Komputindo”
ElseIf M = “M” Then
Textpenerbit.Text = “Maxicom”
End If
Texttahun.Text = “20” & Mid(Textkode, 5, 2)
End Sub

ANTHO 9
Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Textahun = “”
Textjabaatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textkodeset = “”
Textstatus = “”
Texttahun = “”
Textjabatan = “”
Textbagian = “”
Textgajipok = “”
Texttunjangan = “”
Texttotal = “”
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Mid(Textnik.Text, 5, 1)
If A = “A” Then
Textgolongan.Text = “A”
Textjabatan.Text = “MANAGER”
Textgajipok.Text = “4000000”
Texttunjangan.Text = “1025000”
ElseIf A = “B” Then
Textgolongan.Text = “B”
Textjabatan.Text = “Ka.SEKSI”
Textgajipok.Text = “3500000”
Texttunjangan.Text = “975000”
ElseIf A = “C” Then
Textgolongan.Text = “C”
Textjabatan.Text = “STAFF”
Textgajipok.Text = “3000000”
Texttunjangan.Text = “925000”
End If
A = Right(Textnik.Text, 3)
If A = “KEU” Then
Textbagian.Text = “ACCOUNTING”
ElseIf A = “ADM” Then
Textbagian.Text = “ADMINISTRASI”
ElseIf A = “SDM” Then
Textbagian.Text = “GENERAL AFFAIR”
ElseIf A = “EDP” Then
Textbagian.Text = “IT UNIT”
ElseIf A = “SPM” Then
Textbagian.Text = “SECURITY”
End If
A = Mid(Textnik.Text, 7, 1)
If A = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf A = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf A = “J” Then
kode = “J”
Status = “JANDA”
ElseIf A = “D” Then
kode = “D”
Status = “DUDA”
End If
Textkodeset.Text = kode
Textstatus.Text = Status
Texttahun.Text = Left(Textnik.Text, 4)
Texttotal.Text = Val(Textgajipok.Text) + Val(Texttunjangan.Text)
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnik.SetFocus
End If
End Sub

PROGAM 4, 5, 6

form 4
Private Sub Cbocode_Click()
Dim merk, hs As String
Select Case Cbocode
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966”
merk = “Apple MacBook Air MC966”
hs = “15800000”
Case “MC968”
merk = “Apple MacBook Air MC968”
hs = “9900000”
Case “MC969”
merk = “Apple MacBook Air MC969”
hs = “11900000”
Case “MC700”
merk = “Apple MacBook Pro MC700”
hs = “10800000”
Case “MC721”
merk = “Apple MacBook Pro MC721”
hs = “15900000”
Case “MC723”
merk = “Apple MacBook Pro MC723”
hs = “19300000”
Case “MC724”
merk = “Apple MacBook Pro MC724”
hs = “13700000”
Case “MC311”
merk = “Apple MacBook Pro MC311”
hs = “24200000”
Case “MC313”
merk = “Apple MacBook Pro MC313”
hs = “11900000”
Case “MC314”
merk = “Apple MacBook Pro MC314”
hs = “14700000”
Case “MC318”
merk = “Apple MacBook Pro MC318”
hs = “17600000”
Case “MC322”
merk = “Apple MacBook Pro MC322”
hs = “21300000”
Case “MC965”
merk = “Apple MacBook Air MC965”
hs = “12800000”
Case “MC966 ”
merk = “Apple MacBook Air MC966”
hs = “15800000 ”

End Select
Textmerk = merk
Textharga = hs
Textjumlah.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Textharga = “”
Textjumlah = “”
Textharpen = “”
Textdiscount = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Textharpen = Val(Textjumlah) * Val(Textharga)
If Val(Textharpen) > 140000000 Then
Textdiscount = Val(Textharga) * 15 / 100
ElseIf Val(Textharpen) > 135000000 Then
Textdiscount = Val(Textharpen) * 10 / 100
ElseIf Val(Textharpen) > 130000000 Then
Textdiscount = Val(Textharpen) * 5 / 100
ElseIf Val(Textharpen) > 125000000 Then
Textdiscount = Val(Textharpen) * 2 / 100
End If
Texttotal = Val(Textharpen) – Val(txtdiscount)
End Sub

Private Sub Form_Load()
Cbocode.AddItem “MC965”
Cbocode.AddItem “MC966”
Cbocode.AddItem “MC968”
Cbocode.AddItem “MC969”
Cbocode.AddItem “MC700”
Cbocode.AddItem “MC721”
Cbocode.AddItem “MC723”
Cbocode.AddItem “MC724”
Cbocode.AddItem “MC311”
Cbocode.AddItem “MC313”
Cbocode.AddItem “MC314”
Cbocode.AddItem “MC318”
Cbocode.AddItem “MC322”
End Sub
Private Sub Textjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texthp.SetFocus
End If
End Sub

form 5
Private Sub Cbocode_Click()
Dim jenis, hs As String
Select Case Cbocode
Case “P205”
jenis = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz ”
hs = “2100000 ”
Case “P310”
jenis = “pentium III 1.0 Giga Hz”
hs = “3500000 ”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
hs = “4000000 ”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
hs = “4200000 ”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
hs = “5500000 ”
End Select
Textjenis = jenis
Texths = hs
Textjumlah.SetFocus
End Sub
Private Sub Cmdclose_Click()
End
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Cmdproses_Click()
Texthp = Val(Textjumlah) * Val(Texths)
If Val(Texthp) > “30000000” Then
Textdiscont = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > “25000000” Then
Textdiscont = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > “20000000” Then
Textdiscont = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > “15000000” Then
Textdiscont = Val(Texthp) * 2 / 100
End If
Texthb = Val(Texthp) – Val(Textdiscont)
End Sub

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjenis = “”
Texths = “”
Textjumlah = “”
Textdiskont = “”
Texthb = “”
End Sub

Private Sub Form_Load()
Cbocode.AddItem “P205”
Cbocode.AddItem “P308”
Cbocode.AddItem “P310”
Cbocode.AddItem “P415”
Cbocode.AddItem “P417”
Cbocode.AddItem “P419”
End Sub

form 6
Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Cbokode.SetFocus
Textcode = “”
Textjudul = “”
Textpengarang = “”
Texttahun = “”
Textpenerbit = “”
Textharga = “”
End Sub
Private Sub Cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String

q = Mid(Cbokode, 3, 3)
If q = “SIM” Then
judul = “Sistem informasi manajemen”
pengarang = “YatiNurOktavia”
harga = “75900”
ElseIf q = “EDP” Then
judul = “Elektronik Data Processing”
pengarang = “Imam Tarmizi”
harga = “62000”
ElseIf q = “MNJ” Then
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
harga = “42000”
ElseIf q = “CDR” Then
judul = “Corel Draw”
pengarang = “Riyan Suhandi”
harga = “53000”
ElseIf q = “RPL” Then
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
harga = “83000”
End If
Textjudul.Text = judul
Textpengarang.Text = pengarang
Textharga.Text = harga

q = Mid(Cbokode, 1, 1)
If q = “A” Then
penerbit = “Andi Offset Yogyakarta”
ElseIf q = “I” Then
penerbit = “Indah Surabaya”
ElseIf q = “S” Then
penerbit = “SalembaEmpat”
ElseIf q = “E” Then
penerbit = “Elek Media Komputindo”
ElseIf q = “M” Then
penerbit = “Maxicom”
End If
Textpenerbit.Text = penerbit
Texttahun.Text = “20” & Right(Cbokode, 2)
End Sub
Private Sub Cndbatal_Click()
Cbokode.SetFocus
Textcode = “”
Textjudul = “”
Textpengarang = “”
Texttahun = “”
Textpenerbit = “”
Textharga = “”
End Sub
Private Sub Form_Load()
Cbokode.AddItem “A-SIM-02”
Cbokode.AddItem “I-EDP-04”
Cbokode.AddItem “S-MNJ-06”
Cbokode.AddItem “E-CDR-08”
Cbokode.AddItem “M-RPL-12”
End Sub

TUGAS 9 PROGRAM

FROM 1
Private Sub Cmdbatal_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogol.Text = “”
Textgajip.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogol.Text = “”
Textgajip.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub cbogol_Click()
Dim gajip, pajak, tunjangan, total As Variant
Select Case cbogol.Text
Case “I”
gajip = 1500000
tunjangan = 150000
Case “II”
gajip = 2000000
tunjangan = 200000
Case “III”
gajip = 2500000
tunjangan = 250000
Case “IV”
gajip = 3000000
tunjangan = 300000
Case Else
gajip = 0
tunjangan = 0
End Select
total = gajip + tunjangan
pajak = total * 0.1
Textgajip.Text = gajip
Texttunjangan.Text = tunjangan
Textpajak.Text = pajak
Texttotal.Text = total – pajak
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
Private Sub Textnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnama.SetFocus
End If
End Sub

anto 2
Private Sub cmdbatal_Click()
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogram = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogram = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim jur As String
Dim ps As String
Dim M As String
M = Mid(Textnpm, 3, 1)
If M = 1 Then
jur = “sistem informasi”
ElseIf M = 2 Then
jur = “teknik informatika”
ElseIf M = 3 Then
jur = “menejemen informatika”
ElseIf M = 4 Then
jur = “komputer akuntansi”
End If
Textjurusan = jur

M = Mid(Textnpm, 4, 2)
If M = “01” Then
ps = “strata 1”
ElseIf M = “02” Then
ps = “diploma 4”
ElseIf M = “03” Then
ps = “diploma 3”
ElseIf M = “04” Then
ps = “diploma 2”
End If
Textprogram = ps
Texttahun = “20” & Left(Textnpm, 2)
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

forrm 3

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogdi = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textprogdi = “”
Texttahun = “”
Texturut = “”
End Sub

Private Sub Cmdproses_Click()
Dim k As String
k = Mid(Textnpm, 3, 3)
If k = “100” Then
Textjurusan = “sistem informasi”
Textprogdi = “strata 1”
ElseIf k = “200” Then
Textjurusan = “manajemen informatika”
Textprogdi = “diploma 4”
ElseIf k = “300” Then
Textjurusan = “teknik informatika”
Textprogdi = “diploma 3”
ElseIf k = “400” Then
Textjurusan = “komputer akutansi”
Textprogdi = “diploma 2”
End If
Texttahun = “20” & Left(Textnpm, 2)
Texturut = Right(Textnpm, 3)
End Sub

Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

pertemuan 2

marsyanto1

Private Sub Chkbold_Click()
‘membuat teks tebal’
If Chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
‘membuat teks miring’
If Chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkstrike_Click()
‘membuat teks garis tengah
If chkstrike = 1 Then
lblteks.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
‘membuat teks garis bawah’
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub Optblue_Click()
‘membuat teks berwarna biru’
lblteks.ForeColor = vbBlue

End Sub
Private Sub optgreen_Click()
‘membuat teks berwarna hijau’
lblteks.ForeColor = vbGreen

End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah’
lblteks.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()
‘membuat teks berwarna merah’
lblteks.ForeColor = vbYellow

End Submarsiyanto

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

marsiyanto2

Private Sub Form_Load()
Cbonpm.AddItem “15100107”
Cbonpm.AddItem “15100052”
Cbonpm.AddItem “15100054”
Cbonpm.AddItem “15100056”
Cbonpm.AddItem “15100063”
Cbonpm.AddItem “15100081”
Cbonpm.AddItem “15100086”
Cbonpm.AddItem “15100043”
Cbonpm.AddItem “15100217”
Cbonpm.AddItem “15100053”
Cbonpm.AddItem “15100058”
Cbonpm.AddItem “15100073”
Cbonpm.AddItem “15100082”
Cbonpm.AddItem “15100045”
Cbonpm.AddItem “15100076”
Cbonpm.AddItem “15100057”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100067”
Cbonpm.AddItem “15100066”
Cbonpm.AddItem “15100047”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100050”
Cbonpm.AddItem “15100051”
Cbonpm.AddItem “15100074”
Cbonpm.AddItem “15100062”
Cbonpm.AddItem “15100070”
Cbonpm.AddItem “15100071”
Cbonpm.AddItem “15100080”
Cbonpm.AddItem “15100068”
Cbonpm.AddItem “15100064”
Cbonpm.AddItem “15100079”
Cbonpm.AddItem “15100061”
Cbonpm.AddItem “15100059”
Cbonpm.AddItem “15100072”
Cbonpm.AddItem “15100069”
Cbonpm.AddItem “15100055”
Cbonpm.AddItem “15100075
End Sub

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “pemerintahn”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “sistem informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “sistem informasi”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “bahasa indonesia”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “POLWAN”
Case “15100081”
nama = “ANTIA”
jurusan = “bidan”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “perikanan”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “pertanian”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “Montir”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter gigi ”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “bidan”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “perawat”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Sistem Informasi”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “akuntansi”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “Kebidanan”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “sistem informasi”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “Pertanian”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “bahasa indonesia”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “teknik sipil”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “Pendidikan matematika”
Case “15100050”
nama = “MARIKUN”
jurusan = “teknik kimia”
Case “15100051”
nama = “MARSYANTO”
jurusan = “teknik sipil”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Dokter anak”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “pendidikan bahasa indonesia”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “dokter kandungan”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “pendidikan agama islam”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “akutansi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “sistem informasi”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “pendidikan bahasa inggris”
Case “15100072”
nama = “SUSANTI”
jurusan = “pendidikan bahasa jerman”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “kebidanan”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “matematika”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “dokter hewan”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
Textquis.SetFocus
End Sub

marsiyanto4

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Textquis.Text)
TUGAS = Val(Texttugas.Text)
UTS = Val(Textuts.Text)
UAS = Val(Textuas.Text)
NA = Val(QUIS + TUGAS + UTS + UAS) / 4
Textna.Text = NA
Select Case Textna.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
Texthm.Text = HM
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “pemerintahn”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “sistem informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “sistem informasi”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “bahasa indonesia”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “POLWAN”
Case “15100081”
nama = “ANTIA”
jurusan = “bidan”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “perikanan”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “pertanian”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “Montir”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter gigi ”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “bidan”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “perawat”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Sistem Informasi”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “akuntansi”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “Kebidanan”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “sistem informasi”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “Pertanian”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “bahasa indonesia”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “teknik sipil”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “Pendidikan matematika”
Case “15100050”
nama = “MARIKUN”
jurusan = “teknik kimia”
Case “15100051”
nama = “MARSYANTO”
jurusan = “teknik sipil”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Dokter anak”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “pendidikan bahasa indonesia”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “dokter kandungan”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “pendidikan agama islam”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “akutansi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “sistem informasi”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “pendidikan bahasa inggris”
Case “15100072”
nama = “SUSANTI”
jurusan = “pendidikan bahasa jerman”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “kebidanan”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “matematika”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “dokter hewan”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
Textquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Textnama.Text = “”
Textjurusan.Text = “”
Textquis.Text = “”
Texttugas = “”
Textuts.Text = “”
Textuas.Text = “”
Textna.Text = “”
Texthm.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbonpm.AddItem “15100107”
Cbonpm.AddItem “15100052”
Cbonpm.AddItem “15100054”
Cbonpm.AddItem “15100056”
Cbonpm.AddItem “15100063”
Cbonpm.AddItem “15100081”
Cbonpm.AddItem “15100086”
Cbonpm.AddItem “15100043”
Cbonpm.AddItem “15100217”
Cbonpm.AddItem “15100053”
Cbonpm.AddItem “15100058”
Cbonpm.AddItem “15100073”
Cbonpm.AddItem “15100082”
Cbonpm.AddItem “15100045”
Cbonpm.AddItem “15100076”
Cbonpm.AddItem “15100057”
Cbonpm.AddItem “15100044”
Cbonpm.AddItem “15100067”
Cbonpm.AddItem “15100066”
Cbonpm.AddItem “15100047”
Cbonpm.AddItem “15100048”
Cbonpm.AddItem “15100050”
Cbonpm.AddItem “15100051”
Cbonpm.AddItem “15100074”
Cbonpm.AddItem “15100062”
Cbonpm.AddItem “15100070”
Cbonpm.AddItem “15100071”
Cbonpm.AddItem “15100080”
Cbonpm.AddItem “15100068”
Cbonpm.AddItem “15100064”
Cbonpm.AddItem “15100079”
Cbonpm.AddItem “15100061”
Cbonpm.AddItem “15100059”
Cbonpm.AddItem “15100072”
Cbonpm.AddItem “15100069”
Cbonpm.AddItem “15100055”
Cbonpm.AddItem “15100075”
End Sub
Private Sub Texttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuts.SetFocus
End If
End Sub

Private Sub Textquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttugas.SetFocus
End If
End Sub
Private Sub Textuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuas.SetFocus
End If
End Sub

click

marsa111

Private Sub cmdproses_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
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.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End If
End Sub

proses

marsa111.JPG

Private Sub cmdproses_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub