PROGRAM DATABASE

nila1

Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
Txtnama.Text = “”
Cbogol.Text = “”
Txtgapok.Text = “”
Txttun.Text = “”
Txtpjk.Text = “”
Txttot.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cbogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogol.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
Txttun.Text = tunjangan
Txtpjk.Text = pajak
Txttot.Text = total – pajak
End Sub

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

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

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

Private Sub Form_Load()
Cbogol.AddItem “I”
Cbogol.AddItem “II”
Cbogol.AddItem “III”
Cbogol.AddItem “IV”
End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

nila2.JPG

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
J = Mid(Txtnpm.Text, 4, 2)
If J = “01” Then
Txtpro.Text = “Strata Satu”
ElseIf J = “02” Then
Txtpro.Text = “Diploma Empat”
ElseIf J = “03” Then
Txtpro.Text = “Diploma Tiga”
ElseIf J = “04” Then
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

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

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

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

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
J = Mid(Txtnpm.Text, 4, 2)
If J = “01” Then
Txtpro.Text = “Strata Satu”
ElseIf J = “02” Then
Txtpro.Text = “Diploma Empat”
ElseIf J = “03” Then
Txtpro.Text = “Diploma Tiga”
ElseIf J = “04” Then
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

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

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

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

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
J = Mid(Txtnpm.Text, 4, 2)
If J = “01” Then
Txtpro.Text = “Strata Satu”
ElseIf J = “02” Then
Txtpro.Text = “Diploma Empat”
ElseIf J = “03” Then
Txtpro.Text = “Diploma Tiga”
ElseIf J = “04” Then
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

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

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

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

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

nila3

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
Txtpro.Text = “Strata Satu”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
Txtpro.Text = “Diploma Empat”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
Txtpro.Text = “Diploma Tiga”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

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

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

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

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

nila4

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjual.Text = “”
Txtmerk.Text = “”
Txtharga.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim diskon As String
Txthp.Text = Val(Txtjual * Txtharga)
Select Case Txthp.Text
Case Is > 140000000
diskon = Val(Txthp * 0.15)
Case Is > 135000000
diskon = Val(Txthp * 0.1)
Case Is > 130000000
diskon = Val(Txthp * 0.05)
Case Is > 125000000
diskon = Val(Txthp * 0.02)
End Select
Txtdis.Text = diskon
Txttotal.Text = Val(Txthp – Txtdis)
End Sub

Private Sub Cbokode_Click()
Dim J As String
J = Mid(Cbokode.Text, 7, 5)
If J = “MC965” Then
Txtmerk.Text = “Apple MacBook Air MC965”
Txtharga.Text = “12800000”
ElseIf J = “MC966” Then
Txtmerk.Text = “Apple MacBook Air MC966”
Txtharga.Text = “15800000”
ElseIf J = “MC968” Then
Txtmerk.Text = “Apple MacBook Air MC968”
Txtharga.Text = “9900000”
ElseIf J = “MC969” Then
Txtmerk.Text = “Apple MacBook Air MC969”
Txtharga.Text = “11900000”
ElseIf J = “MC700” Then
Txtmerk.Text = “Apple MacBook Pro MC700”
Txtharga.Text = “10800000”
ElseIf J = “MC721” Then
Txtmerk.Text = “Apple MacBook Pro MC721”
Txtharga.Text = “15900000”
ElseIf J = “MC723” Then
Txtmerk.Text = “Apple MacBook Pro MC723”
Txtharga.Text = “19300000”
ElseIf J = “MC724” Then
Txtmerk.Text = “Apple MacBook Pro MC724”
Txtharga.Text = “13700000”
ElseIf J = “MC311” Then
Txtmerk.Text = “Apple MacBook Pro MC311”
Txtharga.Text = “24200000”
ElseIf J = “MC313” Then
Txtmerk.Text = “Apple MacBook Pro MC313”
Txtharga.Text = “11900000”
ElseIf J = “MC314” Then
Txtmerk.Text = “Apple MacBook Pro MC314”
Txtharga.Text = “14700000”
ElseIf J = “MC318” Then
Txtmerk.Text = “Apple MacBook Pro MC318”
Txtharga.Text = “17600000”
ElseIf J = “MC322” Then
Txtmerk.Text = “Apple MacBook Pro MC322”
Txtharga.Text = “21300000”
End If
Txtjual.SetFocus
End Sub

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

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

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

Private Sub Form_Load()
Cbokode.AddItem “Aplle MC965 MacBook Air”
Cbokode.AddItem “Aplle MC966 MacBook Air”
Cbokode.AddItem “Aplle MC968 MacBook Air”
Cbokode.AddItem “Aplle MC969 MacBook Air”
Cbokode.AddItem “Aplle MC700 MacBook Pro”
Cbokode.AddItem “Aplle MC721 MacBook Pro”
Cbokode.AddItem “Aplle MC723 MacBook Pro”
Cbokode.AddItem “Aplle MC724 MacBook Pro”
Cbokode.AddItem “Aplle MC311 MacBook Pro”
Cbokode.AddItem “Aplle MC313 MacBook Pro”
Cbokode.AddItem “Aplle MC314 MacBook Pro”
Cbokode.AddItem “Aplle MC318 MacBook Pro”
Cbokode.AddItem “Aplle MC322 MacBook Pro”
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

nila5

Private Sub Cmdlagi_Click()
Cbokd.SetFocus
Cbokd.Text = “”
Txtjns.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdc.Text = “”
Txthb.Text = “”
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txths * Txtjj)
Dim diskon As String
Select Case Txthp.Text
Case Is > 30000000
diskon = Val(Txthp * 0.15)
Case Is > 25000000
diskon = Val(Txthp * 0.1)
Case Is > 20000000
diskon = Val(Txthp * 0.05)
Case Is > 15000000
diskon = Val(Txthp * 0.02)
End Select
Txtdc.Text = diskon
Txthb.Text = Val(Txthp – Txtdc)
End Sub

Private Sub Cbokd_Click()
Dim J As String
J = Mid(Cbokd.Text, 1, 4)
If J = “P205” Then
Txtjns.Text = “Pentium II   500 Mega HZ”
Txths.Text = “1500000”
ElseIf J = “P308” Then
Txtjns.Text = “Pentium III   800 Mega HZ”
Txths.Text = “2100000”
ElseIf J = “P310” Then
Txtjns.Text = “Pentium III   1.0 Giga HZ”
Txths.Text = “3500000”
ElseIf J = “P415” Then
Txtjns.Text = “Pentium IV   1.5 Giga HZ”
Txths.Text = “4000000”
ElseIf J = “P417” Then
Txtjns.Text = “Pentium IV   1.7 Giga HZ”
Txths.Text = “4200000”
ElseIf J = “P419” Then
Txtjns.Text = “Pentium III   1.9 Giga HZ”
Txths.Text = “5500000”
End If
Txtjj.SetFocus
End Sub

Private Sub Comdclose_Click()
Form2.Show
End Sub

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

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

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

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

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

nila6

Private Sub kosong()
Cbokd.SetFocus
Cbokd.Text = “”
Txtjb.Text = “”
Txtpg.Text = “”
Txtth.Text = “”
Txtpn.Text = “”
Txtha.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Cbokd.Text, 1, 1)
If b = “A” Then
Txtpn.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Then
Txtpn.Text = “Indah Surabaya”
ElseIf b = “S” Then
Txtpn.Text = “Salemba Empat”
ElseIf b = “E” Then
Txtpn.Text = “Elek Media Komputindo”
ElseIf b = “M” Then
Txtpn.Text = “Maxicom”
End If
b = Mid(Cbokd.Text, 3, 3)
If b = “SIM” Then
Txtjb.Text = “Sistem Informasi Manajemen”
Txtha.Text = “75900”
Txtpg.Text = “Yati Nur OKtavia”
ElseIf b = “EDP” Then
Txtjb.Text = “Elektronik Data Processing”
Txtha.Text = “62000”
Txtpg.Text = “Imam Tarmizi”
ElseIf b = “MNJ” Then
Txtjb.Text = “Manajemen”
Txtha.Text = “42000”
Txtpg.Text = “Valentina Mariana Adiwianti”
ElseIf b = “CDR” Then
Txtjb.Text = “Corel Draw”
Txtha.Text = “53000”
Txtpg.Text = “Riyan Suhandi”
ElseIf b = “RPL” Then
Txtjb.Text = “Rekayasa Perangkat Lunak”
Txtha.Text = “83000”
Txtpg.Text = “Sinta Umpu Singa”
End If
Txtth.Text = “20” & Right(Cbokd.Text, 2)
End Sub

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

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

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

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

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

nila7

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
Txtkd.SetFocus
Txtkd.Text = “”
Txtha.Text = “”
Txtjs.Text = “”
Txtjam.Text = “”
Txtjum.Text = “”
Txttot.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtkd.Text, 1, 3)
If J = “BIM” Then
Txtha.Text = “50000”
Txtjs.Text = “BIMA”
Txtjam.Text = “16.00”
ElseIf J = “EKO” Then
Txtha.Text = “35000”
Txtjs.Text = “EKONOMI”
Txtjam.Text = “19.00”
ElseIf J = “MUT” Then
Txtha.Text = “23000”
Txtjs.Text = “MUTIARA”
Txtjam.Text = “17.00”
ElseIf J = “SEN” Then
Txtha.Text = “15000”
Txtjs.Text = “SENJA”
Txtjam.Text = “20.00”
End If
Txtjum.SetFocus
End Sub

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

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

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

Private Sub Txtjum_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttot.Text = Val(Txtha * Txtjum)
End If
End Sub

 

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

nila8

Private Sub kosong()
Textkode.SetFocus
Textkode.Text = “”
Textjb.Text = “”
Textpg.Text = “”
Texttt.Text = “”
Textpe.Text = “”
Textha.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textkode.Text, 1, 3)
If b = “SIM” Or b = “sim” Then
Textjb.Text = “Sistem Informasi Manajemen”
Textpg.Text = “Fadiya Ulfa”
Textha.Text = “75900”
ElseIf b = “EDP” Or b = “edp” Then
Textjb.Text = “Elektronika Data Processig”
Textpg.Text = “Nurul Agustina”
Textha.Text = “62000”
ElseIf b = “MNJ” Or b = “mnj” Then
Textjb.Text = “Manajemen”
Textpg.Text = “Rian Hidayat”
Textha.Text = “42000”
ElseIf b = “CDR” Or b = “cdr” Then
Textjb.Text = “Corel Draw”
Textpg.Text = “Siti Nur Khotimah”
Textha.Text = “53000”
ElseIf b = “RPL” Or b = “rpl” Then
Textjb.Text = “Rekayasa Perangkat Lunak”
Textpg.Text = “Winda Erlianti”
Textha.Text = “83000”
End If
b = Mid(Textkode.Text, 8, 1)
If b = “A” Or b = “a” Then
Textpe.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Or b = “i” Then
Textpe.Text = “Indah Surabaya”
ElseIf b = “S” Or b = “s” Then
Textpe.Text = “Salemba Empat”
ElseIf b = “E” Or b = “e” Then
Textpe.Text = “Elek Media Komputindo”
ElseIf b = “M” Or b = “m” Then
Textpe.Text = “Maxicom”
End If
Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)
End Sub

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

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

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

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Form1.Show
End Sub

NILA9

Private Sub kosong()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Form2.Show
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textnik.Text, 5, 1)
If b = “A” Or b = “a” Then
Textgol.Text = “A”
Textjbt.Text = “Manajer”
Textgapok.Text = “4000000”
Texttun.Text = “1025000”
ElseIf b = “B” Or b = “b” Then
Textgol.Text = “B”
Textjbt.Text = “Kepala Seksi”
Textgapok.Text = “3500000”
Texttun.Text = “975000”
ElseIf b = “C” Or b = “c” Then
Textgol.Text = “C”
Textjbt.Text = “Staff”
Textgapok.Text = “3000000”
Texttun.Text = “925000”
End If
b = Mid(Textnik.Text, 7, 1)
If b = “S” Or b = “s” Then
Textkode.Text = “S”
Textsts.Text = “Single”
ElseIf b = “M” Or b = “m” Then
Textkode.Text = “M”
Textsts.Text = “Menikah”
ElseIf b = “J” Or b = “j” Then
Textkode.Text = “J”
Textsts.Text = “Janda”
ElseIf b = “D” Or b = “d” Then
Textkode.Text = “D”
Textsts.Text = “Duda”
End If
b = Right(Textnik.Text, 3)
If b = “KEU” Or b = “keu” Then
Textbgn.Text = “Accounting”
ElseIf b = “ADM” Or b = “adm” Then
Textbgn.Text = “Administrasi”
ElseIf b = “SDM” Or b = “sdm” Then
Textbgn.Text = “General Affair”
ElseIf b = “EDP” Or b = “edp” Then
Textbgn.Text = “IT Unit”
ElseIf b = “SPM” Or b = “spm” Then
Textbgn.Text = “Security”
End If
Textthn.Text = Left(Textnik.Text, 4)
Texttot.Text = Val(Textgapok) + Val(Texttun)
End Sub

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

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

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

Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
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 Form_Load()
Form1.Show
End Sub

NILA10

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 Form_Load()
Form1.Show
End Sub

PROGRAM 9

 

Private Sub kosong()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textnik.Text, 5, 1)
If b = “A” Or b = “a” Then
Textgol.Text = “A”
Textjbt.Text = “Manajer”
Textgapok.Text = “4000000”
Texttun.Text = “1025000”
ElseIf b = “B” Or b = “b” Then
Textgol.Text = “B”
Textjbt.Text = “Kepala Seksi”
Textgapok.Text = “3500000”
Texttun.Text = “975000”
ElseIf b = “C” Or b = “c” Then
Textgol.Text = “C”
Textjbt.Text = “Staff”
Textgapok.Text = “3000000”
Texttun.Text = “925000”
End If
b = Mid(Textnik.Text, 7, 1)
If b = “S” Or b = “s” Then
Textkode.Text = “S”
Textsts.Text = “Single”
ElseIf b = “M” Or b = “m” Then
Textkode.Text = “M”
Textsts.Text = “Menikah”
ElseIf b = “J” Or b = “j” Then
Textkode.Text = “J”
Textsts.Text = “Janda”
ElseIf b = “D” Or b = “d” Then
Textkode.Text = “D”
Textsts.Text = “Duda”
End If
b = Right(Textnik.Text, 3)
If b = “KEU” Or b = “keu” Then
Textbgn.Text = “Accounting”
ElseIf b = “ADM” Or b = “adm” Then
Textbgn.Text = “Administrasi”
ElseIf b = “SDM” Or b = “sdm” Then
Textbgn.Text = “General Affair”
ElseIf b = “EDP” Or b = “edp” Then
Textbgn.Text = “IT Unit”
ElseIf b = “SPM” Or b = “spm” Then
Textbgn.Text = “Security”
End If
Textthn.Text = Left(Textnik.Text, 4)
Texttot.Text = Val(Textgapok) + Val(Texttun)
End Sub

Private Sub Form_Activate()
Textnama.SetFocus
Textnama.Text = “”
Textnik.Text = “”
Textgol.Text = “”
Textkode.Text = “”
Textsts.Text = “”
Textthn.Text = “”
Textjbt.Text = “”
Textbgn.Text = “”
Textgapok.Text = “”
Texttun.Text = “”
Texttot.Text = “”
End Sub

Private Sub Textgol_Change()

End Sub

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

 

9 program

 

 

program1

 

Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
Txtnama.Text = “”
Cbogol.Text = “”program2
Txtgapok.Text = “”
Txttun.Text = “”
Txtpjk.Text = “”
Txttot.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cbogol_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogol.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
Txttun.Text = tunjangan
Txtpjk.Text = pajak
Txttot.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 txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub

 

program2

 

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
End If
J = Mid(Txtnpm.Text, 4, 2)
If J = “01” Then
Txtpro.Text = “Strata Satu”
ElseIf J = “02” Then
Txtpro.Text = “Diploma Empat”
ElseIf J = “03” Then
Txtpro.Text = “Diploma Tiga”
ElseIf J = “04” Then
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

 

program3

 

Private Sub kosong()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtnpm.Text, 3, 1)
If J = “1” Then
Txtjur.Text = “Sistem Informasi”
Txtpro.Text = “Strata Satu”
ElseIf J = “2” Then
Txtjur.Text = “Teknik Informatika”
Txtpro.Text = “Diploma Empat”
ElseIf J = “3” Then
Txtjur.Text = “Management Informatika”
Txtpro.Text = “Diploma Tiga”
ElseIf J = “4” Then
Txtjur.Text = “Komputer Akuntansi”
Txtpro.Text = “Diploma Dua”
End If
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub

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

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

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

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtpro.Text = “”
Txtthn.Text = “”
Txtno.Text = “”
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

 

program4

 

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjual.Text = “”
Txtmerk.Text = “”
Txtharga.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim diskon As String
Txthp.Text = Val(Txtjual * Txtharga)
Select Case Txthp.Text
Case Is > 140000000
diskon = Val(Txthp * 0.15)
Case Is > 135000000
diskon = Val(Txthp * 0.1)
Case Is > 130000000
diskon = Val(Txthp * 0.05)
Case Is > 125000000
diskon = Val(Txthp * 0.02)
End Select
Txtdis.Text = diskon
Txttotal.Text = Val(Txthp – Txtdis)
End Sub

Private Sub Cbokode_Click()
Dim J As String
J = Mid(Cbokode.Text, 7, 5)
If J = “MC965” Then
Txtmerk.Text = “Apple MacBook Air MC965”
Txtharga.Text = “12800000”
ElseIf J = “MC966” Then
Txtmerk.Text = “Apple MacBook Air MC966”
Txtharga.Text = “15800000”
ElseIf J = “MC968” Then
Txtmerk.Text = “Apple MacBook Air MC968”
Txtharga.Text = “9900000”
ElseIf J = “MC969” Then
Txtmerk.Text = “Apple MacBook Air MC969”
Txtharga.Text = “11900000”
ElseIf J = “MC700” Then
Txtmerk.Text = “Apple MacBook Pro MC700”
Txtharga.Text = “10800000”
ElseIf J = “MC721” Then
Txtmerk.Text = “Apple MacBook Pro MC721”
Txtharga.Text = “15900000”
ElseIf J = “MC723” Then
Txtmerk.Text = “Apple MacBook Pro MC723”
Txtharga.Text = “19300000”
ElseIf J = “MC724” Then
Txtmerk.Text = “Apple MacBook Pro MC724”
Txtharga.Text = “13700000”
ElseIf J = “MC311” Then
Txtmerk.Text = “Apple MacBook Pro MC311”
Txtharga.Text = “24200000”
ElseIf J = “MC313” Then
Txtmerk.Text = “Apple MacBook Pro MC313”
Txtharga.Text = “11900000”
ElseIf J = “MC314” Then
Txtmerk.Text = “Apple MacBook Pro MC314”
Txtharga.Text = “14700000”
ElseIf J = “MC318” Then
Txtmerk.Text = “Apple MacBook Pro MC318”
Txtharga.Text = “17600000”
ElseIf J = “MC322” Then
Txtmerk.Text = “Apple MacBook Pro MC322”
Txtharga.Text = “21300000”
End If
Txtjual.SetFocus
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Aplle MC965 MacBook Air”
Cbokode.AddItem “Aplle MC966 MacBook Air”
Cbokode.AddItem “Aplle MC968 MacBook Air”
Cbokode.AddItem “Aplle MC969 MacBook Air”
Cbokode.AddItem “Aplle MC700 MacBook Pro”
Cbokode.AddItem “Aplle MC721 MacBook Pro”
Cbokode.AddItem “Aplle MC723 MacBook Pro”
Cbokode.AddItem “Aplle MC724 MacBook Pro”
Cbokode.AddItem “Aplle MC311 MacBook Pro”
Cbokode.AddItem “Aplle MC313 MacBook Pro”
Cbokode.AddItem “Aplle MC314 MacBook Pro”
Cbokode.AddItem “Aplle MC318 MacBook Pro”
Cbokode.AddItem “Aplle MC322 MacBook Pro”
End Sub

 

program5

 

Private Sub Cmdlagi_Click()
Cbokd.SetFocus
Cbokd.Text = “”
Txtjns.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdc.Text = “”
Txthb.Text = “”
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txths * Txtjj)
Dim diskon As String
Select Case Txthp.Text
Case Is > 30000000
diskon = Val(Txthp * 0.15)
Case Is > 25000000
diskon = Val(Txthp * 0.1)
Case Is > 20000000
diskon = Val(Txthp * 0.05)
Case Is > 15000000
diskon = Val(Txthp * 0.02)
End Select
Txtdc.Text = diskon
Txthb.Text = Val(Txthp – Txtdc)
End Sub

Private Sub Cbokd_Click()
Dim J As String
J = Mid(Cbokd.Text, 1, 4)
If J = “P205” Then
Txtjns.Text = “Pentium II 500 Mega HZ”
Txths.Text = “1500000”
ElseIf J = “P308” Then
Txtjns.Text = “Pentium III 800 Mega HZ”
Txths.Text = “2100000”
ElseIf J = “P310” Then
Txtjns.Text = “Pentium III 1.0 Giga HZ”
Txths.Text = “3500000”
ElseIf J = “P415” Then
Txtjns.Text = “Pentium IV 1.5 Giga HZ”
Txths.Text = “4000000”
ElseIf J = “P417” Then
Txtjns.Text = “Pentium IV 1.7 Giga HZ”
Txths.Text = “4200000”
ElseIf J = “P419” Then
Txtjns.Text = “Pentium III 1.9 Giga HZ”
Txths.Text = “5500000”
End If
Txtjj.SetFocus
End Sub

Private Sub Comdclose_Click()
End
End Sub

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

 

program6

Private Sub kosong()
Cbokd.SetFocus
Cbokd.Text = “”
Txtjb.Text = “”
Txtpg.Text = “”
Txtth.Text = “”
Txtpn.Text = “”
Txtha.Text = “”
End Sub

Private Sub Cbokd_Change()

End Sub

Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Cbokd.Text, 1, 1)
If b = “A” Then
Txtpn.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Then
Txtpn.Text = “Indah Surabaya”
ElseIf b = “S” Then
Txtpn.Text = “Salemba Empat”
ElseIf b = “E” Then
Txtpn.Text = “Elek Media Komputindo”
ElseIf b = “M” Then
Txtpn.Text = “Maxicom”
End If
b = Mid(Cbokd.Text, 3, 3)
If b = “SIM” Then
Txtjb.Text = “Sistem Informasi Manajemen”
Txtha.Text = “75900”
Txtpg.Text = “Yati Nur OKtavia”
ElseIf b = “EDP” Then
Txtjb.Text = “Elektronik Data Processing”
Txtha.Text = “62000”
Txtpg.Text = “Imam Tarmizi”
ElseIf b = “MNJ” Then
Txtjb.Text = “Manajemen”
Txtha.Text = “42000”
Txtpg.Text = “Valentina Mariana Adiwianti”
ElseIf b = “CDR” Then
Txtjb.Text = “Corel Draw”
Txtha.Text = “53000”
Txtpg.Text = “Riyan Suhandi”
ElseIf b = “RPL” Then
Txtjb.Text = “Rekayasa Perangkat Lunak”
Txtha.Text = “83000”
Txtpg.Text = “Sinta Umpu Singa”
End If
Txtth.Text = “20” & Right(Cbokd.Text, 2)
End Sub

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

 

PROGRAM7

 

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtkd.SetFocus
Txtkd.Text = “”
Txtha.Text = “”
Txtjs.Text = “”
Txtjam.Text = “”
Txtjum.Text = “”
Txttot.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtkd.Text, 1, 3)
If J = “BIM” Then
Txtha.Text = “50000”
Txtjs.Text = “BIMA”
Txtjam.Text = “16.00”
ElseIf J = “EKO” Then
Txtha.Text = “35000”
Txtjs.Text = “EKONOMI”
Txtjam.Text = “19.00”
ElseIf J = “MUT” Then
Txtha.Text = “23000”
Txtjs.Text = “MUTIARA”
Txtjam.Text = “17.00”
ElseIf J = “SEN” Then
Txtha.Text = “15000”
Txtjs.Text = “SENJA”
Txtjam.Text = “20.00”
End If
Txtjum.SetFocus
End Sub

Private Sub Txtjum_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttot.Text = Val(Txtha * Txtjum)
End If
End Sub

Private Sub Txtkd_Change()

End Sub

PROGRAM8

 

Private Sub kosong()
Textkode.SetFocus
Textkode.Text = “”
Textjb.Text = “”
Textpg.Text = “”
Texttt.Text = “”
Textpe.Text = “”
Textha.Text = “”
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Cmdproses_Click()
Dim b As String
b = Mid(Textkode.Text, 1, 3)
If b = “SIM” Or b = “sim” Then
Textjb.Text = “Sistem Informasi Manajemen”
Textpg.Text = “Fadiya Ulfa”
Textha.Text = “75900”
ElseIf b = “EDP” Or b = “edp” Then
Textjb.Text = “Elektronika Data Processig”
Textpg.Text = “Nurul Agustina”
Textha.Text = “62000”
ElseIf b = “MNJ” Or b = “mnj” Then
Textjb.Text = “Manajemen”
Textpg.Text = “Rian Hidayat”
Textha.Text = “42000”
ElseIf b = “CDR” Or b = “cdr” Then
Textjb.Text = “Corel Draw”
Textpg.Text = “Siti Nur Khotimah”
Textha.Text = “53000”
ElseIf b = “RPL” Or b = “rpl” Then
Textjb.Text = “Rekayasa Perangkat Lunak”
Textpg.Text = “Winda Erlianti”
Textha.Text = “83000”
End If
b = Mid(Textkode.Text, 8, 1)
If b = “A” Or b = “a” Then
Textpe.Text = “Andi Offset Yogyakarta”
ElseIf b = “I” Or b = “i” Then
Textpe.Text = “Indah Surabaya”
ElseIf b = “S” Or b = “s” Then
Textpe.Text = “Salemba Empat”
ElseIf b = “E” Or b = “e” Then
Textpe.Text = “Elek Media Komputindo”
ElseIf b = “M” Or b = “m” Then
Textpe.Text = “Maxicom”
End If
Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)
End Sub

Private Sub Textkode_Change()

End Sub

 

 

 

 

Pertemuan ke 2

program 1program 2

source code
Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
Lblteks.FontBold = True
Else
Lblteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
Lblteks.FontItalic = True
Else
Lblteks.FontItalic = False
End If
End Sub

Private Sub Chkstrikeout_Click()
If Chkstrikeout.Value = 1 Then
Lblteks.FontStrikethru = True
Else
Lblteks.FontStrikethru = False
End If
End Sub

Private Sub Chkunderline_Click()
If Chkunderline.Value = 1 Then
Lblteks.FontUnderline = True
Else
Lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Optblue_Click()
Lblteks.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
Lblteks.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
Lblteks.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
Lblteks.ForeColor = vbYellow
End Sub

 

 

program 2progran1

source code

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

 

 

program 3

baru

 

source code

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case Cbonpm.Text

Case “15100107”

nama = “ADI KISWANTO”

jurusan = “Management Informatika”

Case “15100052”

nama = “ADITYA WIBOWO”

jurusan = “Sistem Informasi”

Case “15100054”

nama = “AGUNG SETIAWAN”

jurusan = “Management”

Case “15100056”

nama = “ALFINA DAMAYANTI”

jurusan = “Sistem Informasi”

Case “15100063”

nama = “ANTI SUSANTI”

jurusan = “Farmasi”

Case “15100081”

nama = “ANTIA”

jurusan = “Ahli Gigi”

Case “15100086”

nama = “BAYU SANJAYA”

jurusan = “Montir”

Case “15100043”

nama = “BENI RISMAWAN”

jurusan = “Sistem Informasi”

Case “15100217”

nama = “CATUR PUJI PAMUNGKAS”

jurusan = “Hukum”

Case “15100053”

nama = “DAVID BUDIANTO”

jurusan = “Dokter Hewan”

Case “15100058”

nama = “DERU HENDRAWAN”

jurusan = “Dokter”

Case “15100073”

nama = “ELMA SINTIA”

jurusan = “Managemen Informatika”

Case “15100082”

nama = “ENI SUNDARI”

jurusan = “Bahasa Indonesia”

Case “15100045”

nama = “GILBET ALEXANDER”

jurusan = “Bahasa Inggris”

Case “15100076”

nama = “GITA KUSUMAWARDANI”

jurusan = “Perhotelan”

Case “15100057”

nama = “HAFID BANURAHMAN”

jurusan = “Sistem Informasi”

Case “15100044”

nama = “IRFAN NURFADULLOH”

jurusan = “Pertanian”

Case “15100067”

nama = “LAILA TURROHMAH”

jurusan = “desainer”

Case “15100066”

nama = “LELA KOMALASARI”

jurusan = “Dokter Kecantikan”

Case “15100047”

nama = “M.MANDALA SAKTI”

jurusan = “Sistem Informasi”

Case “15100048”

nama = “M.ZAINUL MUTAQIN”

jurusan = “Ilmu Komunikasi”

Case “15100050”

nama = “MARIKUN”

jurusan = “Farmasi”

Case “15100051”

nama = “MARSYANTO”

jurusan = “Olahraga”

Case “15100074”

nama = “MUALLAMAH”

jurusan = “Teknik Informatika”

Case “15100062”

nama = “NABILA GHASSANI KARLUS”

jurusan = “Pendidikan Agama Islam”

Case “15100070”

nama = “NILA RESTIANA”

jurusan = “Dokter Kecantikan”

Case “15100071”

nama = “NITA MEY LINDA”

jurusan = “Sistem Informasi”

Case “15100080”

nama = “NOFIYANTI”

jurusan = “Ekonomi”

Case “15100068”

nama = “OKTA MAHENDRA”

jurusan = “Hukum”

Case “15100064”

nama = “PANCA LARASAFITRI”

jurusan = “Ahli Gigi”

Case “15100079”

nama = “RISKA DIANA”

jurusan = “Managemen”

Case “15100061”

nama = “RISWAN EFENDI”

jurusan = “Kedokteran”

Case “15100059”

nama = “RIYAN ALFARIZI”

jurusan = “Kimia”

Case “15100072”

nama = “SUSANTI”

jurusan = “Management Informatika”

Case “15100069”

nama = “TRI AYU SEPTIANA”

jurusan = “Ilmu Komunikasi”

Case “15100055”

nama = “VIVI NASIHATUN HIKMAH”

jurusan = “Hukum”

Case “15100075”

nama = “WAHYUZA FRISTA DEA”

jurusan = “Psikologi”

End Select

Textnama.Text = nama

Textjurusan.Text = jurusan

Textquis.SetFocus

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

 

program 4

 

program24

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

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “Management Informatika”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “Sistem Informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “Management”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “Sistem Informasi”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “Farmasi”
Case “15100081”
nama = “ANTIA”
jurusan = “Ahli Gigi”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “Montir”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “Sistem Informasi”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “Hukum”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter Hewan”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “Dokter”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “Managemen Informatika”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Bahasa Indonesia”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “Bahasa Inggris”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “Perhotelan”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “Sistem Informasi”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “Pertanian”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “desainer”
Case “15100066”
nama = “LELA KOMALASARI”
jurusan = “Dokter Kecantikan”
Case “15100047”
nama = “M.MANDALA SAKTI”
jurusan = “Sistem Informasi”
Case “15100048”
nama = “M.ZAINUL MUTAQIN”
jurusan = “Ilmu Komunikasi”
Case “15100050”
nama = “MARIKUN”
jurusan = “Farmasi”
Case “15100051”
nama = “MARSYANTO”
jurusan = “Olahraga”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “Pendidikan Agama Islam”
Case “15100070”
nama = “NILA RESTIANA”
jurusan = “Dokter Kecantikan”
Case “15100071”
nama = “NITA MEY LINDA”
jurusan = “Sistem Informasi”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “Ekonomi”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Hukum”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “Ahli Gigi”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Managemen”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “Kedokteran”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “Kimia”
Case “15100072”
nama = “SUSANTI”
jurusan = “Management Informatika”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “Ilmu Komunikasi”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “Hukum”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “Psikologi”
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 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 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 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

 

 

 

 

 

TUGAS BAHASA PEMROGRAMAN VB

TUGAS DISKON

 

sorce code

1.1 Diskon proses

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

1.2 Diskon multi

 

Private Sub cmdhitung_Click()

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulang_Click()

textha.SetFocus

textha = “”

Textdi = “”

Texthi = “”

End Sub

 

Private Sub textha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textdi.Text = Val(textha) * 0.1

Texthi.Text = Val(textha) – Val(Textdi)

End If

End Sub

 

screen shoot

nila diskon.png

 

 

TUGAS GAJI

 

source code

  • Gaji proses

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

 

  • Gaji multi

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End Sub

 

Private Sub cmdulang_Click()

Textgp.SetFocus

Textgp = “”

Texttj = “”

Textpt = “”

Textgk = “”

Textpj = “”

Textgt = “”

End Sub

 

Private Sub Textgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttj.SetFocus

End If

End Sub

 

Private Sub Textpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textgk.Text = Val(Textgp) + Val(Texttj) – Val(Textpt)

Textpj.Text = Val(Textgk) * 0.1

Textgt.Text = Val(Textgk) – Val(Textpj)

End If

End Sub

 

Private Sub Texttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textpt.SetFocus

End If

End Sub

 

screen shoot

nila gaji