TUGAS 3.3 BP1

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, 2)
S = Mid(Txtnpm, 3, 1)
If S = "1" Then
txtjur = "Sistem Informasi"
txtps = "Diploma Dua"
ElseIf S = "2" Then
txtjur = "Manajemen Informatika"
txtps = "Strata Satu"
ElseIf S = "3" Then
txtjur = "Tehnik Informatika"
txtps = "Diploma Tiga"
ElseIf S = "4" Then
txtjur = "Manajemen & Komp. Akuntansi"
txtps = "Diploma Empat"
End If
txturut = Right(Txtnpm.Text, 4)

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

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