TUGAS 2 PROGRAM 8 BP1

-


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

Select Case Combonpm
Case "17100085"
nama = "AGISTA UTAMI"
jurusan = "Manajemen Informatika"
Case "17100074"
nama = "NUZUL RAMADHANI"
jurusan = "Sistem Informasi"
Case "17100103"
nama = "HELMIYANTO"
jurusan = "Sistem Informasi"
Case "17100099"
nama = "IRVAN BAHARI"
jurusan = "Teknik Komputer Jaringan"
Case "17100084"
nama = "UUT ELOK PERMATA"
jurusan = "Manajemen Informatika"
End Select
Textnama = nama
Textjurusan = jurusan
Textquis.SetFocus

End Sub


Private Sub Command2_Click()
Combonpm.SetFocus
Combonpm = ""
Textnama = ""
Textjurusan = ""
Textquis = ""
Texttugas = ""
Textuts = ""
Textuas = ""
Textna = ""
Texthm = ""

End Sub

Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combonpm.AddItem "17100085"
Combonpm.AddItem "17100074"
Combonpm.AddItem "17100103"
Combonpm.AddItem "17100099"
Combonpm.AddItem "17100084"

End Sub
Private Sub Command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Textquis)
TUGAS = Val(Texttugas)
UTS = Val(Textuts)
UAS = Val(Textuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Textna = NA

Select Case Textna
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
Texthm = HM
End Sub


Private Sub textquis_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Texttugas.SetFocus
End If
End Sub

Private Sub texttugas_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Textuts.SetFocus
End If
End Sub
Private Sub textuts_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Textuas.SetFocus
End If
End Sub

Private Sub textuas_keypress(keyascii As Integer)
Dim NA As Integer
Dim HM As String
QUIS = Val(Textquis)
TUGAS = Val(Texttugas)
UTS = Val(Textuts)
UAS = Val(Textuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Textna = NA

Select Case Textna
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
Texthm = HM
End Sub


Komentar

Posting Komentar

Semoga bermanfaat

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

-
Gambar
Di sebagian besar negara di dunia ini, memiliki sebuah mobil pribadi merupakan hal yang wajar atau bahkan bisa menjadi kebutuhan karena transportasi umum yang kurang memadai. Sementara izin untuk memiliki mobil umum di sebuah negara merupakan cerita lain, karena memang ada negara yang melarang warga sipil memiliki sebuah mobil, dan kali ini tampaknya Singapura akan menjadi salah satunya. Di negara kecil, dimana lahan yang semakin sempit, memiliki mobil pribadi di Singapura adalah hal yang rumit, dan kali ini tampaknya akan menjadi lebih rumit lagi karena Pemerintah negeri Singa itu akan menerapkan peraturan baru untuk menekan angka pertumbuhan kendaraan kecil. Seperti yang dilaporkan Bloomberg, Otoritas Transportasi Darat Singapura (LTA)  telah mengumumkan bahwa mereka akan berhenti menambahkan mobil di jalanan Singapura, dimana rencana tersebut akan mulai berlaku bulan Februari 2018. Rencana pemerintah adalah untuk mengurangi tingkat pertumbuhan tahunan mobil da...
Baca selengkapnya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

-
Gambar
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 dal...
Baca selengkapnya

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone

-
Gambar
Pada bulan September lalu, Xiaomi telah mengumumkan bahwa mereka telah berhasil mengiriman 10 juta smartphone, yang menjadi prestasi membanggakan bagi perusahaan. Namun tak hanya cukup di situ saja, karena perusahaan mengulangi prestasi tersebut selama bulan Oktober lalu, dengan berhasil mengiriman 10 juta smartphone.  Kabar baik tersebut disampaikan oleh CEO Xiaomi, Lei Jun melalui akun Weibo resmi miliknya saat mengingatkan orang tentang penjualan Mi 5X yang akan datang (dikenal di tempat lain sebagai Mi A1 ) pada tanggal 1 November. Sementara perusahaan sendiri baru-baru ini telah menetapkan tujuan ambisius mereka untuk mengiriman 90 juta smartphone selama tahun 2017 ini. Jika pencapaian itu berhasil, maka perusahaan akan meningkatkan pertumbuhan 50% dari tahun lalu (58 juta). Pencapaian ini juga merupakan pertumbuhan yang sangat besar jika dibandingkan dengan tahun 2015, dimana pada tahun tersebut perusahaan berhasil mengirim 70 juta smartphone. Peningkatakan ini ju...
Baca selengkapnya