huruf mutu mahasiswa stmik pakai keypress

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

Select Case Cbonpm.Text
Case "17100016"
nama = "yanna chairunisa alwahida"
jurusan = " Sistem Informasi"
Case "17100004"
nama = "eka kartika pertiwi"
jurusan = "sistem informasi"
Case "17100028"
nama = "Ida Ayu Wulandari"
jurusan = "Tehnik Informatika"
Case "17100001"
nama = "Mardalenna"
jurusan = "Sistem Informasi"
Case "17100021"
nama = "Ahmad Hilal Yusuf"
jurusan = "Manajemen Informatika"
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
End Sub


Private Sub cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = ""
txtnama.Text = ""
txtjurusan.Text = ""
txtquis.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtna.Text = ""
txthm.Text = ""
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.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
NA = Val(quis + tugas + uts + uas) / 4
txtna.Text = NA

Select Case txtna.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
txthm.Text = HM
End Sub

Private Sub Form_Load()
Cbonpm.AddItem "17100016"
Cbonpm.AddItem "17100004"
Cbonpm.AddItem "17100028"
Cbonpm.AddItem "17100001"
Cbonpm.AddItem "17100021"
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 txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim HM As String
quis = Val(txtquis.Text)
tugas = Val(txttugas.Text)
uts = Val(txtuts.Text)
uas = Val(txtuas.Text)
NA = Val(quis + tugas + uts + uas) / 4
txtna.Text = NA

Select Case txtna.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
txthm.Text = HM
End If
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

Gambar
PRINGSEWU  –  STMIK Pringsewu  mengirimkan 8 mahasiswa dalam ajang pemilihan muli mekhanai tahun 2016 yang diselenggarakan oleh Dinas Pendidikan Kebudayaan dan Pariwisata (Disdikbudpar) Pringsewu pada tanggal 16 s/d 19 Maret 2015. 8 Mahasisiwa STMIK Pringsewu yang akan mengikuti ajang pemilihan muli mekhanai tahun 2016 sebagai berikut : Sebanyak 12 pasang finalis berhasil lulus terpilih dalam mengikuti seleksi pemilihan muli mekhanai 2016 yang digelar Dinas Pendidikan, Kebudayaan dan Pariwisata (Disdikbudpar) Kabupaten Pringsewu di Aula Kampus STMIK Pringsewu, Rabu (16/3) kemarin. Dari 12 Pasang finali muli mekhanai 2016,  LING LING SAPUTRI – NPM. 15201048 Mahasiswi   STMIK Pringsewu  semester 2,  mohon do’a dan dukungannya, Insya’Allah berjalan lancar dan sukses untuk mengikuti babak selanjutnya. Amin yra Pemilihan muli mekhanai 2016 yang dibuka langsung oleh Kepala Disdikbudpar Kabupaten Pringsewu, Heri Iswayudi ditandai secara simbolis de...
Baca selengkapnya

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

Gambar
Fungsi-fungsi dari visualisasi data 3D. SURF  atau grafik permukaan, digunakan untuk memvisualisaikaan data dalam bentuk permukaan 3D dengan pewarnaan berdaarkan bobot nilai gridnya. MESH , digunakan memvisualisasikan data dalam bentuk tiga dimensi. mesh sering disebut sebagai grafik jala yang memiliki empat titik data terdekat dalam ruang 3D. CONTOUR , digunakan untuk membuat gariskontur dibuat dengan teknik inperpolasi titik-titik terdekat. sebelum memulai sebaiknya membuat langkah awal seperti menampilkan axes,panel (pict typo, push button (surf,mesh,contour),stastic text, dan pop-up menu (peaks,membrane,sinc). 1. maka tampilan awal akan seperti gambar di bawah ini. kemudian masukan coding sebagai berikut : % --- Executes just before yana is made visible. function yana_OpeningFcn(hObject, eventdata, handles, varargin) handles.peaks = peaks (35); handles.membrane = membrane; [x, y] = meshgrid (-8:0.5:8); r = sqrt(x.^2 + y.^2) + eps; sinc = sin...
Baca selengkapnya

STMIK PRINGSEWU GELAR POSDIKTI 2017 GELOMBANG 1

Gambar
Jum’at, (11/8) merupakan hari bersejarah bagi semua calon mahasiswa baru, karena hari ini merupakan hari dimulainya acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 untuk STMIK Pringsewu yang ada di Yayasan Pendidikan Startech. Tepat pada pukul 08.00 WIB dimulainya upacara pembukaan POSDIKTI. Calon mahasiswa-mahasiswi  STMIK Pringsewu  mengikuti acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 di kampus Jalan Wisma Rini No. 09 Pringsewu. Acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 dibuka oleh Wakil Ketua III Bidang Kemahasiswaan,  Nur Aminudin, M.T.I  mewakili Ketua  STMIK Pringsewu , Hj. Rita Irviani, M.M. alam sambutannya  Nur Aminudin  mengatakan, POSDIKTI STMIK Pringsewu merupakan kelengkapan non-struktural pada kampus, posdikti berfungsi sebagai orientasi bagi mahasiswa baru untuk memasuki dunia perguruan tinggi yang berbeda dengan belajar di sekolah lanj...
Baca selengkapnya