Program 8 Huruf Mutu Mahasiswa STMIK Pringsewu Enter



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

Select Case Cbonpm
 Case "17100076"
 nama = "PRIMA AJI PAMUNGKAS"
 jurusan = "Sistem Informasi"
 Case "16100099"
 nama = "LIZA OCTA"
 jurusan = "Manajemen Informatika"
 Case "15100077"
 nama = "RIKI BOY"
 jurusan = "Tehnik Informatika"
 Case "15100099"
 nama = "ZUBAIDAH"
 jurusan = "Teknik Mesin"
 Case "17100098"
 nama = "RAKAN ADYA KESUMA"
 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 "17100076"
Cbonpm.AddItem "16100099"
Cbonpm.AddItem "15100077"
Cbonpm.AddItem "15100099"
Cbonpm.AddItem "17100098"

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

Tutorial

Gambar
TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya didasarkan pada perbedaan derajat keabuan citra. Berikut Ini adalah tatacara pembuatan Thresholding citra digital menggunakan program matlab. 1.       Langkah awal dengan cara pilih menu home, pilih menu New kemudian pilih Graphical User Interface. Setelah muncul kita pilih Creat New GUI pilih black GUI(Default) Kemudian Klik OK. Gambar 1 2.       Langkah Kedua kita membuat desain tampilan yang kita inginkan, atau bisa mengikuti gambar berikut. Gambar 2 Berikut yang perlu diubah dalam komponen komponen yang tersedia di gambar 2. No. Nama Komponen Property Nilai 1 Pushbutton String Open Image Tag Pushbutton1 2 Pushbutton String Grayscal...
Baca selengkapnya

Teknologi Yang Akan Menjadi Tren Di Tahun 2017

Gambar
10 Teknologi yang Akan Menjadi Tren di Tahun 2017   Share     Share     Tweet Gartner , perusahaan riset teknologi informasi, telah mengungkapkan  prediksi teknologi  yang akan menjadi tren di tahun 2017. Tahukah kamu,  Artificial Intelligence  alias kecerdasan buatan (AI) dan  Advance Machine Learning memuncaki urutan paling atas. Seperti yang kamu lihat, perusahaan teknologi raksasa seperti Google, Microsoft, Facebook, Apple, dan Amazon, mereka berlomba-lomba mengembangkan algoritma berbasis kecerdasan buatan. Contoh yang terbaru adalah  ponsel Google Pixel  yang dilengkapi  Google Assistant . Lebih lanjut, berikut 10 tren teknologi industri 2017 menurut prediksi  Gartner . Baca Juga: Keren! Inilah 4 Teknologi Masa Depan yang Sudah Ada di Tahun 2016 Teknologi Dual Camera di Smartphone Android, Buat Apa? 11 Teknologi Dulu VS Sekarang, Nomer 6 Bikin Shock! ...
Baca selengkapnya

STMIK PRINGSEWU GELAR UPACARA HARI SUMPAH PEMUDA YANG KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

Gambar
STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA Written by  admin   |   October 28, 2017   |   0 STMIK PRINGSEWU  — Setiap kali memperingati hari Sumpah Pemuda, semua stake holder berbondong-bondong menggelar berbagai acara, salah satunya yang dilakukan civitas akademik STMIK Pringsewu dengan menggelar Upacara Hari Sumpah Pemuda ke 89 di halaman kampus setempat, Sabtu (28/10). Nur Aminudin  selaku Inspektur Upacara mengatakan, dihari Sumpah Pemuda yang ke-89 pada tahun 2017 ini, Resimen Mahasiswa dan rekan-rekan dari BEM, Mahasiswa, dan Pimpinan Perguruan Tinggi STMIK Pringsewu beserta Staff dan jajarannya memperingati hari Sumpah Pemuda dengan melaksanakan upacara pengibaran Bendera di halaman kampus setempat. Beliau juga menegaskan bahwa sumpah pemuda merupakan satu tonggak utama dalam sejarah pergerakan kemerdekaan bangsa Indone...
Baca selengkapnya