TUGAS 1.1 NIDN
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub Cmdlagi_Click()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogolongan.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogolongan.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
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 Cmdkeluar_Click()
Unload Me
End Sub
TUGAS 1.2
NPM
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdbatal_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjuru.Text = “”
txtps.Text = “”
txtmasuk.Text = “”
txtno.Text = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnpm.Text = “”
txtjuru.Text = “”
txtps.Text = “”
txtmasuk.Text = “”
txtno.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim A As String
txtmasuk.Text = “20” & Left(txtnpm.Text, 2)
A = Mid(txtnpm, 3, 1)
If A = “1” Then
txtjuru = “Sistem Informasi”
txtps = “Strata Satu”
ElseIf A = “2” Then
txtjuru = “Tekhnik Informatika”
txtps = “Diploma Empat”
ElseIf A = “3” Then
txtjuru = “Manajemen Informatika”
txtps = “Diploma Tiga”
ElseIf A = “4” Then
txtjuru = “Komputer Akuntansi”
txtps = “Diploma Dua”
End If
txtmasuk = Left(txtnpm, 2)
txtno = Right(txtnpm, 4)
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
TUGAS 1.3
PENJUALAN LAPTOP
Private Sub CboKode_Click()
Dim Merk, Harga, Kode As Variant
Kode = Mid(Cbokode.Text, 7, 5)
Select Case Kode
Case “MC965”
Merk = “Apple MC965 MacBook Air”
Harga = 12800000
Case “MC966”
Merk = “Apple MC966 MacBook Air”
Harga = 15800000
Case “MC968”
Merk = “Apple MC968 MacBook Air”
Harga = 9900000
Case “MC969”
Merk = “Apple MC969 MacBook Air”
Harga = 11900000
Case “MC700”
Merk = “Apple MC700 MacBook Pro”
Harga = 10800000
Case “MC721”
Merk = “Apple MC721 MacBook Pro”
Harga = 15900000
Case “MC723”
Merk = “Apple MC723 MacBook Pro”
Harga = 19300000
Case “MC724”
Merk = “Apple MC724 MacBook Pro”
Harga = 13700000
Case “MC311”
Merk = “Apple MC311 MacBook Pro”
Harga = 24200000
Case “MC313”
Merk = “Apple MC313 MacBook Pro”
Harga = 11900000
Case “MC314”
Merk = “Apple MC314 MacBook Pro”
Harga = 14700000
Case “MC318”
Merk = “Apple MC318 MacBook Pro”
Harga = 17600000
Case “MC322”
Merk = “Apple MC322 MacBook Pro”
Harga = 21300000
End Select
Txtmerk = Merk
Txtharga = Harga
End Sub
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdbatal_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txtharga.Text = “”
Txtjumlah.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttotal.Text = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txtharga.Text = “”
Txtjumlah.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttotal.Text = “”
End Sub
Private Sub CmdProses_Click()
Dim HS, Jual, Jumlah, Diskon, Total As Variant
HS = Val(Txtharga)
Jual = Val(Txtjumlah)
Jumlah = HS * Jual
Txthp = Jumlah
Select Case Jumlah
Case Is > 140000000
Diskon = Jumlah * 0.15
Case Is > 135000000
Diskon = Jumlah * 0.1
Case Is > 130000000
Diskon = Jumlah * 0.05
Case Is > 125000000
Diskon = Jumlah * 0.02
Case Is <= 125000000
Diskon = Jumlah * 0
End Select
Txtdis = Diskon
Total = Jumlah – Diskon
Txttotal = Total
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub Form_Load()
Cbokode.AddItem “Apple MC965 MacBook Air”
Cbokode.AddItem “Apple MC966 MacBook Air”
Cbokode.AddItem “Apple MC968 MacBook Air”
Cbokode.AddItem “Apple MC969 MacBook Air”
Cbokode.AddItem “Apple MC700 MacBook Pro”
Cbokode.AddItem “Apple MC721 MacBook Pro”
Cbokode.AddItem “Apple MC723 MacBook Pro”
Cbokode.AddItem “Apple MC724 MacBook Pro”
Cbokode.AddItem “Apple MC311 MacBook Pro”
Cbokode.AddItem “Apple MC313 MacBook Pro”
Cbokode.AddItem “Apple MC314 MacBook Pro”
Cbokode.AddItem “Apple MC318 MacBook Pro”
Cbokode.AddItem “Apple MC322 MacBook Pro”
End Sub
TUGAS 1.4
PENJUALAN KOMPUTER
Private Sub Cbokode_Click()
Dim kode, jenis, hs, jumlah As Variant
Select Case Cbokode.Text
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
Txtjenis.Text = jenis
Txthargasatuan.Text = hs
End Sub
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdbatal_Click()
Cbokode.SetFocus
Cbokode = “”
Txtjenis = “”
Txthargasatuan = “”
Txtjumlah = “”
Txthp = “”
Txtdis = “”
Txthb = “”
End Sub
Private Sub Cmdclose_Click()
Unload Me
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode = “”
Txtjenis = “”
Txthargasatuan = “”
Txtjumlah = “”
Txthp = “”
Txtdis = “”
Txthb = “”
End Sub
Private Sub Cmdproses_Click()
Txthp = Val(Txthargasatuan) * Val(Txtjumlah)
Select Case Txthp.Text
Case Is > 140000000
Txtdis = Val(Txthp) * 0.15
Case Is > 135000000
Txtdis = Val(Txthp) * 0.1
Case Is > 130000000
Txtdis = Val(Txthp) * 0.05
Case Is > 125000000
Txtdis = Val(Txthp) * 0.02
End Select
Txthb = Val(Txthp) – Val(Txtdis)
Txtjumlah.SetFocus
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub Form_Load()
Cbokode.AddItem “P205”
Cbokode.AddItem “P308”
Cbokode.AddItem “P310”
Cbokode.AddItem “P415”
Cbokode.AddItem “P417”
Cbokode.AddItem “P419”
End Sub
Private Sub Txthp_Click()
Txthp = Val(Txtjumlah) * Val(Txthargasatuan)
End Sub
TUGAS 1.5
DATA BUKU (COMBO)
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdBatal_Click()
Cbokode.SetFocus
Cbokode = “Pilih Kode Buku”
Txtjb = “”
Txtpg = “”
Txttp = “”
Txtpn = “”
TPxthg = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdLagi_Click()
Cbokode.SetFocus
Cbokode = “Pilih Kode Buku”
Txtjb = “”
Txtpg = “”
Txttp = “”
Txtpn = “”
Txthg = “”
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
Kode = Cbokode
KodeBuku = Mid(Kode, 3, 3)
Select Case KodeBuku
Case “SIM”
Judul = “Sistem Informasi Manajemen”
Pengarang = “Yati Nur Oktavia”
Harga = 75900
Case “EDP”
Judul = “Elektronik Data Processing”
Pengarang = “Imam Tarmizi”
Harga = 62000
Case “MNJ”
Judul = “Manajemen”
Pengarang = “Valentina Mariana Adiwianti”
Harga = 42000
Case “CDR”
Judul = “Corel Draw”
Pengarang = “Riyan Suhandi”
Harga = 53000
Case “RPL”
Judul = “Rekayasa Perangkat Lunak”
Pengarang = “Sinta Umpu Singa”
Harga = 83000
End Select
Txtjb = Judul
Txtpg = Pengarang
Txthg = Harga
KodePenerbit = Left(Kode, 1)
Select Case KodePenerbit
Case “A”
Penerbit = “Andi Offset Yogyakarta”
Case “I”
Penerbit = “Indah Surabaya”
Case “S”
Penerbit = “Indah Surabaya”
Case “E”
Penerbit = “Elek Media Komputindo”
Case “M”
Penerbit = “Maxicom”
End Select
Txtpn = Penerbit
KodeTahun = Right(Kode, 2)
Select Case KodeTahun
Case “01”
Tahun = “20” & KodeTahun
Case “02”
Tahun = “20” & KodeTahun
Case “03”
Tahun = “20” & KodeTahun
Case “04”
Tahun = “20” & KodeTahun
Case “05”
Tahun = “20” & KodeTahun
End Select
Txttp = Tahun
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
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
TUGAS 1.6
TIKET KERETA API
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdbatal_Click()
txtkt.SetFocus
txtkt = “”
txtht = “”
txtjk = “”
txtjb = “”
txtjt = “”
TxtTotal = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
txtkt.SetFocus
txtkt = “”
txtht = “”
txtjk = “”
txtjb = “”
txtjt = “”
TxtTotal = “”
End Sub
Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant
Kode = Left(txtkt.Text, 3)
Select Case Kode
Case “BIM”
Harga = 50000
Jenis = “BIMA”
Berangkat = “16.00”
Case “EKO”
Harga = 35000
Jenis = “EKONOMI”
Berangkat = “19.00”
Case “MUT”
Harga = 23000
Jenis = “MUTIARA”
Berangkat = “17.00”
Case “SEN”
Harga = 15000
Jenis = “SENJA”
Berangkat = “20.00”
End Select
txtht = Harga
txtjk = Jenis
txtjb = Berangkat
txtjt.SetFocus
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub
TUGAS 1.7
DATA BUKU
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdBatal_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub CmdLagi_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
TxtTerbit = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub CmdProses_Click()
Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
Kode = Txtkode
KodeBuku = Mid(Kode, 1, 3)
Select Case KodeBuku
Case “SIM”
Judul = “Sistem Informasi Manajemen”
Pengarang = “Yati Nur Oktavia”
Harga = 75900
Case “EDP”
Judul = “Elektronik Data Processing”
Pengarang = “Imam Tarmizi”
Harga = 62000
Case “MNJ”
Judul = “Manajemen”
Pengarang = “Valentina Mariana Adiwianti”
Harga = 42000
Case “CDR”
Judul = “Corel Draw”
Pengarang = “Riyan Suhandi”
Harga = 53000
Case “RPL”
Judul = “Rekayasa Perangkat Lunak”
Pengarang = “Sinta Umpu Singa”
Harga = 83000
End Select
Txtjudul = Judul
Txtpengarang = Pengarang
Txtharga = Harga
KodePenerbit = Left(Kode, 1)
Select Case KodePenerbit
Case “A”
Penerbit = “Andi Offset Yogyakarta”
Case “I”
Penerbit = “Indah Surabaya”
Case “S”
Penerbit = “Indah Surabaya”
Case “E”
Penerbit = “Elek Media Komputindo”
Case “M”
Penerbit = “Maxicom”
End Select
Txtpenerbit = Penerbit
KodeTahun = Mid(Kode, 5, 2)
Select Case KodeTahun
Case “09”
Tahun = “20” & KodeTahun
Case “10”
Tahun = “20” & KodeTahun
Case “11”
Tahun = “20” & KodeTahun
Case “12”
Tahun = “20” & KodeTahun
Case “13”
Tahun = “20” & KodeTahun
End Select
Txttahun = Tahun
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
TUGAS 1.8
PT PULANG PETANG
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtNama = “”
TxtNik = “”
TxtGolongan = “”
TxtKodeStatus = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGajiPokok = “”
TxtTunjangan = “”
TxtTotalGaji = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtNama = “”
TxtNik = “”
TxtGolongan = “”
TxtKodeStatus = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGajiPokok = “”
TxtTunjangan = “”
TxtTotalGaji = “”
End Sub
Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
Golongan = Mid(TxtNik.Text, 5, 1)
TxtGolongan = Golongan
KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKodeStatus = KodeStatus
If KodeStatus = “S” Then
Status = “Single”
ElseIf KodeStatus = “M” Then
Status = “Menikah”
ElseIf KodeStatus = “J” Then
Status = “Janda”
ElseIf KodeStatus = “D” Then
Status = “Duda”
End If
TxtStatus = Status
Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun
Select Case Golongan
Case “A”
Jabatan = “Manager”
GajiPokok = 4000000
Tunjangan = 1025000
Case “B”
Jabatan = “Ka. Seksi”
GajiPokok = 3500000
Tunjangan = 975000
Case “C”
Jabatan = “Staff”
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan
KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case “KEU”
Bagian = “Accounting”
Case “ADM”
Bagian = “Administrasi”
Case “SDM”
Bagian = “General Affair”
Case “EDP”
Bagian = “IT Unit”
Case “SPM”
Bagian = “Security”
End Select
TxtBagian = Bagian
TxtTotalGaji = GajiPokok + Tunjangan
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub Form_Activate()
TxtNama.SetFocus
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub
TUGAS1.9
TOKO ALAT TULIS
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
End Sub
Private Sub cmdhitung_Click()
txtby = Val(txthb * txtjb)
If txtjb.Text > 5 Then
txtpot = Val(txtby) * 0.02
Else
txtpot = Val(txtby) * 0
End If
txttb = Val(txtby – txtpot)
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdproses_Click()
Dim HB, KB, NB As Variant
KB = Mid(txtkb, 5, 2)
Select Case KB
Case “SP”
NB = “SPIDOL”
HB = 9500
Case “BT”
NB = “BUKU TULIS”
HB = 12500
Case “TP”
NB = “TIPEX”
HB = 3000
Case “PG”
NB = “PENGGARIS”
HB = 25000
Case “PT”
NB = “PAPAN TULIS”
HB = 50000
End Select
txtnb = NB
txthb = HB
txtjb.SetFocus
End Sub
Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End SubPrivate Sub cmdno_Click()
Unload Me
End Sub
Private Sub cmdyes_Click()
End
End Sub
trisetiastmikpringsewu 