Tugas 2 Program 8 BP1



P8


Private Sub Form_Load()
Cbonpm.AddItem "17100075"
Cbonpm.AddItem "17200089"
Cbonpm.AddItem "16300212"
Cbonpm.AddItem "17400056"
Cbonpm.AddItem "15400586"
End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnt.SetFocus
End If
End Sub

Private Sub txtnt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq)
TUGAS = Val(txtnt)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA


Select Case txtna
 Case Is = 100
 HM = "A"
 Case Is >= 80
 HM = "A"
 Case Is >= 70
 HM = "B"
 Case Is >= 60
 HM = "C"
 Case Is >= 50
 HM = "D"
 Case Is <= 49
 HM = "E"
  End Select
  txthm.Text = HM
End If
End Sub

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

Select Case Cbonpm
 Case "17100075"
 nama = "DWI AGUNG CAHYADI"
 jurusan = "Sistem Informasi"
 Case "17200089"
 nama = "IMAMUDDIN"
 jurusan = "Manajemen Informatika"
 Case "16300212"
 nama = "SUKINEM"
 jurusan = "Tehnik Sipil"
 Case "17400056"
 nama = "SAKIR KECIL"
 jurusan = "Tehnik Informatika"
 Case "15400586"
 nama = "MBAH WAGU"
 jurusan = "MANAGEMENT SISTEM INFORMASI"
 End Select
 txtnm = nama
 txtjr = jurusan
 txtnq.SetFocus
 End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
txtnm = ""
txtjr = ""
txtnq = ""
txtnt = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA

Select Case txtna
 Case Is = 100
 HM = "A"
 Case Is >= 80
 HM = "A"
 Case Is >= 70
 HM = "B"
 Case Is >= 60
 HM = "C"
 Case Is >= 50
 HM = "D"
 Case Is <= 49
 HM = "E"
  End Select
  txthm.Text = HM
 End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

CARA MEMBUAT AKUN BBM DAN CONTOH

Gambar
Cara Membuat Email BBM [Contoh Email BBM disini saya menggunakan Akun Gmail] 1. Siapkan email yang sudah kamu punya, jika belum punya bisa ikuti caranya disini : Cara Buat Email Baru Di Gmail Bahasa Indonesia . Jika sudah siap emailnya, silahkan buka aplikasi BBM yang sudah di download / di instal. Seperti berikut aplikasi yang belum di daftarkan akun blackkberry ID. Kemudian tekan Sign up with an email address, lihat pada yang saya tandai dengan panah. 2. Hampir tidak berbeda dengan tampilan awal tadi. Lengkapi dengan data yang kamu punya. Di kolom atas untuk mengisi nama akun, pada yang saya beri tanda adalah untuk memasukan email yang kamu punya. Kemudian untuk kata sandi, minimal 6 katakter. 3. Jika sudah di lengkapi dan memasukan email bbm dengan benar, tekan Create Account. 4. Pastikan alamat email yang digunakan tidak salah ketik. Jika benar, tekan it's correct. 5. Di langkah ini, boleh pilih mana saja terserah. Tapi saya melanjut
Baca selengkapnya

Cara cek shutter count kamera DSLR canon dengan akurat

Gambar
  Dengan mengecek shutter count maka anda dapat menyimpulkan seberapa sering kamera anda digunakan dan seberapa banyak pula hasil foto yang telah diambil dengan kamera anda . Shutter count terkadang menjadi dasar seseorang untuk membeli kamera bekas karena mereka beranggapan bahwa umur kamera ditentukan dari shutter count , tapi sebetulnya tidak semua ditentukan dengan shutter count seharusnya . Banyak hal yang meyebabkan kamera itu bisa rusak bukan hanya karena shutter count . Namun secara pemikiran yang lebih simple apabila shutter count banyak maka itu juga bisa menjadi acuan bahwa bisa jadi komponen mekanisme kamera mengalami penurunan peformanya sama halnya dengan kilometer pada kendaraan yang memiliki keterbatasan usia / umur / pemakaian Langkah-Langkah Central Department Store - Thailand’s Best-Loved Store Iklan Exclusively Promotion for Tourist. Join ours branch; Bangkok, Pattaya and … goshoppingthailand.com Selengkapnya Cara untu
Baca selengkapnya

STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru 2017

Gambar
STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru Sumaterapost.co – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan Program Orientasi Pendidikan Tinggi (POSDIKTI) bagi Mahasiswa Baru, dibuka oleh Wakil Ketua III Bidang Kemahasiswaan, Nuraminudin. M.T.I mewakili Ketua STMIK Pringsewu, Hj. Rita Irviani, SE, M.M, Jum’at (11/8). Ketua STMIK Pringsewu Hj. Rita Irviani. SE.MM dalam sambutannya, yang disampaikan oleh Wakil Ketua III Bidang Kemahasiswaan Nuraminudin M.T.I, mengatakan, POSDIKTI adalah kegiatan orientasi bagi mahasiswa baru untuk memperkenalkan kepada mahasiswa baru tentang kurikulum Pendidikan Di Kampus STMIK Pringsewu, serta mengenal lebih dekat para Dosen, serta antar mahasiswa baru serta organisasi kemahasiswaan di lingkungan kampus. Hadir dalam pembukaan POSDIKTI, Wakil Ketua I Bidang Akademik, Elidabeth Anggraeni, MTI, wakil ketua II Bidang Keuangan Trisusilowati, MTI, Ka Prodi Diploma III Oktafianto, MT
Baca selengkapnya