Helmi stmik pringsewu

Private Sub Combonpm_Click() Dim nama, jurusan, HM As String Select Case Combonpm Case "17100085" nama = "AGISTA UTAMI" jurusan = "Manajemen Informatika" Case "17100074" nama = "NUZUL RAMADHANI" jurusan = "Sistem Informasi" Case "17100103" nama = "HELMIYANTO" jurusan = "Sistem Informasi" Case "17100099" nama = "IRVAN BAHARI" jurusan = "Teknik Komputer Jaringan" Case "17100084" nama = "UUT ELOK PERMATA" jurusan = "Manajemen Informatika" End Select Textnama = nama Textjurusan = jurusan Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" Texthm = "...

Private Sub Combonpm_Click() Dim Nama, Jurusan, Hm As String Select Case Combonpm  Case "17100085"  Nama = "AGISTA UTAMI"  Jurusan = "Manajemen Informatika"  Case "17100074"  Nama = "NUZUL RAMADHANI"  Jurusan = "Sistem Informasi"  Case "17100103"  Nama = "HELMIYANTO"  Jurusan = "Sistem Informasi"  Case "17100099"  Nama = "IRVAN BAHARI"  Jurusan = "Teknik Komputer Jaringan"  Case "17100084"  Nama = "UUT ELOK PERMATA"  Jurusan = "Manajemen Informatika"  End Select  Textnama = Nama  Textjurusan = Jurusan  Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" T...

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check1.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub Optionred_Click() Label1.ForeColor = vbRed End Sub Private Sub Optionyellow_Click() Label1.ForeColor = vbYellow End Sub Private Sub Optionblue_Click() Label1.ForeColor = vbBlue End Sub Private Sub optiongreen_Click() Label1.ForeColor = vbGreen End Sub Private Sub checkbold_Click() If Checkbold.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub checkitalic_Click() If Checkitalic.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub checkstrikethru_Click() If Checkstrikethru.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub checkunderline_Click() If Checkunderline.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub Private Sub Command1_Click() Unload Me End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End If End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End If End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5): Val (txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub cmdjumlah_Click() Txtjmlh1 = Val(Txtn1) + Val(T...

Private Sub txt1_Change() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdbatal_Click() Txtn1 = "" Txtn2 = "" txtn3 = "" Txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" Txtjmlh1 = "" txtjmlh2 = "" txtjmlh3 = "" txtjmlh4 = "" Txtjmlh = "" End Sub Private Sub Cmdhitung_Click() Txtjmlh1 = Val(Txtn1) + Val(Txtn2) txtjmlh2 = Val(txtn3) - Val(Txtn4) txtjmlh3 = Val(txtn5) / Val(txtn6) txtjmlh4 = Val(txtn7) * Val(txtn8) Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4) End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private ...

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Txtnilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai2.SetFocus End If End Sub Private Sub Txtnilai2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnilai3.SetFocus End If End Sub Private Sub Txtnilai3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End If End Sub

Private Sub Cmdhitung_Click() Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3) End Sub Private Sub Cmdbatal_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtnilai1 = "" Txtnilai2 = "" Txtnilai3 = "" Txtjumlah = "" Txtnilai1.SetFocus End Sub

Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub

Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnpm_Change() End Sub

  May 23, 2017   STMIK PRINGSEWU  – Selasa (23/5), untuk menumbuhkan semangat demokrasi dan mengembangkan jiwa kepemimpinan di kalangan mahasiswa STMIK Pringsewu, Pemilihan Raya Presiden Mahasiswa menjadi agenda penting untuk dilakukan setiap tahunnya. Khusus tahun ini, Pemilihan Presiden dan Wakil Presiden Mahasiswa STMIK Pringsewu kembali digelar untuk mendapatkan Presiden Mahasiswa STMIK Pringsewu. Sejumlah perbaikan dari penyelenggaraan tahun lalu dilakukan oleh Komisi Pemilihan Umum (KPU) STMIK Pringsewu yang diketuai oleh Deni Siswanto, yang dibawah pembinaan langsung Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I. Setelah dibuka pendaftaran Calon Presiden dan Wakil Presiden Mahasiswa, terjaring dua kandidat yakni kandidat nomor 1 Prianti Dewi Anggreni – Gilbert Alexander, kandidat nomor 2 Miftahus Surur – Lailaturrohmah Rentetan kampanye telah dimulai dari 15 – 22 Mei 2017, termasuk debat terbuka yang diselenggarakan pada 23 Mei 2017. Debat t...

  June 17, 2017   STMIK PRINGSEWU  – Sabtu (17/6), Ramadhan adalah bulan diturunkannya Al Qur an. Momen tersebut dimanfaatkan dengan baik oleh Mahasiswa STMIK Pringsewu menggelar acara Buka, Tarawih, Sahur dan Sholat Subuh Berjama’ah (Butarsabu). Kegiatan Buka, Tarawih, Sahur dan Sholat Subuh Berjama’ah (Butarsabu) Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu sudah menjadi agenda tahunan Mahasiswa STMIK Pringsewu. Kegiatan tersebut berlangsung di halaman kampus STMIK Pringsewu, ucap Rahmat Hidayat (Ketua Panitia). Kegiatan butarsabu tersebut di hadiri Ketua STMIK Pringsewu (Hj. Rita Irviani, M.M), Wakil Ketua I (E. Yunaeti A, M.T.I), Wakil Ketua III (Nur Aminudin, M.T.I), Ketua LPPM (M. Muslihudin, M.T.I), Ka. Perpustakaan (Dra. Tri Yuli Astuti), Ka. SDM (Dedi Irawan, M.E.Sy), Kaprodi Sistem Informasi (Tri Susilowati, M.T.I), Kaprodi Manajemen Informatika (Oktafianto, M.T.I), Bapak/Ibu Dosen STMIK, 200 mahasiswa STMIK Pringsewu, santri po...

STMIK PRINGSEWU  – Bupati Pringsewu Hi.Sujadi melepas mahasiswa STMIK dan STIT Pringsewu yang akan melaksanakan KKN di sejumlah kecamatan di Kabupaten Pringsewu. Prosesi pelepasan berlangsung di pendopo Pemkab Pringsewu, Rabu (26/7). Mahasiswa kedua sekolah tinggi yang akan melaksanakan KKN selama 40 hari kedepan, seluruhnya berjumlah 304 mahasiswa STMIK, serta 29 mahasiswa STIT. Mereka akan disebar di 33 pekon atau desa di 8 kecamatan, dari 9 kecamatan yang ada di Pringsewu. Bupati Pringsewu Hi. Sujadi dalam sambutannya berharap para mahasiswa yang akan melaksanakan KKN dapat melaksanakan tugas dan pembelajaran dengan baik, sekaligus dapat turut membantu dan menunjang pembangunan di masing-masing pekon yang menjadi sasaran. “Adik-adik mahasiswa nanti dapat belajar banyak dari pengalaman selama terjun langsung di tengah-tengah masyarakat, beliau juga mengingatkan agar para mahasiswa berhati-hati dan bijak dalam menggunakan media sosial, termasuk dalam menerima dan menyeb...

Di sebagian besar negara di dunia ini, memiliki sebuah mobil pribadi merupakan hal yang wajar atau bahkan bisa menjadi kebutuhan karena transportasi umum yang kurang memadai. Sementara izin untuk memiliki mobil umum di sebuah negara merupakan cerita lain, karena memang ada negara yang melarang warga sipil memiliki sebuah mobil, dan kali ini tampaknya Singapura akan menjadi salah satunya. Di negara kecil, dimana lahan yang semakin sempit, memiliki mobil pribadi di Singapura adalah hal yang rumit, dan kali ini tampaknya akan menjadi lebih rumit lagi karena Pemerintah negeri Singa itu akan menerapkan peraturan baru untuk menekan angka pertumbuhan kendaraan kecil. Seperti yang dilaporkan Bloomberg, Otoritas Transportasi Darat Singapura (LTA)  telah mengumumkan bahwa mereka akan berhenti menambahkan mobil di jalanan Singapura, dimana rencana tersebut akan mulai berlaku bulan Februari 2018. Rencana pemerintah adalah untuk mengurangi tingkat pertumbuhan tahunan mobil da...

Seperti yang Anda ketahui, sebagian besar internet yang kita gunakan disampaikan melalui kabel fiber optic yang dipasang di bawah tanah. Namun sepertinya kabel FO tidak hanya bisa digunakan sebagai perantara koneksi internet untuk rumah dan bisnis, para peneliti di Stanford telah berhasil memanfaatkan kabel FO untuk membantu mendeteksi gempa bumi. Saat ini memang ada beberapa cara di mana orang bisa mendeteksi gempa bumi, tetapi dengan penemuan terbaru ini, yang dipimpin oleh Biondo Biondi, seorang profesor geofisika di Stanford School of Earth, Energy & Environmental , telah menunjukkan bahwa kita dapat memanfaatkan sistem dan infrastruktur yang sudah ada.  Dia menambahkan bahwa dengan sistem ini, lebih murah dibandingkan dengan metode pemantauan gempa bumi yang sudah ada. “Setiap meter fiber optic di jaringan kita bertindak seperti sensor dan lebih murah ketimbang satu dolar untuk menginstal. Anda tidak akan dapat membuat jaringan menggunakan seis...

Pada bulan September lalu, Xiaomi telah mengumumkan bahwa mereka telah berhasil mengiriman 10 juta smartphone, yang menjadi prestasi membanggakan bagi perusahaan. Namun tak hanya cukup di situ saja, karena perusahaan mengulangi prestasi tersebut selama bulan Oktober lalu, dengan berhasil mengiriman 10 juta smartphone.  Kabar baik tersebut disampaikan oleh CEO Xiaomi, Lei Jun melalui akun Weibo resmi miliknya saat mengingatkan orang tentang penjualan Mi 5X yang akan datang (dikenal di tempat lain sebagai Mi A1 ) pada tanggal 1 November. Sementara perusahaan sendiri baru-baru ini telah menetapkan tujuan ambisius mereka untuk mengiriman 90 juta smartphone selama tahun 2017 ini. Jika pencapaian itu berhasil, maka perusahaan akan meningkatkan pertumbuhan 50% dari tahun lalu (58 juta). Pencapaian ini juga merupakan pertumbuhan yang sangat besar jika dibandingkan dengan tahun 2015, dimana pada tahun tersebut perusahaan berhasil mengirim 70 juta smartphone. Peningkatakan ini ju...

Sebuah teknologi terbaru memungkikan penyelam untuk bisa melakukan aktivitasnya tanpa membawa tabung udara yang cukup memberatkan. Sebagai gantinya, mereka bisa menggunakan sebuah bahan kristalin yang secara khusus telah disintesis sehingga bisa menyerap dan menyimpan oksigen dalam konsentrasi tinggi.  Kristalin tersebut berhasil ditemukan oleh para peneliti dari University of Southern Denmark. Teknologi tersebut mereka temukan dengan menggunakan bahan cobalt sebagai komponen utama. Professor Christine McKenzie dari University of Southern Denmark mengatakan kalau material kristalin tersebut berfungsi sebagai sensor sekaligus tempat untuk menyimpan oksigen.  Penggunaan teknologi ini pun bakal memberikan waktu menyelam yang lebih lama kepada para diver. Hal ini karena material tersebut dapat pula diatur untuk bisa menyerap oksigen secara langsung dari air. Untuk membuat material tersebut bisa mengeluarkan oksigen yang disimpannya, para peneliti menggunakan panas se...

Perkembangan teknologi dunia saat ini memang kian canggih saja. Perangkat elektronik pun dibuat seringkas mungkin. Termasuk di antaranya adalah perangkat elektronik yang didesain fleksibel. Nah, kalau sebelumnya sudah ada layar fleksibel dari LG, kini para peneliti ternyata juga mengembangkan kamera fleksibel lho! Para peneliti dari laboratorium Computer Vision di Columbia University menciptakan sebuah kamera yang didesain fleksibel. Untuk membuat kamera ini, para peneliti pun memanfaatkan silikon. Untuk hasil gambarnya, mereka mengungkapkan kalau hasil jepretan kamera fleksibel tersebut cukup aneh, lebih mirip dengan gambar yang terdistorsi. Meskipun begitu, gambar yang dihasilkan tetap merupakan sebuah gambar beresolusi tinggi. Meskipun begitu, salah seorang anggota peneliti Dr. Shree Nayar mengungkapkan kalau kamera fleksibel yang tengah dikembangkan oleh timnya tersebut bakal bisa berguna untuk masyarakat luas. Salah satunya adalah kemungkinan untuk bisa digunakan pada bagia...

Berbicara mengenai suatu hal yang berhubungan dengan perkembangan teknologi itu tak akan ada habis habisnya sama sekali. Tahun demi tahun pasti akan mengalami perkembangan, yang mana tujuan itu adalah tercipta suatu teknologi yang lebih mutakhir dan mampu membawa perubahan besar dalam membantu meringankan setiap tugas manusia. Setiap tahun berbagai perusahaan teknologi seperti bersaing satu sama lain dalam membuat suatu perubahan besar. Kita sebagai penikmat dari teknologi sendiri hanya bisa melihat bagaimaana hasil yang telah mereka ciptakan. Karena bagaimanapun juga, jika ada yang mampu menciptakan suatu perubahan besar dalam teknologi ke arah yang lebih baik, maka mereka akan mendapatkan banyak keuntungan. Namun hal yang terjadi di zaman sekarang ini dimana keterbukaan begitu lebar, banyak orang yang mengambil keuntungan dari ide yang telah dibuat oleh orang lain. Misalnya ada suatu perusahaan yang berhasil menemukan suatu teknologi terbaru, namun pihak lain bisa dengan mu...