pertemuan 2

DERU3

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 = “AKUTANSI UMUM”
Case “15100052”
nama = “Aditya Wibowo”
jurusan = “AGAMA ISLAM”
Case “1510054”
nama = “Agung Setiawan”
jurusan = “AGAMA HINDU”
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 = “PERAWAT”
Case “15100043”
nama = “Beni Rismawan”
jurusan = “BIDAN”
Case “151000217”
nama = “Catur Puji Pamungkas”
jurusan = “PRAMUGARI”
Case “15100053”
nama = “David Budianto”
jurusan = “DOKTER HEWAN”
Case “15100058”
nama = “Deru Hendrawan”
jurusan = “EKONOMI”
Case “15100073”
nama = “Elma Sintia”
jurusan = “DOKTER KULIT”
Case “15100082”
nama = “Eni Sundari”
jurusan = “BAHASA INGGRIS”
Case “15100045”
nama = “Gelbet Alexander”
jurusan = “HUKUM”
Case “15100076”
nama = “Gita Kusuma Wardani”
jurusan = “POLWAN”
Case “15100057”
nama = “Hafid Banu Rahman”
jurusan = “DOKTER KLAMIN”
Case “15100044”
nama = “Irfan Nur Fadulloh”
jurusan = “DESAINER”
Case “15100067”
nama = “Lailaturohmah”
jurusan = “AKUTANSI”
Case “15100066”
nama = “Lela Komalasari”
jurusan = “HUKUM”
Case “15100047”
nama = “M Mandala Sakti”
jurusan = “BAHASA KOREA”
Case “15100048”
nama = “M Zainul Mutaqin”
jurusan = “AGAMA ISLAM”
Case “15100050”
nama = “Marikun”
jurusan = “DOKTER KANDUNGAN”
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 = “FARMASI”
Case “15100071”
nama = ” Nita Maylinda”
jurusan = “MULTIMEDIA”
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 = “AGAMA KRISTEN”
Case “15100059”
nama = “RIYAN ALFARIZI”
jurusan = “BIDAN”
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

DERU4

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

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

Iklan

Diterbitkan oleh

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s