database 10

Dipublikasi pada 17 Februari 2016 oleh marikun07

TUGAS DATABASE 1

db1a
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 Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.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.Update
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.addnew
Textnidn.SetFocus
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

TUGAS DATABASE 2

db2
Private Sub cmdbatal_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub cmdlagi_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

A = Mid(Textnpm, 4, 2)
If A = “01” Then
ps = “strata 1”
ElseIf A = “02” Then
ps = “diploma 4”
ElseIf A = “03” Then
ps = “diploma 3”
ElseIf A = “04” Then
ps = “diploma 2”
End If
Textps = ps
Texttm = “20” & Left(Textnpm, 2)
Textnu = Right(Textnpm, 3)
End Sub

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

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

Private Sub Command3_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 3

db3

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

End If
Textnu = Right(Textnpm, 3)
End Sub

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

Private Sub Command2_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
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
Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

TUGAS DATABASE 4

db4.jpg

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
Texths = hs
Textjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Texthp = Val(Textjj) * Val(Texths)
If Val(Texthp) > 140000000 Then
Textdis = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > 135000000 Then
Textdis = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > 130000000 Then
Textdis = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > 125000000 Then
Textdis = Val(Texthp) * 2 / 100
End If
Texttotal = Val(Texthp) – Val(txtdis)
End Sub

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

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

Private Sub Command3_Click()
Data1.Recordset.AddNew
Cbocode.SetFocus
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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 5

db5

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
Textjk = jenis
Texths = hs
Textjj.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texthb = “”
End Sub

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

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

Private Sub Command2_Click()
Data1.Recordset.addnew
Cbocode.SetFocus
End Sub

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

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
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
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

Dipublikasi di Tanpa kategori | Meninggalkan komentar

DATABASE 10

Dipublikasi pada 17 Februari 2016 oleh marikun07

TUGAS DATABASE 6

db6db6

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Cmdkode.SetFocus
Textkode = “”
Textjudul = “”
Textpengarang = “”
Texttt = “”
Textpenerbit = “”
Textharga = “”
End Sub

Private Sub cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String
Select Case Cmdkode
Case “A-SIM-01”
judul = “SistemInformasiManajemen”
pengarang = “YatiNurOktavia”
tahun = “2001”
penerbit = “Andi Offset Yogyakarta”
harga = “75900”
Case “I-EDP-02”
judul = “ElektronikData Processing”
pengarang = “Imam Tarmizi”
tahun = “2002”
penerbit = “Indah Surabaya”
harga = “62000”
Case “S-MNJ-03”
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
tahun = “2003”
penerbit = “SalembaEmpat”
harga = “42000”
Case “E-CDR-04”
judul = “Corel Draw”
pengarang = “RiyanSuhandi”
tahun = “2004”
penerbit = “Elek Media Komputindo”
harga = “53000”
Case “M-RPL-05”
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
tahun = “2005”
penerbit = “Maxicom”
harga = “83000”
End Select
Textjudul = judul
Textpengarang = pengarang
Texttt = tahun
Textpenerbit = penerbit
Textharga = harga
End Sub

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

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

Private Sub Command2_Click()
Data1.Recordset.addnew
Cmdkode.SetFocus
End Sub

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

Private Sub Form_Load()
Cmdkode.AddItem “A-SIM-01”
Cmdkode.AddItem “I-EDP-02”
Cmdkode.AddItem “S-MNJ-03”
Cmdkode.AddItem “E-CDR-04”
Cmdkode.AddItem “M-RPL-05”
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 7

db7

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textkkode.SetFocus
Textkode = “”
Textharga = “”
Textjk = “”
Textjam = “”
Textjumlah = “”
Texttp = “”
End Sub

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

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

Private Sub Command2_Click()
Data1.Recordset.addnew
Textkode.SetFocus
End Sub

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

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 8

db8

Private Sub Cmdbatal_Click()
Textkode.SetFocus
Txtkode.Text = “”
Textjudul.Text = “”
textpengarang.Text = “”
Texttp.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 = “”
Texttp.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim M As String
Texttp.Text = “20” & Mid(Textkode, 5, 2)
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
Textjudul.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
End Sub
Private Sub Command1_Click()
Data1.Recordset.Update
End Sub

Private Sub Command2_Click()
Data1.Recordset.addnew
Textkode.SetFocus
End Sub

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 9

db9

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

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

Private Sub Command2_Click()
Data1.Recordset.addnew
Textnama.SetFocus
End Sub

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

Private Sub Form_Activate()
Textnama.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textks = “”
Textstatus = “”
Texttahun = “”
Textjabatan = “”
Textbagian = “”
Textgp = “”
Texttunjangan = “”
Texttotal = “”
End Sub
Private Sub cmdkeluar_Click()
Form2.Show
End Sub

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

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 10

db10

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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

Dipublikasi di Tanpa kategori | Meninggalkan komentar

database 10

Dipublikasi pada 17 Februari 2016 oleh marikun07

TUGAS DATABASE 1

db1a

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 Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.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.Update
End Sub

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

Private Sub Command3_Click()
Data1.Recordset.addnew
Textnidn.SetFocus
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

TUGAS DATABASE 2

db2

Private Sub cmdbatal_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub cmdlagi_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

A = Mid(Textnpm, 4, 2)
If A = “01” Then
ps = “strata 1”
ElseIf A = “02” Then
ps = “diploma 4”
ElseIf A = “03” Then
ps = “diploma 3”
ElseIf A = “04” Then
ps = “diploma 2”
End If
Textps = ps
Texttm = “20” & Left(Textnpm, 2)
Textnu = Right(Textnpm, 3)
End Sub

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

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

Private Sub Command3_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 3

db3

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

End If
Textnu = Right(Textnpm, 3)
End Sub

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

Private Sub Command2_Click()
Data1.Recordset.AddNew
Textnama.SetFocus
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
Private Sub Textnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textnpm.SetFocus
End If
End Sub

TUGAS DATABASE 4

db4
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
Texths = hs
Textjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdproses_Click()
Texthp = Val(Textjj) * Val(Texths)
If Val(Texthp) > 140000000 Then
Textdis = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > 135000000 Then
Textdis = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > 130000000 Then
Textdis = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > 125000000 Then
Textdis = Val(Texthp) * 2 / 100
End If
Texttotal = Val(Texthp) – Val(txtdis)
End Sub

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

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

Private Sub Command3_Click()
Data1.Recordset.AddNew
Cbocode.SetFocus
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

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

TUGAS DATABASE 5db5

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
Textjk = jenis
Texths = hs
Textjj.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texthb = “”
End Sub

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

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

Private Sub Command2_Click()
Data1.Recordset.addnew
Cbocode.SetFocus
End Sub

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

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
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
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub

 

 

Dipublikasi di Tanpa kategori | Meninggalkan komentar

program 9

Dipublikasi pada 3 Januari 2016 oleh marikun07

program 7

A7.JPG

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textkkode.SetFocus
Textkode = “”
Textharga = “”
Textjk = “”
Textjam = “”
Textjumlah = “”
Texttp = “”
End Sub

Private Sub cmdproses_Click()
Dim M As String
M = Left(Textkode.Text, 3)
If M = “BIM” Then
Textjk.Text = “BIMA”
Textharga.Text = “50000”
Textjam.Text = “16.00 WIB”
ElseIf M = “EKO” Then
Textjk.Text = “EKONOMI”
Textharga.Text = “35000”
Textjam.Text = “19.00 WIB”
ElseIf M = “MUT” Then
Textjk.Text = “MUTIARA”
Textharga.Text = “23000”
Textjam.Text = “17.00 WIB”
ElseIf M = “SEN” Then
Textjk.Text = “SENJA”
Textharga.Text = “15000”
Textjam.Text = “20.00 WIB”
End If
Texttp.Text = Val(Textharga.Text) * Val(Textjumlah.Text)
Textjumlah.SetFocus
End Sub
Private Sub Textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttp = Val(Textharga) * Val(Textjumlah)
End If
End Sub

program 8

8

Private Sub Cmdbatal_Click()
Textkode.SetFocus
Txtkode.Text = “”
Textjudul.Text = “”
textpengarang.Text = “”
Texttp.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 = “”
Texttp.Text = “”
Textpenerbit.Text = “”
Textharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim M As String
Texttp.Text = “20” & Mid(Textkode, 5, 2)
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”
Txtharga.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
Textjudul.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
Textpen.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
End Sub

program 9

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

Private Sub Cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnik = “”
Textgolongan = “”
Textks = “”
Textstatus = “”
Texttahun = “”
Textjabatan = “”
Textbagian = “”
Textgp = “”
Texttunjangan = “”
Texttotal = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

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

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

Dipublikasi di Tanpa kategori | Meninggalkan komentar

program 9

Dipublikasi pada 3 Januari 2016 oleh marikun07

program 4

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
Texths = hs
Textjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
Cbocode.SetFocus
Cbocode = “”
Textmerk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texttotal = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Texthp = Val(Textjj) * Val(Texths)
If Val(Texthp) > 140000000 Then
Textdis = Val(Texthp) * 15 / 100
ElseIf Val(Texthp) > 135000000 Then
Textdis = Val(Texthp) * 10 / 100
ElseIf Val(Texthp) > 130000000 Then
Textdis = Val(Texthp) * 5 / 100
ElseIf Val(Texthp) > 125000000 Then
Textdis = Val(Texthp) * 2 / 100
End If
Texttotal = Val(Texthp) – Val(txtdis)
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

program 5

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
Textjk = jenis
Texths = hs
Textjj.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdhl_Click()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
Texthb = “”
End Sub

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

Private Sub Form_Activate()
Cbocode.SetFocus
Cbocode = “”
Textjk = “”
Texths = “”
Textjj = “”
Texthp = “”
Textdis = “”
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

program 6

6
Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Cmdkode.SetFocus
Textkode = “”
Textjudul = “”
Textpengarang = “”
Texttt = “”
Textpenerbit = “”
Textharga = “”
End Sub

Private Sub cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String
Select Case Cmdkode
Case “A-SIM-01”
judul = “SistemInformasiManajemen”
pengarang = “YatiNurOktavia”
tahun = “2001”
penerbit = “Andi Offset Yogyakarta”
harga = “75900”
Case “I-EDP-02”
judul = “ElektronikData Processing”
pengarang = “Imam Tarmizi”
tahun = “2002”
penerbit = “Indah Surabaya”
harga = “62000”
Case “S-MNJ-03”
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
tahun = “2003”
penerbit = “SalembaEmpat”
harga = “42000”
Case “E-CDR-04”
judul = “Corel Draw”
pengarang = “RiyanSuhandi”
tahun = “2004”
penerbit = “Elek Media Komputindo”
harga = “53000”
Case “M-RPL-05”
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
tahun = “2005”
penerbit = “Maxicom”
harga = “83000”
End Select
Textjudul = judul
Textpengarang = pengarang
Texttt = tahun
Textpenerbit = penerbit
Textharga = harga
End Sub

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

Private Sub Form_Load()
Cmdkode.AddItem “A-SIM-01”
Cmdkode.AddItem “I-EDP-02”
Cmdkode.AddItem “S-MNJ-03”
Cmdkode.AddItem “E-CDR-04”
Cmdkode.AddItem “M-RPL-05”
End Sub

Dipublikasi di Tanpa kategori | Meninggalkan komentar

program 9

Dipublikasi pada 3 Januari 2016 oleh marikun07

program 1

1

Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdbatal_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogolongan.Text = “”
Textgapok.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub cmdlagi_Click()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogolongan.Text = “”
Textgapok.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
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
Textgapok.Text = gapok
Texttunjangan.Text = tunjangan
Textpajak.Text = pajak
Texttotal.Text = total – pajak
End Sub
Private Sub Form_Load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub

Public Sub kosong()
Textnidn.SetFocus
Textnidn.Text = “”
Textnama.Text = “”
cbogolongan.Text = “”
Textgapok.Text = “”
Texttunjangan.Text = “”
Textpajak.Text = “”
Texttotal.Text = “”
End Sub

Private Sub textnidn_keypress(keyascii As Integer)
If keyascii = 13 Then
Textnama.SetFocus
End If
End Sub

program 2

2
Private Sub cmdbatal_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub cmdlagi_Click()
Textnama = “”
Textnpm = “”
Textjur = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

A = Mid(Textnpm, 4, 2)
If A = “01” Then
ps = “strata 1”
ElseIf A = “02” Then
ps = “diploma 4”
ElseIf A = “03” Then
ps = “diploma 3”
ElseIf A = “04” Then
ps = “diploma 2”
End If
Textps = ps
Texttm = “20” & Left(Textnpm, 2)
Textnu = Right(Textnpm, 3)
End Sub

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

program 3

3

Private Sub cmdbatal_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Textnama.SetFocus
Textnama = “”
Textnpm = “”
Textjurusan = “”
Textps = “”
Texttm = “”
Textnu = “”
End Sub

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

End If
Textnu = Right(Textnpm, 3)
End Sub

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

Dipublikasi di Tanpa kategori | Meninggalkan komentar

pertemuan 2

Dipublikasi pada 24 Desember 2015 oleh marikun07

PROGRAM 2A

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 = “SISTEM INFORMASI”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “DOKTER HEWAN”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “MULTIMEDIA”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “SISTEM INFORMASI”
Case “15100081”
nama = “ANTIA”
jurusan = “KEPERAWATAN”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “SISTEM INFORMASI”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “DOKTER KANDUNGAN”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “DESAIN GRAFIS”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “SISTEM INFORMASI”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “TEKHNIK KOMPUTER”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “TEKHNIK INFORMATIKA”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “KEBIDANAN”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “MULTIMEDIA”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “BAHASA INDONESIA”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “SISTEM INFORMASI”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “SISTEM INFORMASI”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “PENDIDIKAN AGAMA ISLAM”
Case “15100050”
nama = “MARIKUN”
jurusan = “TEKHNIK KOMPUTER”
Case “15100051”
nama = “MARSYANTO”
jurusan = “SISTEM INFORMASI”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “TEKHNIK INFORMATIKA”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “SISTEM INFORMASI”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “SISTEM INFORMASI”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “AKUNTANSI”
Case “1510068”
nama = “OKTA MAHENDRA”
jurusan = “SISTEM INFORMASI”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “KEPERAWATAN”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “TEKHNIK INFORMATIKA”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “MATEMATIKA”
Case “15100072”
nama = “SUSANTI”
jurusan = “BAHASA INDONESIA”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “AKUNTANSI”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “SISTEM INFORMASI”
End Select
Textnama.Text = nama
Textjurusan.Text = jurusan
End Sub

 

PROGRAM42

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

Private Sub Texttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuts.SetFocus
End If
End Sub

Private Sub Textuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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 If
End Sub

Private Sub Textuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textuas.SetFocus
End If
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 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

Dipublikasi di Tanpa kategori | Meninggalkan komentar

program 2

Dipublikasi pada 24 Desember 2015 oleh marikun07

PROGRAM1

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 chkstike.Value = 1 Then
lblteks.FontStrikeout = True
Else
lblteks.FontStrikeout = 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 kuning’
lblteks.ForeColor = vbYellow
End Sub

2

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

Private Sub Commond2_Click()
End
End Sub

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

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

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

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

Dipublikasi di Tanpa kategori | Meninggalkan komentar

aplikasi penghitungan gaji

Dipublikasi pada 24 November 2015 oleh marikun07

MARIKUN 4,2

 

Private Sub Command2_Click()

Unload Me

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text1.SetFocus

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.Text) + Val(Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

Private Sub Timer1_Timer()

If Form1.Caption = “marikun” Then

Form1.Caption = ” “

ElseIf Form1.Caption = “marik” Then

Form1.Caption = “mariku”

ElseIf Form1.Caption = “mari” Then

Form1.Caption = “mari”

ElseIf Form1.Caption = “mar” Then

Form1.Caption = “mar”

ElseIf Form1.Caption = “ma” Then

Form1.Caption = “ma”

Else

Form1.Caption = “marikun”

End If

End Sub

Dipublikasi di Tanpa kategori | Meninggalkan komentar

perhitungan harga setelah diskon

Dipublikasi pada 24 November 2015 oleh marikun07

mrikun 2marikun 3,2

Private Sub Command1_Click()

Text1.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

 

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

 

End Sub

 

Private Sub Command3_Click()

 

Unload Me

 

End Sub

 

Private Sub Text1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

Text2.SetFocus

End If

 

End Sub

Dipublikasi di Tanpa kategori | Meninggalkan komentar