PEMBAGIAN HADIAH LOMBA HUT KABUPATEN PRINGSEWU KE 9

STMIK PRINGSEWU – Acara pembagian hadiah lomba yang diselenggarakan Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu dalam rangka memperingati HUT Kabupaten Pringsewu Ke-9 pada hari Kamis (29/3) berlangsung meriah.
BERIKUT DAFTAR JUARA LOMBA :
JUARA LOMBA SOLO SONG KATEGORI SMA/SMK/MA SEDERAJAT

Juara I : Intan Saputri – MA Usluhudin Kalianda

Juara II : Mona Destiara Safitri – SMA N 1 GADINGREJO

juara III : Nafisa H Fitri – SMA N 1 GADINGREJO
JUARA LOMBA SOLO SONG KATEGORI UMUM

Juara I: Maya Puspita Sari – STMIK PRINGSEWU

Juara II : Adna Refi Anggraini – PRINGSEWU

juara III : Saleh – KOTAAGUNG
JUARA LOMBA FASHION SHOW KATEGORI SMA/SMK/MA SEDERAJAT

Juara I: Ratu Intan – SMA N 1 GADINGREJO

Juara II : Rio Febriansyah – SMK PELITA GADINGREJO

Juara III : Lutfiatun Niswah – PONDOK PESANTREN USHULUDDIN KALIANDA
JUARA LOMBA FASHION SHOW KATEGORI UMUM

Juara I: Rizki Tiara Putri – GEDONGTATAAN

Juara II : Yuli Krismawati – STMIK PRINGSEWU

Juara III : Ocma Pangestika – STIE MUHAMMADIYAH PRINGSEWU
JUARA LOMBA TARI KREASI

Juara I : SMK MUHAMMADIYAH 1 GADINGREJO

Juara II : SMK PELITA PESAWARAN

Juara III : STIE MUHAMMADIYAH PRINGSEWU
JAUARA LOMBA MODERN DANCE

Juara I : Ferluci Dance – WATES

Juara II : Zero Two Dance – PRINGSEWU

Juara III : Novalis Dance – PRINGSEWU
JUARA LOMBA VIDIO KREATIF UCAPAN SELAMAT HUT PRINGSEWU KE-9

Juara I : Palupi Indah – SMK YADIKA PAGELARAN

Juara II : Fiqih Satria – STMIK PRINGSEWU

Juara III : Made Galang – STMIK PRINGSEWU
SELAMAT KEPADA PARA PEMENANG DAN TERIMA KASIH BANYAK KEPADA PARA PESERTA YANG TELAH BERPARTISIPASI UNTUK BERSAMA-SAMA MENSUKSESKAN KEGIATAN PERLOMBAAN DALAM RANGKA HUT KABUPATEN PRINGSEWU KE-9. TETAP SUKSES DAN TERUS BERKARYA SECARA KREATIF, TERUS BERUPAYA MENJADIKAN DIRI SEBAGAI WADAH PENGEMBANGAN MINAT DAN BAKAT

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.2

Gambar
Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End 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 Txtn3.SetFocus End If End Sub
Baca selengkapnya

Tugas 1.5

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...
Baca selengkapnya

Tugas 1.1

Gambar
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 Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub
Baca selengkapnya