PROGRAM 8 TUGAS 2 BP1

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

Select Case Cbonpm
 Case "17100095"
 nama = "ZEMA"
 jurusan = "Sistem Informasi"
 Case "17100096"
 nama = "RETNO NURAINI"
 jurusan = "Manajemen Informatika"
 Case "17100097"
 nama = "PAKI"
 jurusan = "Tehnik Informatika"
 Case "17100098"
 nama = "SAADAH"
 jurusan = "Teknik Mesin"
 Case "17100099"
 nama = " SITI"
 jurusan = "Teknik Komputer"
 End Select
 Txtnama = nama
 txtjurusan = jurusan
 txtquis.SetFocus

 End Sub


Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
Txtnama = ""
txtjurusan = ""
txtquis = ""
txttugas = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""

End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbonpm.AddItem "17100095"
Cbonpm.AddItem "17100096"
Cbonpm.AddItem "17100097"
Cbonpm.AddItem "17100098"
Cbonpm.AddItem "17100099"

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

Select Case txtna
 Case Is > 80
 HM = "A"
 Case Is > 70
 HM = "B"
 Case Is > 60
 HM = "C"
 Case Is > 50
 HM = "D"
 Case Is < 40
 HM = "E"
  End Select
  txthm = HM
End sub



Private Sub txtquis_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txttugas.SetFocus
End If
End Sub

Private Sub txttugas_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)
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 = NA

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

 

Komentar

Posting Komentar

Postingan populer dari blog ini

KAPOLSEK PRINGSEWU “ANJAU SILAU” DENGAN MAHASISWA STMIK PRINGSEWU

Gambar
STMIK PRINGSEWU – Kapolsek Pringsewu Kompol H. Maimun Karim berkunjung ke STMIK Pringsewu, Jum’at (12/2) pagi. Kunjungan tersebut dalam rangka acara “Anjau Silau” (silaturrahmi) antara Kapolsek Pringsewu dengan Mahasiswa STMIK Pringsewu. Acara tersebut sebagai upaya menjalin silaturahmi dan komunikasi antara Mahasiswa STMIK Pringsewu dan aparat kepolisian, Kapolsek Pringsewu Kompol H. Maimun Karim. Acara yang berlangsung di Auditorium Lantai II STMIK Pringsewu didampingi Wakil Ketua III Nur Aminudin, M.T.I, Kepala Jurusan Manajemen Informatika Oktafianto, M.T.I serta Jajaran Polsek Pringsewu. Pada kesempatan itu, Kapolsek Pringsewu Kompol H. Maimun Karim mengatakan, kegiatan Anjau Silau merupakan program silaturahmi dengan mahasiswa yakni mendatangi dan menyambangi mahasiswa. “Tujuannya tidak lain untuk menengok dan bersilaturahmi dengan mahasiswa, sehingga terjalin komunikasi yang baik antara kepolisian dan mahasiswa/Perguruan Tinggi STMIK Pringsewu,” kata Kapo...
Baca selengkapnya

Menyempurnakan Desain, PlayStation Memperbarui Desain Perangkat VR Mereka PSVR

Gambar
 Bersama dengan Oculus dan HTC, PlayStation juga ingin merasakan legitnya kue di industri VR dengan PlayStation VR (PSVR) mereka. Kali ini, setelah setahun bertahan dengan model produk mereka yang lama, kini Sony melakukan pembaruan desain perangkat VR mereka dengan penyempurnaan fitur yang memungkinkan pengguna untuk dapat bergerak lebih bebas dan menikmati konten dengan lebih leluasa. Hal ini dimungkinkan karena Sony telah mengubah desain perkabelan mereka — yang semula ruwet dan tidak praktis — menjadi lebih streamlined di PlayStation VR. Selain itu, model terbaru PSVR ini mendukung teknologi HDR untuk menampilkan konten, jadi kamu tidak perlu repot untuk membongkar pasang perangkat VR ini apabila ingin melihat konten HDR. Menurut kabar, PlayStation VR berdesain baru ini rencananya akan meluncur di Jepang pada tanggal 14 Oktober mendatang dengan banderol harga 44.980 Yen (sekitar, Rp5,4 juta).
Baca selengkapnya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Yogyakarta – Senin (11/9), mahasiswa STMIK Pringsewu mengadakan kunjungan media ke harian Kedaulatan Rakyat. Kunjungan kali ini bertujuan untuk mendapat pengetahuan dari redaksi Kedaulatan Rakyat serta mengetahui proses penerbitan koran di tempat ini dengan jumlah peserta 250 orang meliputi mahasiswa dan dosen pendamping, Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda hari itu dimulai dengan pemberian materi singkat oleh Suci Kedaulatan Rakyat, mengenai sejarah Kedaulatan Rakyat dan proses penerbitan. Kedaulatan Rakyat merupakan salah satu koran tertua di Indonesia. Harian ini berdiri pada tanggal 27 September 1945, artinya Kedaulatan Rakyat sudah seusia dengan negara ini. Pada masa itu, Kedaulatan Rakyat didirikan oleh H. Samawi dan H. Madikin sebagai alat penyambung lidah. Kedaulatan Rakyat merupakan koran lokal Yogyakarta, dan sampai saat ini tidak dijadikan koran nasional. Sebab isi berita da...
Baca selengkapnya