BUTARSABU

STMIK PRINGSEWU – Kamis (23/6), Ramadhan adalah bulan diturunkannya Al Qur an. Momen tersebut dimanfaatkan dengan baik oleh “Kabinet Hasanah Potensi” BEM STMIK Pringsewumenggelar 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 Badan Ekesekutif Mahasiswa STMIK Pringsewu. Kegiatan tersebut berlangsung di halaman kampus STMIK Pringsewu, ucap Cahya Ari Setia Budi (Presiden Mahasiswa) di dampingi seluruh jajaran “Kabinet Hasanah Potensi” beserta kepanitiaan butarsabu.

Kegiatan butarsabu tersebut di hadiri Ketua Yayasan Lembaga Pendidikan Startech (STMIK Pringsewu) Dr. H. Fauzi, S.E., M.Kom., Akt., CA, 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. Lab. Komputer (Sutejo, 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 & STIT Pringsewu, 250 mahasiswa STMIK Pringsewu, santri pondok pesantren Baitul Qur’an, anak-anak panti asuhan, serta undangan.

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.4

Gambar
Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) - Val(Text5) Text9 = Val(Text7) / Val(Text8) Text12 = Val(Text10) * Val(Text11) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetF...
Baca selengkapnya

Tugas 1.5

Gambar
Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) - Val(Text5) Text9 = Val(Text7) / Val(Text8) Text12 = Val(Text10) * Val(Text11) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFoc...
Baca selengkapnya

Tugas 4..1

Gambar
Private Sub Cbokode_Click() Dim merk, harga As String Select Case cbokode Case "apple MC965 macbook air" merk = "Apple MacBook Air MC965" harga = "12800000" Case "apple MC966 macbook air" merk = "Apple MacBook Air MC966" harga = "15800000" Case "apple MC968 macbook air" merk = "Apple MacBook Air MC968" harga = "9900000" Case "apple MC969 macbook air" merk = "Apple MacBook Air MC969" harga = "11900000" Case "apple MC700 macbook pro" merk = "Apple MacBook Pro MC700" harga = "10800000" Case "apple MC721 macbook pro" merk = "Apple MacBook Pro MC721" harga = "15900000" Case "apple MC723 macbook pro" merk = "Apple MacBook Pro MC723" harga = "19300000" Case "apple MC724 macbook pro" merk = "Apple MacBook Pro MC724...
Baca selengkapnya