MEMBANGUN BUDAYA TERTIB LALU LINTAS

-

STMIK Pringsewu – Sabtu (11/6), “Membangun Budaya Tertib Lalu Lintas” merupakan salah satu materi di program orientasi studi pendidikan tinggi (POSDIKTI) STMIK Pringsewu diisi langsung oleh Bripka Yuliansyah Idrus selaku Banit Pendidikkan dan rekayasa Satlantas Polres Tanggamus. Beliau sangat bahagia diberikan kesempatan untuk memberikan materi “membangun budaya tertib lalu lintas” dan menyampaikan ucapan terima kasih kepada STMIK Pringsewu yang sudah memberikan kesempatan kepada Satuan Lalu Lintas Polres Tanggamus.

Yuliansyah mengatakan, membangun budaya tertib lalu lintas dari mahasiswa dapat menjadi contoh bagi masyarakat bagaimana berlalulintas yang baik dan terhindar dari kecelakaan. Selaku mahasiswa STMIK Pringsewu harus selalu mendukung keselamatan berlalulintas khususnya bagaimana berkendaraan yang baik dan memperhatikan rambu-rambu dan aturan lalulintas. Mari kita bersama-sama meningkatkan kesadaran masyarakat dalam berlalu lintas, dan kita tidak bosan-bosan memberikan penyuluhan kepada para pelajar dari sampai jenjang perguruan tinggi”, jelasnya.

Ditambahkan Nur Aminudin, M.T.I (Wakil Ketua III) mengatakan, “Membangun Budaya Tertib Lalu Lintas” bertujuan untuk menanamkan kesadaran tertib berlalu lintas kepada para mahasiswa sehingga dapat mengurangi volume kecelakaan yang terjadi di jalan raya, ucapnya.

Komentar

Posting Komentar

Postingan populer dari blog ini

PROGRAM 3.8 BP1

-
Gambar
Private Sub Command1_Click() Dim a As String a = Mid(Text2, 1, 4) If a = "2009" Then Text6 = "2009" End If a = Mid(Text2, 5, 1) If a = "A" Then Text7 = "Manajer" Text3 = "A" Text9 = "4000000" Text10 = "1025000" ElseIf a = "B" Then Text7 = "Ka. Seksi" Text3 = "B" Text9 = "3500000" Text10 = "975000" ElseIf a = "C" Then Text7 = "Staff" Text3 = "C" Text9 = "3000000" Text10 = "925000" End If a = Mid(Text2, 7, 1) If a = "S" Then Text4 = "S" Text5 = "Single" ElseIf a = "M" Then Text4 = "M" Text5 = "Menikah" ElseIf a = "J" Then Text4 = "J" Text5 = "Janda" ElseIf a = "D" Then Text4 = "D" Text5 = "Duda" End If a = Mid(Text2, 9, 3) ...
Baca selengkapnya

PROGRAM 2.6 BP1

-
Gambar
  Private Sub Chk1_Click() lbl2.FontBold = Chk1.Value End Sub Private Sub Chk2_Click() lbl2.FontItalic = Chk2.Value End Sub Private Sub Command1_Click() lbl2.Caption = txt1 End Sub Private Sub Command2_Click() Unload me End Sub Private Sub Opt1_Click() lbl2.ForeColor = vbBlue End Sub Private Sub Opt2_Click() lbl2.ForeColor = vbRed End Sub
Baca selengkapnya

PROGRAM 3.6 BP1

-
Gambar
Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" txttotalp = "" End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" End If If a = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txtjt.SetFocus End Sub   Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(Txtjt) * Val(Txtht) End If End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub
Baca selengkapnya