TUGAS 3.2

Private Sub CmdBatal_Click()
Txtnama = ""
Txtnpm = ""
txtjur = ""
txtps = ""
txturut = ""
Txttm = ""
End Sub

Private Sub Cmdproses_Click()
Dim S As String
Txttm.Text = "20" & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = "1" Then
txtjur.Text = "Sistem Informasi"
ElseIf S = "2" Then
txtjur.Text = "Manajemen Informatika"
ElseIf S = "3" Then
txtjur.Text = "Tehnik Informatika"
ElseIf S = "4" Then
txtjur.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = "01" Then
txtps.Text = "Strata Satu"
ElseIf S = "02" Then
txtps.Text = "Diploma Tiga"
ElseIf S = "03" Then
txtps.Text = "Diploma Empat"
ElseIf S = "04" Then
txtps.Text = "Diploma Dua"
End If
txturut.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
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