KETUA STMIK PRINGSEWU PIMPIN UPACARA PERINGATAN HARI PAHLAWAN

Hari Pahlawan Nasional yang jatuh hari ini, Kamis (10/11) turut diperingati di STMIK Pringsewu Kabupaten Pringsewu – Lampung.
Upacara penghormatan berlangsung pagi ini di halaman kampus STMIK Pringsewu. Tampak dalam barisan, Bapak/Ibu Dosen STMIK Pringsewu, Mahasiswa dan Resimen Mahasiswa.
Ketua STMIK Pringsewu Hj. Rita Irviani, M.M bertindak sebagai inspektur upacara. Komandan upacara Danki Resimen Mahasiswa STMIK Pringsewu (Sandi Royan Saputra).

sumber: http://stmikpringsewu.ac.id/ketua-stmik-pringsewu-pimpin-upacara-peringatan-hari-pahlawan/

Komentar

Posting Komentar

Postingan populer dari blog ini

PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017

Gambar
PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. sumber : http://stmikpringsewu.ac.id/pelantikan-bupati-dan-wakil-bupati-pringsewu-2017/
Baca selengkapnya

tugas 3.7

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgol = "A" txtjabatan = "Manager" txtgaji = "4000000" txttunjangan = "1025000" ElseIf S = "B" Then txtgol = "B" txtjabatan = ...
Baca selengkapnya