TUGAS 3.7 BP1

Private Sub Cmdproses_Click()
Dim A As String
A = Mid(Text1, 1, 3)
If A = "SIM" Then
Text2 = "Sistem Informasi Manajemen"
Text3 = "Fadiya Ulfa"
Text6 = "75900"
ElseIf A = "EDP" Then
Text2 = "Elektronik Data Proseccing"
Text3 = "Nurul Agustina"
Text6 = "62000"
ElseIf A = "MNJ" Then
Text2 = "MANAJEMEN"
Text3 = "Rian Hidayat"
Text6 = "42000"
ElseIf A = "CDR" Then
Text2 = "Corel Draw"
Text3 = "Prima Aji Pamungkas"
Text6 = "53000"
ElseIf A = "RPL" Then
Text2 = "Rekayasa Perangkat Lunak"
Text3 = "Winda Erlianti"
Text6 = "83000"
End If
A = Mid(Text1, 5, 2)
If A = "09" Then
Text4 = "2009"
ElseIf A = "10" Then
Text4 = "2010"
ElseIf A = "11" Then
Text4 = "2011"
ElseIf A = "12" Then
Text4 = "2012"
ElseIf A = "13" Then
Text4 = "2013"
End If
A = Mid(Text1, 8, 1)
If A = "A" Then
Text5 = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
Text5 = "Indah Surabaya"
ElseIf A = "S" Then
Text5 = "Salemba Empat"
ElseIf A = "E" Then
Text5 = "Elek Media Komputindo"
ElseIf A = "M" Then
Text5 = "Maxicom"
End If
End Sub

Private Sub Cmdlagi_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text1.SetFocus
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
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