TUGAS 3.5 BP1

Private Sub Command1_Click()
Dim A As String
A = Mid(Combo1, 1, 1)
If A = "A" Then
Text4 = "Abdi Offsyet Yogyakarta"
End If
A = Mid(Combo1, 3, 3)
If A = "SIM" Then
Text1 = "Sistem Informasi Manajemen"
Text2 = "Yati Nur Oktavia"
Text5 = "75900"
End If
A = Mid(Combo1, 7, 2)
If A = "01" Then
Text3 = "2001"
End If
A = Mid(Combo1, 1, 1)
If A = "I" Then
Text4 = "Indah Surabaya"
End If
A = Mid(Combo1, 3, 3)
If A = "EDP" Then
Text1 = "Electronik Data Processing"
Text2 = "Imam Tarmizi"
Text5 = "62000"
End If
A = Mid(Combo1, 7, 2)
If A = "02" Then
Text3 = "2002"
End If
A = Mid(Combo1, 1, 1)
If A = "S" Then
Text4 = "PRIMA AJI PRINGSEWU"
End If
A = Mid(Combo1, 3, 3)
If A = "MNJ" Then
Text1 = "MANAJEMEN"
Text2 = "PRIMA AJI PAMUNGKAS"
Text5 = "79000"
End If
A = Mid(Combo1, 7, 2)
If A = "03" Then
Text3 = "2003"
End If
End Sub

Private Sub Command2_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
 Text1.SetFocus
End Sub

Private Sub Command3_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "A-SIM-01"
Combo1.AddItem "I-EDP-02"
Combo1.AddItem "S-MNJ-03"
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