Phinasti Stmik Pringsewu

Private Sub cbonpm_Change() Dim nama, jurusan, hm As String '13100501 phinasti wita sari Select Case cbonpm.Text Select Case cbonpm.Text Case "13100501" nama = "PHINASTI WITA SARI" jurusan = "sistem informasi" Case "17100003" nama = "RENALDI ARIFIN" jurusan = "Manajemen Informasi" Case "17100011" nama = "ARIANSAH" jurusan = "sistem informasi" End Select txtnama.Text = nama txtjurusan.Text = jurusan txtquis.SetFocus End Sub Private Sub cmdbatal_Click() cbonpm.SetFocus cbonpm.Text = "" txtnama.Text = "" txtjurusan.Text = "" txtquis.Text = "" txttugas.Text = "" txtuts.Text = "" txtuas.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdproses_Click() Dim na As Intege...

Private Sub cbonpm_Change() Dim nama, jurusan, hm As String '13100501 phinasti wita sari Select Case cbonpm.Text Case "13100501" nama = "PHINASTI WITA SARI" jurusan = "sistem informasi" Case "17100003" nama = "RENALDI ARIFIN" jurusan = "Manajemen Informasi" Case "17100011" nama = "ARIANSAH" jurusan = "sistem informasi" End Select txtnama.Text = nama txtjurusan.Text = jurusan txtquis.SetFocus End Sub Private Sub cmdbatal_Click() cbonpm.SetFocus cbonpm.Text = "" txtnama.Text = "" txtjurusan.Text = "" txtquis.Text = "" txttugas.Text = "" txtuts.Text = "" txtuas.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdproses_Click() Dim na As Integer Dim hm As String quis...

                                                Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text 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 chkbold_Click() 'membuat teks tebal If chkbold.Value = 1 Then lblteks.FontBold = True Else lblteks.FontBold = False End If End Sub Private Sub chkitalic_Click() 'membuat teks miring If chkitalic.Value = 1 Then lblteks.FontItalic = True Else lblteks.FontItalic = False End If End Sub Private Sub chkstrikethru_Click() 'membuat teks bergaris tengah If chkstrikethru.Value = 1 Then lblteks.FontStrikethru = True Else lblteks.FontStrikethru = False End If End Sub Private Sub chkunderline_Click() 'membuat teks bergaris bawah If chkunderline.Value = 1 Then lblteks.FontUnderline = True Else lblteks.FontUnderline = False End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub optblue_Click() 'membuat teks berwarna biru lblteks.ForeColor = vbBlue End Sub Private Sub optgreen_Click() 'membuat teks berwarna hijau lblteks.ForeColor = vbGreen End Sub Private Sub optred_Click() 'membuat teks ...

Private Sub cmdkluar_Click() Unload Me End Sub Private Sub cmdproses_Click() txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text) txtpj.Text = Val(txtgk.Text) * (0.1) txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" End Sub Private Sub txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text) txtpj.Text = Val(txtgk.Text) * (0.1) txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text) End If End Sub

Private Sub cmdkluar_Click() Unload Me End Sub Private Sub cmdproses_Click() txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text) txtpj.Text = Val(txtgk.Text) * (0.1) txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" End Sub

Private Sub cmdhitung_Click() Dim A, B, C As Double TxtB.txt = Val(TxtA.txt) * 0.1 TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt) End Sub Private Sub cmdquit_Click() End If End Sub Private Sub cmdulangi_Click() TxtA = "" TxtB = "" TxtC = "" End Sub Private Sub TxtA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtB = Val(TxtA) * 0.1 TxtC = Val(TxtA) - Val(TxtB) End If End Sub

Private Sub cmdhitung_Click() Dim A, B, C As Double TxtB.txt = Val(TxtA.txt) * 0.1 TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt) End Sub Private Sub cmdquit_Click() End If End Sub Private Sub cmdulangi_Click() TxtA = "" TxtB = "" TxtC = "" End Sub

Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal4 = "" txttotal3 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn5) txttotal2 = Val(txtn2) / Val(txtn6) txttotal3 = Val(txtn3) - Val(txtn7) txttotal4 = Val(txtn4) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal4 = "" txttotal3 = "" txtn1.SetFocus End Sub Private Sub txtn6_KeyPress(KeyAscii As Int...

Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub

Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txtn1) + Val(txtn2) End If End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(t...

Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub

Private Sub cmdbatal_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub Cmdhitung_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub cmdhitung_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn2.SetFocus End If End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn3.SetFocus End If End Sub

Private Sub cmdbatal_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub Cmdhitung_Click() Txtn1 = "" Txtn2 = "" txttotal = "" Txtn1.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub

SEMINAR HAKI (HAK ATAS KEKAYAAN INTELEKTUAL).   StmikPringsewu/SeminarHAKI   STMIK PRINGSEWU – Rabu (31/5) beberapa dosen dari STMIK Pringsewu, STIT Pringsewu, STIT Multazam, STIE Lampung Timur, ikut dalam seminar Internal yang mengambil tema tentang HAKI (Hak Atas Kekayaan Intelektual) yang bertempat di Auditorium lantai II STMIK Pringsewu dengan nara sumber Sri Yuliani, S.H., M.H Kepala bidang pelayanan hukum kantor wilayah kementrian Hukum dan Hak Asasai Manusia (KEMENKUMHAM) Lampung. Tema tentang HAKI memang sedang “in” sekarang ini, khususnya di kampus-kampus, dimana para dosen sebagai pendidik diwajibkan sebagai contoh bagi anak didiknya untuk bisa menghargai karya, ide, ciptaan orang lain, sehingga dimasa depan tingkat kejahatan plagiarism khususnya menjadi semakin minim. Dalam seminar tersebut, Sri Yuliani menjelaskan tentang pengenalan dan Manfaat kekayaan intelektual dan pendaftaran intelektual secara elektronik. Program aksi dari Kemenhum...

  PEMILIHAN MULI MEKHANAI 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 simb...

PENGUKUHAN PUSAT INFORMASI & KONSELING MAHASISWA STMIK PRINGSEWU – Pusat Informasi dan Konseling Mahasiswa (PIK-Mahasiswa) adalah suatu wadah kegiatan program KKB yang dikelola dari, oleh dan untuk mahasiswa guna memberikan pelayanan informasi dan konseling tentang KEPENDUDUKAN DAN Keluarga Berencana termasuk Penyiapan Kehidupan Berkeluarga bagi Remaja serta kegiatan-kegiatan penunjang lainnya. PIK Mahasiswa adalah nama generik. Untuk menampung kebutuhan program PKBR dan menarik minat mahasiswa datang ke PIK Mahasiswa, nama generik ini dapat dikembangkan dengan nama-nama yang sesuai dengan kebutuhan program dan selera mahasiswa setempat. Tujuan umum dari PIK Mahasiswa adalah dalam rangka meningkatkan akses dan kualitas pelayanan program penyiapan kehidupan berkeluarga bagi mahasiswa. Sedangkan tujuan khususnya antara lain: 1) membentuk Pusat Informasi dan Konseling Mahasiswa (PIK Mahasiswa) di kampus; 2) meningkatkan Pusat Informasi dan Konseling Mahasiswa (...

STMIK Pringsewu – Minggu (7/2), Komunitas bernas (Berbagi Nasi) Kecamatan Tanjung Bintang Lampung Selatan merupakan gerakan komunitas yang bergerak di Bidang Sosial. Kegiatan ini fokus dengan kegiatan yang berhunbungan dengan sosial. Salah satu program kerja dari komunitas Bernas adalah bakti sosial.  Kegiatan bakti sosial ini dengan tema “BAKTI SOSIAL DAN PELATIHAN KETERAMPILAN IBU-IBU RUMAH TANGGA SERTA STRATEGI PEMASARAN DENGAN MENGUNAKAN INTERNET” Bakti sosial ini meliputi sunatan massal dengan jumlah 25 anak, donor darah dengan jumlah 60 orang, pengobatan gratis 150 orang, pelatihan keterampilan ibu rumah tangga dengan jumlah 5 kelompok setiap kelompok berjumlah 5 orang. Tujuan dari kegiatan ini utuk membantu dan meringan kan bagi masyarakat yang memang membutuhkan. Kegiatan keterampilan di laksanakan bertujuan untuk mengembangkan kemampuan dan memberdayankan ibu-ibu rumah tangga dengan harapan dapat di kembangkan dan berguna untuk meningkatakn hasil pendap...

  Pringsewu (18/12), Kebersamaan dan keceriaan sivitas akademika Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu terlihat pada perhelatan yang diselenggarakan Mahasiswa STMIK Pringsewu kelas Website 8, 9 dan 10 yaitu Bazar Kewirausahaan 2015. Acara yang digelar tanggal 18 s/d 19 Desember 2015 ini berlangsung sangat meriah dengan dihadiri oleh beberapa undangan. Bazar kewiruusahaan tersebut mengusung tema “Mengubah Pola Pikir dari Mencari dengan Menciptakan Peluang Kerja”, acara ini dimaksudkan untuk mempererat tali persaudaraan dan semangat kebersamaan antar sivitas akademika STMIK Pringsewu agar tercipta keharmonisan dalam pencapaian misi dan tujuan bersama. Dalam menghadapi tantangan bisnis termasuk menghadapi customer maka sebagai mahasiswa harus belajar dalam memasarkan suatu produk. Dalam mata kuliah kewirausahaan yang di ampu A. Andoyo, S.Sos., M.T.I ini mahasiswa mencoba melakukan sebuah usaha sederhana guna mendapatkan pembelajaran u...

KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA PRINGSEWU – Ketua KPU Pringsewu kunjungi Tempat Pemungutan Suara (TPS) Pemilu Presiden dan Wakil Presiden Badan Eksekutif Mahasiswa STMIK Pringsewu. Rabu, (10/2) di Kampus setempat. Ketua KPU Pringsewu, H. Warsito, S.T., Didampingi pokja sosialisasi. A.Andoyo, Mengatakan, Pelaksanaan Proses pemilihan Presiden dan Wakil Presiden Mahasiswa ini merupakan pembelajaran proses Demokrasi, ini merupakan modal awal mahasiswa untuk menghadapi pemilu yang sesungguhnya. Warsito mengatakan, para mahasiswa kemungkinan ada yg belum memilih dan merupakan pemilih pemula, kegiatan ini bisa menjadi contoh pembelajaran proses pemilihan umum. Kata Warsito, Bagi panitia penyelenggara nantinya bisa berkiprah dalam pemilu yang sebenarnya. Wakil Ketua 3 Bidang Kemahasiswa STMIK Pringsewu, Nur Aminudin, M.T.I mengatakan, Pemilihan Presma dan Wapresma ini merupakan proses pembelajaran politik bagi mahasiswa, makna arti dari demokrasi se...

STMIK PRINGSEWU DAN PEMDA PRINGSEWU MEMBERIKAN PEMBEKALAN KEPADA MAHASISWA KKN PembekalanKuliahKerjaNyata    STMIK PRINGSEWU – Ratusan Mahasiswa STMIK dan STIT Pringsewu peride tahun 2017 mengikuti pembekalan sebelum melaksanakan Kuliah Kerja Nyata (KKN) di Kabupaten Pringsewu. Pemberian materi seputar gambaran Kabupaten Pringsewu disampaikan langsung oleh Kepala Dinas Pemberdayaan Masyarakat Desa (PMD), Malian Ayub, M.M di depan mahasiswa peserta KKN di gedung STMIK Pringsewu. Saya menyambut baik kegiatan pembekalan KKN untuk dapat memahami lebih lanjut terkait dengan Pekon yang ada di Wilayah Kabupaten Pringsewu, Rabu (19/7). Kami harapkan dengan adanya mahasiswa yang melaksanakan KKN di Kabupaten Pringsewu akan memberikan sumbangsih besar terhadap pembangunan di Kabupaten Pringsewu, keberadaan mahasiswa STMIK dan STIT Pringsewu ini nantinya akan membantu proses pelaksanaan kegiatan pembangunan di pemerintahan Pekon yang ada di Wilayah Kabup...

STMIK PRINGSEWU – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan acara Seminar dan Bedah Buku “Analisis Perancangan Sistem Informasi”, bertempat di Auditorium lantai II STMIK Pringsewu. Jum’at (30/9) Bedah buku tentu sangat berkaitan dengan dunia tulis menulis. Menulis merupakan sebuah kegiatan intelektualitas yang sangat bermanfaat bagi penulis atau pembaca.     SeminarBedahBuku/NurAminudin Bedah buku tentu sangat berkaitan dengan dunia tulis menulis. Menulis merupakan sebuah kegiatan intelektualitas yang sangat bermanfaat bagi penulis atau pembaca. Dengan menulis kita bisa menuangkan isi pikiran kita terhadap sesuatu. Dengan menulis kita bisa berekspresi dengan bebas terkait keilmuan yang berkembang. Sehingga bisa dikatakan sebuah karya tulisan sebagai perwakilan ekspresi dari pemikiran sang penulis untuk ditransfer kepada semua pembaca dimanapun berada. Hadir dalam acara bedah buku tersebut, Wakil Ketua I ...

    Bupati Pringsewu/Sujadi   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...

SERAH TERIMA MAHASISWA KKN STMIK & STIT PRINGSEWU STMIK PRINGSEWU – Sehubungan dengan pelaksanaan kegiatan Kuliah Kerja nyata (KKN) STMIK & STIT Pringsewu yang menempati lokasi di 40 pekon di wilayah Kabupaten Pringsewu, Pada hari senin 25 Juli 2016 telah diadakan serah terima mahasiswa Kuliah Kerja Nyata (KKN) STMIK & STIT Pringsewu Tahun Akademik 2015/2016 yang dilaksanakan di Pendopo Pringsewu. Acara tersebut dihadiri oleh Bupati Pringsewu H. Sujadi beserta jajaran SKPD di Kabupaten Pringsewu, Ketua DPRD Pringsewu (Ilyasa), unsur-unsur Muspida, camat, dan kepala pekon, Ketua Yayasan Dr. H. Fauzi, S.E., M.Kom., Akt., CA., adapun perwakilan dari STMIK & STIT Pringsewu yang juga hadir dalam kesempatan tersebut antara lain Ketua STMIK Pringsewu Hj. Rita Irviani, M.M. Ketua STIT Pringsewu Sri Hartati, M.T.I., Ketua Palaksana KKN, Seluruh DPL KKN T.A 2015/2016; serta 423 mahasiswa/i peserta KKN STMIK & STIT Pringsewu. Dalam sambutannya,...