Tugas 1

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

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

Tugas 2

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

Tugas 3

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

Tugas 4

 

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

tugas 5

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

Tugas 6

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

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

tugas 7

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

tugas 8

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

Textjb.Text = “Sistem Informasi Manajemen”

Textpg.Text = “Fadiya Ulfa”

Textha.Text = “75900”

ElseIf b = “EDP” Then

Textjb.Text = “Elektronika Data Processig”

Textpg.Text = “Nurul Agustina”

Textha.Text = “62000”

ElseIf b = “MNJ” Then

Textjb.Text = “Manajemen”

Textpg.Text = “Rian Hidayat”

Textha.Text = “42000”

ElseIf b = “CDR” Then

Textjb.Text = “Corel Draw”

Textpg.Text = “Siti Nur Khotimah”

Textha.Text = “53000”

ElseIf 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” Then

Textpe.Text = “Andi Offset Yogyakarta”

ElseIf b = “I” Then

Textpe.Text = “Indah Surabaya”

ElseIf b = “S” Then

Textpe.Text = “Salemba Empat”

ElseIf b = “E” Then

Textpe.Text = “Elek Media Komputindo”

ElseIf b = “M” Then

Textpe.Text = “Maxicom”

End If

Texttt.Text = “20” & Mid(Textkode.Text, 5, 2)

End Sub

tugas 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” Then

Textgol.Text = “A”

Textjbt.Text = “Manajer”

Textgapok.Text = “4000000”

Texttun.Text = “1025000”

ElseIf b = “B” Then

Textgol.Text = “B”

Textjbt.Text = “Kepala Seksi”

Textgapok.Text = “3500000”

Texttun.Text = “975000”

ElseIf 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” Then

Textkode.Text = “S”

Textsts.Text = “Single”

ElseIf b = “M” Then

Textkode.Text = “M”

Textsts.Text = “Menikah”

ElseIf b = “J” Then

Textkode.Text = “J”

Textsts.Text = “Janda”

ElseIf b = “D” Then

Textkode.Text = “D”

Textsts.Text = “Duda”

End If

b = Mid(Textnik.Text, 9, 3)

If b = “KEU” Then

Textbgn.Text = “Accounting”

ElseIf b = “ADM” Then

Textbgn.Text = “Administrasi”

ElseIf b = “SDM” Then

Textbgn.Text = “General Affair”

ElseIf b = “EDP” Then

Textbgn.Text = “IT Unit”

ElseIf 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 Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnik.SetFocus

End If

End Sub

pertemuan 2

program 1

screenshoot

sourcecode

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 2

screenshoot

sourcecode

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

screenshoot

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

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “hukum”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “Sistem Informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “Management”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “ekonomi”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “Farmasi”
Case “15100081”
nama = “ANTIA”
jurusan = “syariah”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “kedokteran”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “keperawatan”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “tehnik mesin”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter Hewan”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “seni rupa”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “tehnik sipil”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Bahasa Indonesia”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “Bahasa Inggris”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “pertanian”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “perikanan”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “pendidikan agama islam”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “PG Paud”
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 = “PG SD”
Case “15100051”
nama = “MARSYANTO”
jurusan = “pendidikan islam”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “sistem informasi”
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 = “hukum islam”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “Kimia murni”
Case “15100072”
nama = “SUSANTI”
jurusan = “seni tari”
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

screenshoot

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

Select Case Cbonpm.Text
Case “15100107”
nama = “ADI KISWANTO”
jurusan = “hukum”
Case “15100052”
nama = “ADITYA WIBOWO”
jurusan = “Sistem Informasi”
Case “15100054”
nama = “AGUNG SETIAWAN”
jurusan = “Management”
Case “15100056”
nama = “ALFINA DAMAYANTI”
jurusan = “ekonomi”
Case “15100063”
nama = “ANTI SUSANTI”
jurusan = “Farmasi”
Case “15100081”
nama = “ANTIA”
jurusan = “syariah”
Case “15100086”
nama = “BAYU SANJAYA”
jurusan = “kedokteran”
Case “15100043”
nama = “BENI RISMAWAN”
jurusan = “keperawatan”
Case “15100217”
nama = “CATUR PUJI PAMUNGKAS”
jurusan = “tehnik mesin”
Case “15100053”
nama = “DAVID BUDIANTO”
jurusan = “Dokter Hewan”
Case “15100058”
nama = “DERU HENDRAWAN”
jurusan = “seni rupa”
Case “15100073”
nama = “ELMA SINTIA”
jurusan = “tehnik sipil”
Case “15100082”
nama = “ENI SUNDARI”
jurusan = “Bahasa Indonesia”
Case “15100045”
nama = “GILBET ALEXANDER”
jurusan = “Bahasa Inggris”
Case “15100076”
nama = “GITA KUSUMAWARDANI”
jurusan = “pertanian”
Case “15100057”
nama = “HAFID BANURAHMAN”
jurusan = “perikanan”
Case “15100044”
nama = “IRFAN NURFADULLOH”
jurusan = “pendidikan agama islam”
Case “15100067”
nama = “LAILA TURROHMAH”
jurusan = “PG Paud”
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 = “PG SD”
Case “15100051”
nama = “MARSYANTO”
jurusan = “pendidikan islam”
Case “15100074”
nama = “MUALLAMAH”
jurusan = “Teknik Informatika”
Case “15100062”
nama = “NABILA GHASSANI KARLUS”
jurusan = “sistem informasi”
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 = “hukum islam”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “Kimia murni”
Case “15100072”
nama = “SUSANTI”
jurusan = “seni tari”
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