PROGRAM 10 DATABASE

TUGAS1

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

 

TUGAS2

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

Private Sub Form_Load()
Form1.Show
End Sub

TUGAS3

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

TUGAS4

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

TUGAS5

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

TUGAS6

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()
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

TUGAS7

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

TUGA8

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

TUGAS9

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

TUGAS10

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

 

Advertisements

9 PROGRAM

1.PROGRAM SATU

TUGAS1

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 Cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

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 Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbogolongan.SetFocus

End If

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

2.PROGRAM DUAA

TUGAS2.1

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Tehnik Informatika”

ElseIf S = “3” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtjur.Text = “Komputer Akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01” Then

txtprody.Text = “Strata Satu”

ElseIf S = “02” Then

txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

txtprodi.Text = “Diploma Dua”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

3.PROGRAM TIGA

TUGAS2.2

 

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text

End Sub

 

 

 

Private Sub cmdPROSES_Click()

Dim s As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

s = Mid(txtnpm.Text, 3, 3)

If s = “100” Then

txtjur.Text = “sistem informasi”

txtprody = “strata satu”

ElseIf s = “200” Then

txtjur.Text = “manajemen informatika”

txtprody = “diploma tiga”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprody.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

4.PROGRAM EMPAT

TUGAS4

 

Private Sub Form_Load()

cbokodelap.AddItem “Apple MC965 MacBook Air”

cbokodelap.AddItem “Apple MC966 MacBook Air”

cbokodelap.AddItem “Apple MC968 MacBook Air”

cbokodelap.AddItem “Apple MC969 MacBook Air”

cbokodelap.AddItem “Apple MC700 MacBook Pro”

cbokodelap.AddItem “Apple MC721 MacBook Pro”

cbokodelap.AddItem “Apple MC723 MacBook Pro”

cbokodelap.AddItem “Apple MC724 MacBook Pro”

cbokodelap.AddItem “Apple MC311 MacBook Pro”

cbokodelap.AddItem “Apple MC313 MacBook Pro”

cbokodelap.AddItem “Apple MC314 MacBook Pro”

cbokodelap.AddItem “Apple MC318 MacBook Pro”

cbokodelap.AddItem “Apple MC322 MacBook Pro”

cbokodelap.AddItem “Apple MC965 MacBook Air”

cbokodelap.AddItem “Apple MC966 MacBook Air”

End Sub

 

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.Text = Val(txths) * Val(Txtjj)

Select Case txthp.Text

Case Is > 140000000

txtdis.Text = Val(txthp) * 0.15

Case Is > 135000000

txtdis.Text = Val(txthp) * 0.1

Case Is > 130000000

txtdis.Text = Val(txthp) * 0.05

Case Is > 125000000

txtdis.Text = Val(txthp) * 0.02

End Select

txttotal.Text = Val(txthp) – Val(txtdis)

End If

End Sub

Private Sub cbokodelap_Click()

Dim mt, hs, TB As Integer

Select Case cbokodelap.Text

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

Case “Apple MC968 MacBook Air”

mt = “Apple MacBook Air MC968”

hs = “9900000”

Case “Apple MC969 MacBook Air”

mt = “Apple MacBook Air MC969”

hs = “11900000”

Case “Apple MC700 MacBook Pro”

mt = “Apple MacBook Pro MC700”

hs = “10800000”

Case “Apple MC721 MacBook Pro”

mt = “Apple MacBook Pro MC721”

hs = “15900000”

Case “Apple MC723 MacBook Pro”

mt = “Apple MacBook Pro MC723”

hs = “19300000”

Case “Apple MC724 MacBook Pro”

mt = “Apple MacBook Pro MC724”

hs = “13700000”

Case “Apple MC311 MacBook Pro”

mt = “Apple MacBook Pro MC311”

hs = “24200000”

Case “Apple MC313 MacBook Pro”

mt = “Apple MacBook Pro MC313”

hs = “11900000”

Case “Apple MC314 MacBook Pro”

mt = “Apple MacBook Pro MC314”

hs = “14700000”

Case “Apple MC318 MacBook Pro”

mt = “Apple MacBook Pro MC318”

hs = “17600000”

Case “Apple MC322 MacBook Pro”

mt = “Apple MacBook Pro MC322”

hs = “21300000”

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

End Select

txtmerktype.Text = mt

txths.Text = hs

txtjumlah.SetFocus

 

End Sub

 

Private Sub cmdhitung_Click()

cbokodelap.SetFocus

cbokodelap.Text = “”

txtmerktype.Text = “”

txths.Text = “”

txtjumlah.Text = “”

txthp.Text = “”

txtdis.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths) * Val(txtjumlah)

Select Case txthp.Text

Case Is > 140000000

txtdis.Text = Val(txthp) * 0.15

Case Is > 135000000

txtdis.Text = Val(txthp) * 0.1

Case Is > 130000000

txtdis.Text = Val(txthp) * 0.05

Case Is > 125000000

txtdis.Text = Val(txthp) * 0.02

End Select

txttotal.Text = Val(txthp) – Val(txtdis)

End Sub

5.PROGRAM LIMA

tugas5

Private Sub Cmdlagi_Click()

Cbocode.SetFocus

Cbocode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

Private Sub Cmdproses_Click()

Txthp = Val(Txtjj) * Val(Txths)

If Val(Txthp) > “30000000” Then

Txtdis = Val(Txthp) * 15 / 100

ElseIf Val(Txthp) > “25000000” Then

Txtdis = Val(Txthp) * 10 / 100

ElseIf Val(Txthp) > “20000000” Then

Txtdis = Val(Txthp) * 5 / 100

ElseIf Val(Txthp) > “15000000” Then

Txtdis = Val(Txthp) * 2 / 100

End If

Txthb = Val(Txthp) – Val(Txtdis)

End Sub

 

Private Sub Form_Activate()

Cbocode.SetFocus

Cbocode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txtdis = “”

Txthb = “”

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 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

Txtjk = jenis

Txths = hs

Txtjj.SetFocus

End Sub

 

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

6.PROGRAM ENAM

TUGAS6

Private Sub cmdproses_Click()

Dim jb, pg, pn, hg As String

txttahun.Text = “20” & Right(cbokodebuku, 2)

s = Mid(cbokodebuku, 3, 3)

If s = “SIM” Then

jb = “Sistem informasi manajemen”

pg = “YatiNurOktavia”

hg = “75900”

ElseIf s = “EDP” Then

jb = “Elektronik Data Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf s = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf s = “CDR” Then

jb = “Corel Draw”

pg = “Riyan Suhandi”

hg = “53000”

ElseIf s = “RPL” Then

jb = “RekayasaPerangkatLunak”

pg = “SintaUmpuSinga”

hg = “83000”

End If

txtjudulbuku.Text = jb

txtpengarang.Text = pg

txtharga.Text = hg

s = Mid(cbokodebuku, 1, 1)

If s = “A” Then

pn = “surya Offset Yogyakarta”

ElseIf s = “I” Then

pn = “indah surabay”

ElseIf s = “S” Then

pn = “SalembaEmpat”

ElseIf s = “E” Then

pn = “Elek Media Komputindo”

ElseIf s = “M” Then

pn = “Maxicom”

End If

txtpenerbit.Text = pn

End Sub

 

Private Sub Form_Load()

cbokodebuku.AddItem “A-SIM-01”

cbokodebuku.AddItem “I-EDP-02”

cbokodebuku.AddItem “S-MNJ-03”

cbokodebuku.AddItem “E-CDR-04”

cbokodebuku.AddItem “M-RPL-05”

End Sub

Private Sub cmdbatal_Click()

cbokodebuku.SetFocus

cbokodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokodebuku.SetFocus

cbokodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

7.PROGRAM TUJUH

TUGAS7

Private Sub cmdproses_Click()

Dim S As String

S = Left(txtkode.Text, 3)

If S = “BIM” Then

txtjk.Text = “BIMA”

txtht.Text = “50000”

txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

txtjk.Text = “EKONOMI”

txtht.Text = “35000”

txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

txtjk.Text = “MUTIARA”

txtht.Text = “23000”

txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

txtjk.Text = “SENJA”

txtht.Text = “15000”

txtjb.Text = “20.00 WIB”

End If

txttotal.Text = Val(txtht.Text) * Val(txtjt.Text)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(txtkt.Text, 3)

If S = “BIM” Then

txtjk.Text = “BIMA”

txtht.Text = “50000”

txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

txtjk.Text = “EKONOMI”

txtht.Text = “35000”

txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

txtjk.Text = “MUTIARA”

txtht.Text = “23000”

txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

txtjk.Text = “SENJA”

txtht.Text = “15000”

txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

Private Sub cmdproses_Click()

Dim S As String

S = Left(txtkode.Text, 3)

If S = “BIM” Then

txtjk.Text = “BIMA”

txtht.Text = “50000”

txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

txtjk.Text = “EKONOMI”

txtht.Text = “35000”

txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

txtjk.Text = “MUTIARA”

txtht.Text = “23000”

txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

txtjk.Text = “SENJA”

txtht.Text = “15000”

txtjb.Text = “20.00 WIB”

End If

txttotal.Text = Val(txtht.Text) * Val(txtjt.Text)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(txtkt.Text, 3)

If S = “BIM” Then

txtjk.Text = “BIMA”

txtht.Text = “50000”

txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

txtjk.Text = “EKONOMI”

txtht.Text = “35000”

txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

txtjk.Text = “MUTIARA”

txtht.Text = “23000”

txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

txtjk.Text = “SENJA”

txtht.Text = “15000”

txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

txttotal = “”

End Sub

 

8.PROGRAM DELAPAN

elma.tugas8

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Mid(txtkode, 5, 2)

S = Left(txtkode, 3)

If S = “SIM” Then

txtjudul.Text = “Sistem Informasi Manajemen”

txtpengarang.Text = “Fadiya Ulfa”

txtharga.Text = “75900”

ElseIf S = “EDP” Then

txtjudul.Text = “Elektronik Data Processing”

txtpengarang.Text = “Nurul Agustina”

txtharga.Text = “62000”

ElseIf S = “MNJ” Then

txtjudul.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000”

ElseIf S = “CDR” Then

txtjudul.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000”

ElseIf S = “RPL” Then

txtjudul.Text = “Rekayasa Perangkat Lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000”

End If

S = Right(txtkode, 1)

If S = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Mid(txtkode, 5, 2)

S = Left(txtkode, 3)

If S = “SIM” Then

txtjudul.Text = “Sistem Informasi Manajemen”

txtpengarang.Text = “Fadiya Ulfa”

txtharga.Text = “75900”

ElseIf S = “EDP” Then

txtjudul.Text = “Elektronik Data Processing”

txtpengarang.Text = “Nurul Agustina”

txtharga.Text = “62000”

ElseIf S = “MNJ” Then

txtjudul.Text = “Manajemen”

txtpengarang.Text = “Rian Hidayat”

txtharga.Text = “42000”

ElseIf S = “CDR” Then

txtjudul.Text = “Corel Draw”

txtpengarang.Text = “Siti Nur Khotimah”

txtharga.Text = “53000”

ElseIf S = “RPL” Then

txtjudul.Text = “Rekayasa Perangkat Lunak”

txtpengarang.Text = “Winda Erlianti”

txtharga.Text = “83000”

End If

S = Right(txtkode, 1)

If S = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

End If

End Sub

 

9.PROGRAM SEMBILAN

ELMA.TUGAS9

Private Sub cmdproses_Click()

Dim r As String

r = Mid(txtmn.Text, 5, 1)

If r = “A” Then

txtgol = “A”

txtjabatan.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunj.Text = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunj.Text = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAFF”

txtgapok.Text = “3000000”

txttunj.Text = “925000”

End If

r = Right(txtmn.Text, 3)

If r = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

txtbagian.Text = “SECURITY”

End If

r = Mid(txtmn.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGLE”

ElseIf r = “M” Then

kode = “M”

Status = “MENIKAH”

ElseIf r = “J” Then

kode = “J”

Status = “JANDA”

ElseIf r = “D” Then

kode = “D”

Status = “DUDA”

End If

txtkode.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtmn.Text, 4)

txttotal.Text = Val(txtgapok.Text) + Val(txttunj.Text)

End Sub

Private Sub cmdbatal_Click()

txtmnk.SetFocus

txtmnk.Text = “”

txtmn.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txttotal.Text = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

 

Private Sub Form_Activate()

If KeyAscii = 13 Then

txtmn.SetFocus

End If

End Sub

 

Private Sub txtmnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtmn.SetFocus

End If

End Sub

Pertemuan2

TUGAS1.1

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 chkStrikeout_Click()
‘Membuat teks garis tengah
If chkStrikeout.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 optBlue_Click()
‘Membuat teks bewarna biru
lblteks.ForeColor = vbBlue
End Sub

Private Sub optGreen_Click()
‘Membuat teks bewarna hijau
lblteks.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
‘Membuat teks bewarna merah
lblteks.ForeColor = vbRed
End Sub

Private Sub optYellow_Click()
‘Membuat teks bewarna kuning
lblteks.ForeColor = vbYellow
End Sub

tugas2

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

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

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

Private Sub Command2_Click()
End
End Sub

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

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

tugas3

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

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

Select Case cbonmp.Text
Case “15100170”
nama = “Adi Kiswanto”
jurusan = “MANAGEMEN UMUM”
Case “15100052”
nama = “Aditya Wibowo”
jurusan = “BAHASA INDONESIA”
Case “1510054”
nama = “Agung Setiawan”
jurusan = “MATEMATIKA”
Case “15100056”
nama = “Alfina Damayanti”
jurusan = “BIDAN”
Case “15100063”
nama = “Anti Susanti”
jurusan = “SISTEM INFORMASI”
Case “15100081”
nama = “Antia”
jurusan = “FARMASI”
Case “15100046”
nama = “Bayu Sanjaya”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100043”
nama = “Beni Rismawan”
jurusan = “BIDAN”
Case “151000217”
nama = “Catur Puji Pamungkas”
jurusan = “PERAWAT”
Case “15100053”
nama = “David Budianto”
jurusan = “BIOLOGI”
Case “15100058”
nama = “Deru Hendrawan”
jurusan = “EKONOMI”
Case “15100073”
nama = “Elma Sintia”
jurusan = “SISTEM INFORMASI”
Case “15100082”
nama = “Eni Sundari”
jurusan = “BAHASA INGGRIS”
Case “15100045”
nama = “Gelbet Alexander”
jurusan = “MANAGEMEN UMUM”
Case “15100076”
nama = “Gita Kusuma Wardani”
jurusan = “BIDAN”
Case “15100057”
nama = “Hafid Banu Rahman”
jurusan = “Farmasi”
Case “15100044”
nama = “Irfan Nur Fadulloh”
jurusan = “SENI BUDAYA”
Case “15100067”
nama = “Lailaturohmah”
jurusan = “AKUTANSI”
Case “15100066”
nama = “Lela Komalasari”
jurusan = “HUKUM”
Case “15100047”
nama = “M Mandala Sakti”
jurusan = “BAHASA ASING”
Case “15100048”
nama = “M Zainul Mutaqin”
jurusan = “Biologi”
Case “15100050”
nama = “Marikun”
jurusan = “SISTEM INFORMASI”
Case “15100051”
nama = “Marsiyanto”
jurusan = “Biologi”
Case “15100074”
nama = “Muallamah”
jurusan = “PERAWAT”
Case “15100062”
nama = “Nabila Ghassani Karlus”
jurusan = “SISTEM INFORMASI”
Case “15100070”
nama = “Nila Restiana”
jurusan = “SISTEM INFORMASI”
Case “15100071”
nama = ” Nita Maylinda”
jurusan = “PERAWAT”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “Akutansi”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “Keperawatan”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “Manajemen Informatika”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “MATEMATIKA”
Case “15100072”
nama = “SUSANTI”
jurusan = “Bahasa Indonesia”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “Ekonomi”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “Bahasa Inggris”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “Sistem Informasi”
End Select
Textnama.Text = nama
TextJurusan.Text = jurusan
Textquis.SetFocus
End Sub

tugas 4

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

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

Select Case cbonmp.Text
Case “15100170”
nama = “Adi Kiswanto”
jurusan = “MANAGEMEN UMUM”
Case “15100052”
nama = “Aditya Wibowo”
jurusan = “BAHASA INDONESIA”
Case “1510054”
nama = “Agung Setiawan”
jurusan = “MATEMATIKA”
Case “15100056”
nama = “Alfina Damayanti”
jurusan = “BIDAN”
Case “15100063”
nama = “Anti Susanti”
jurusan = “SISTEM INFORMASI”
Case “15100081”
nama = “Antia”
jurusan = “FARMASI”
Case “15100046”
nama = “Bayu Sanjaya”
jurusan = “MANAGEMEN INFORMATIKA”
Case “15100043”
nama = “Beni Rismawan”
jurusan = “BIDAN”
Case “151000217”
nama = “Catur Puji Pamungkas”
jurusan = “PERAWAT”
Case “15100053”
nama = “David Budianto”
jurusan = “BIOLOGI”
Case “15100058”
nama = “Deru Hendrawan”
jurusan = “EKONOMI”
Case “15100073”
nama = “Elma Sintia”
jurusan = “SISTEM INFORMASI”
Case “15100082”
nama = “Eni Sundari”
jurusan = “BAHASA INGGRIS”
Case “15100045”
nama = “Gelbet Alexander”
jurusan = “MANAGEMEN UMUM”
Case “15100076”
nama = “Gita Kusuma Wardani”
jurusan = “BIDAN”
Case “15100057”
nama = “Hafid Banu Rahman”
jurusan = “Farmasi”
Case “15100044”
nama = “Irfan Nur Fadulloh”
jurusan = “SENI BUDAYA”
Case “15100067”
nama = “Lailaturohmah”
jurusan = “AKUTANSI”
Case “15100066”
nama = “Lela Komalasari”
jurusan = “HUKUM”
Case “15100047”
nama = “M Mandala Sakti”
jurusan = “BAHASA ASING”
Case “15100048”
nama = “M Zainul Mutaqin”
jurusan = “Biologi”
Case “15100050”
nama = “Marikun”
jurusan = “SISTEM INFORMASI”
Case “15100051”
nama = “Marsiyanto”
jurusan = “Biologi”
Case “15100074”
nama = “Muallamah”
jurusan = “PERAWAT”
Case “15100062”
nama = “Nabila Ghassani Karlus”
jurusan = “SISTEM INFORMASI”
Case “15100070”
nama = “Nila Restiana”
jurusan = “SISTEM INFORMASI”
Case “15100071”
nama = ” Nita Maylinda”
jurusan = “PERAWAT”
Case “15100080”
nama = “NOFIYANTI”
jurusan = “Akutansi”
Case “15100068”
nama = “OKTA MAHENDRA”
jurusan = “Sistem Informasi”
Case “15100064”
nama = “PANCA LARASAFITRI”
jurusan = “Keperawatan”
Case “15100079”
nama = “RISKA DIANA”
jurusan = “Teknik informatika”
Case “15100061”
nama = “RISWAN EFENDI”
jurusan = “Manajemen Informatika”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “MATEMATIKA”
Case “15100072”
nama = “SUSANTI”
jurusan = “Bahasa Indonesia”
Case “15100069”
nama = “TRI AYU SEPTIANA”
jurusan = “Ekonomi”
Case “15100055”
nama = “VIVI NASIHATUN HIKMAH”
jurusan = “Bahasa Inggris”
Case “15100075”
nama = “WAHYUZA FRISTA DEA”
jurusan = “Sistem Informasi”
End Select
Textnama.Text = nama
TextJurusan.Text = jurusan
Textquis.SetFocus
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 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
Text1hm.Text = HM
End Sub

 

click

Capture

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

Private Sub cmdquit_Click()
End
End Sub

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

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

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

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End If
End Sub

 

proses

Capture.JPG

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

Private Sub cmdquit_Click()
End
End Sub

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

Private Sub Form_Load()

End Sub

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

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

click

elm

Private Sub CMD_Click()
End
End Sub

Private Sub cmdhitung_Click()
Textdis = Val(Textha) * 0.1
Textak = Val(Textha) – Val(Textdis)
End Sub

Private Sub Cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Textha.SetFocus
Textha = “”
Textdis = “”
Textak = “”
End Sub

Private Sub Textha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textdis = Val(Textha) * 0.1
Textak = Val(Textha) – Val(Textdis)
End If

End Sub

proses

elm.JPG

Private Sub CMD_Click()
End
End Sub

Private Sub cmdhitung_Click()
Textdis = Val(Textha) * 0.1
Textak = Val(Textha) – Val(Textdis)
End Sub

Private Sub Cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Textha.SetFocus
Textha = “”
Textdis = “”
Textak = “”
End Sub