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

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