PELAKSANAAN UPACARA HARI SUMPAH PEMUDA KE 89 DI STMIK PRINGSEWU

-
PELAKSANAAN UPACARA HARI SUMPAH PEMUDA KE 89 DI STMIK PRINGSEWU, Sabtu 28 Oktober 2017. Kepada mahasiswa mahasiswi STMIK Pringsewu agar mempererat persatuan di tengah perbedaan, jaga nilai-nilai sumpah pemuda, terutama satu bangsa satu tanah air, jangan khianati sumpah pemuda, melalui sumpah pemuda, tanah air, bangsa dan bahasa dapat diwujudkan untuk bersatu. Dengan sumpah pemuda pula perjuangan yang dilakukan oleh bangsa indonesia tidak lagi bersifat kedaerahan, namun sifatnya sudah nasionalis hingga akhirnya kemerdekaan dapat dicapai


Foto Stmik Pringsewu.

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