KETUA STMIK PRINGSEWU PIMPIN UPACARA PERINGATAN HARI PAHLAWAN

-
STMIK PRINGSEWU – 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).
Filed in: BEM, Info Kampus, Info Penting, Umum

Komentar

Posting Komentar

Postingan populer dari blog ini

program1

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

Tugas 3.2

-
Gambar
Tugas 3.2 Source Codenya: Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Form_Activate() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtjur.Text = "Sistem Informasi" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" ElseIf S = "3" Then txtju...
Baca selengkapnya

Tugas 3.3

-
Gambar
Tugas 3.3 Source Codenya: Private Sub Form_Load() cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" cbokode.AddItem "Apple MC968 Macbook Air" cbokode.AddItem "Apple MC969 Macbook Air" cbokode.AddItem "Apple MC700 Macbook Pro" cbokode.AddItem "Apple MC721 Macbook Pro" cbokode.AddItem "Apple MC723 Macbook Pro" cbokode.AddItem "Apple MC311 Macbook Pro" cbokode.AddItem "Apple MC313 Macbook Pro" cbokode.AddItem "Apple MC314 Macbook Pro" cbokode.AddItem "Apple MC318 Macbook Pro" cbokode.AddItem "Apple MC322 Macbook Pro" cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" End Sub Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air  " hs = "12800000" Case "MC966" mt = "A...
Baca selengkapnya