tugas yanna 2


Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjurusan.Text = ""
txtprogramstudi.Text = ""
txttahunmasuk.Text = ""
txtnomorurut.Text = ""
End Sub

Private Sub cmdproses_click()
Dim S As String
txttm.Text = "20" & Left(txtnpm.Text, 2)
S = Mid(txtnpm, 3, 1)
If S = "1" Then
txtjur.Text = "sistem informasi"
ElseIf S = "2" Then
txtjur.Text = "manajemen informatika"
ElseIf S = "3" Then
txtjur.Text = "teknik informatika"
ElseIf S = "4" Then
txtjur.Text = "manajemen&komp. akuntasi"
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 Form_Activate()
txtnama.SetFocus
txtnama.Text = ""
txtnpm.Text = ""
txtjur.Text = ""
txtps.Text = ""
txttm.Text = ""
txturut.Text = ""
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

PEMILIHAN MULI MEKHANAI

Gambar
PRINGSEWU  –  STMIK Pringsewu  mengirimkan 8 mahasiswa dalam ajang pemilihan muli mekhanai tahun 2016 yang diselenggarakan oleh Dinas Pendidikan Kebudayaan dan Pariwisata (Disdikbudpar) Pringsewu pada tanggal 16 s/d 19 Maret 2015. 8 Mahasisiwa STMIK Pringsewu yang akan mengikuti ajang pemilihan muli mekhanai tahun 2016 sebagai berikut : Sebanyak 12 pasang finalis berhasil lulus terpilih dalam mengikuti seleksi pemilihan muli mekhanai 2016 yang digelar Dinas Pendidikan, Kebudayaan dan Pariwisata (Disdikbudpar) Kabupaten Pringsewu di Aula Kampus STMIK Pringsewu, Rabu (16/3) kemarin. Dari 12 Pasang finali muli mekhanai 2016,  LING LING SAPUTRI – NPM. 15201048 Mahasiswi   STMIK Pringsewu  semester 2,  mohon do’a dan dukungannya, Insya’Allah berjalan lancar dan sukses untuk mengikuti babak selanjutnya. Amin yra Pemilihan muli mekhanai 2016 yang dibuka langsung oleh Kepala Disdikbudpar Kabupaten Pringsewu, Heri Iswayudi ditandai secara simbolis de...
Baca selengkapnya

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

Gambar
Fungsi-fungsi dari visualisasi data 3D. SURF  atau grafik permukaan, digunakan untuk memvisualisaikaan data dalam bentuk permukaan 3D dengan pewarnaan berdaarkan bobot nilai gridnya. MESH , digunakan memvisualisasikan data dalam bentuk tiga dimensi. mesh sering disebut sebagai grafik jala yang memiliki empat titik data terdekat dalam ruang 3D. CONTOUR , digunakan untuk membuat gariskontur dibuat dengan teknik inperpolasi titik-titik terdekat. sebelum memulai sebaiknya membuat langkah awal seperti menampilkan axes,panel (pict typo, push button (surf,mesh,contour),stastic text, dan pop-up menu (peaks,membrane,sinc). 1. maka tampilan awal akan seperti gambar di bawah ini. kemudian masukan coding sebagai berikut : % --- Executes just before yana is made visible. function yana_OpeningFcn(hObject, eventdata, handles, varargin) handles.peaks = peaks (35); handles.membrane = membrane; [x, y] = meshgrid (-8:0.5:8); r = sqrt(x.^2 + y.^2) + eps; sinc = sin...
Baca selengkapnya

STMIK PRINGSEWU GELAR POSDIKTI 2017 GELOMBANG 1

Gambar
Jum’at, (11/8) merupakan hari bersejarah bagi semua calon mahasiswa baru, karena hari ini merupakan hari dimulainya acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 untuk STMIK Pringsewu yang ada di Yayasan Pendidikan Startech. Tepat pada pukul 08.00 WIB dimulainya upacara pembukaan POSDIKTI. Calon mahasiswa-mahasiswi  STMIK Pringsewu  mengikuti acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 di kampus Jalan Wisma Rini No. 09 Pringsewu. Acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 dibuka oleh Wakil Ketua III Bidang Kemahasiswaan,  Nur Aminudin, M.T.I  mewakili Ketua  STMIK Pringsewu , Hj. Rita Irviani, M.M. alam sambutannya  Nur Aminudin  mengatakan, POSDIKTI STMIK Pringsewu merupakan kelengkapan non-struktural pada kampus, posdikti berfungsi sebagai orientasi bagi mahasiswa baru untuk memasuki dunia perguruan tinggi yang berbeda dengan belajar di sekolah lanj...
Baca selengkapnya