Kisi - Kisi Kewarganegaraan

 
Soal Kelas Malam:
1. Demokrasi Formil & Materiil.
2. Status Kewarganegaraan (soal beda dgn kls pagi).
3. Unsur2 negara.
4. Teori Teokrasi.
5. Prinsip Integritas.
6. soal kasus.
  





SISTEM INTEGRITAS
                                                                  Harkat & Martabat Bangsa
                                                       Sebuah Strategi Pemberantasan Korupsi

Berbagai Definisi Korupsi

• Penyalahgunaan wewenang atau kekuasaan untuk keuntungan pribadi

• Perilaku pejabat publik, baik politisi maupun pegawai negeri, yang memperkaya diri secara tidak pantas dan melanggar hukum.

Akibat Korupsi

• Merusak mental masyarakat

• Merusak tatanan dan sistem kerja lembaga pemerintah

• Mendorong persaingan penyuapan

• Ekonomi biaya tinggi

• Semakin terpuruknya masyarakat miskin 

Bagaimana Melawan Korupsi?

• Menghancurkan Mitos: korupsi adalah budaya

• Reformasi menyeluruh, sistematis dan berkelanjutan terhadap sistem dan organisasi

• Penegakan hukum

• Sanksi yang membuat jera

• Menciptakan mekanisme pertanggunggugatan

• Penyatuan tekad memberantas korupsi

Mengapa Korupsi Diberantas?

• Merusak sikap mental masyarakat

• Menyelamatkan asset dan uang negara

• Merusak profesionalisme

• Menghambat proses peningkatan kesejahteraan rakyat

• Menyengsarakan rakyat miskin

Sistem Integritas

• Merupakan Tekad  bersama seluruh elemen masyarakat untuk menegakkan “Harkat dan Martabat Daerah”

• Merupakan jalan bagi upaya memberantas korupsi secara menyeluruh (holistik)

• Mencegah kemungkinan terjadinya korupsi daripada menghukum setelah korupsi terjadi

• Dapat menuntut pertanggunggugatan horizontal

• Memasukkan upaya pendidikan dan penguatan masyarakat sebagai bagian yang sentral dalam upaya pemberantasan korupsi.

Manfaat Sistem Integritas

• Tercipta pelayanan publik yang:

  - efektif dan effisien
  - transparan
  - ber-tanggung-gugat, dan
  - partisipatif

• Meningkatkan kesejahteraan masyarakat

• Berfungsinya sistem demokrasi untuk masyarakat luas bukan hanya untuk elit politik

• Terlindunginya hak azasi rakyat

Tujuan Akhir Sistem Integritas

• Membuat korupsi dari “beresiko kecil dengan keuntungan besar” menjadi “beresiko tinggi dengan keuntungan kecil”

                                                            sehingga

• Penyelenggaraan kekuasaan negara dapat dijalankan lebih efektif, adil dan efisien

LANDASAN SISTEM INTEGRITAS

• NILAI-NILAI YANG ADA DALAM MASYARAKAT YANG MENIMBULKAN KESADARAN UNTUK MELAWAN KORUPSI.

• KALAU NILAI-NILAI INI TIDAK KUAT, MAKA LANDASAN INTEGRITAS NASIONAL RAPUH DAN BANGUNANNYA TIDAK KOKOH

Sistem Integritas yang Saling Terkait

• LANDASAN SISTEM INTEGRITAS

• NILAI-NILAI YANG ADA DALAM MASYARAKAT YANG MENIMBULKAN KESADARAN UNTUK MELAWAN KORUPSI.

• KALAU NILAI-NILAI INI TIDAK KUAT, MAKA LANDASAN INTEGRITAS NASIONAL RAPUH DAN BANGUNANNYA TIDAK KOKOH

Pilar-Pilar Integritas

• Pemerintah

• DPR

• Lembaga Peradilan dan Penegak Hukum (peradilan, kepolisian, kejaksaan)

• Pelayanan Publik (pam, listrik, pos, pekerjaan umum dsb)

• “Lembaga Pengawas” :Komite Akuntan Publik, Badan Pengawas Keuangan Daerah (BPKD), Ombudsman,Komisi Pengawas dan Pemantau Kekayaan Pejabat Daerah (KPKPD), Komisi Pengawas Persaingan Usaha Daerah (KPPUD),Komisi Pemberantas Tindak Pidanan Korupsi Daerah (KPTPKD)

• Masyarakat Sipil

• Sektor swasta

• Lembaga Internasional

SISTEM INTEGRITAS DAERAH MERUPAKAN ATAP DARI LANDASAN DAN PILAR TERSEBUT

• BOLA BUNDAR DI ATAS ATAP: MENJAGA AGAR ATAP TETAP DATAR, AGAR  PEMBANGUNAN BERKELANJUTAN, ATURAN MAIN HUKUM DAN KUALITAS KEHIDUPAN BANGSA TIDKA MELUNCUR KE BAWAH

• ATAP HANYA BISA DATAR APABILA PILAR-PILAR TETAP TEGAK

PRINSIP INTEGRITAS PEJABAT PUBLIK

• Tidak memikirkan diri sendiri: pemangku jabatan publik selalu mementingkan kepentingan publik di atas kepentingan pribadinya

• Integritas (harkat dan martabat)

  bebas dari pengaruh uang atau konflik kepentingan dalam mengambil keputusan

• Obyektivitas

  Mengambil keputusan sesuai dengan tolok ukur kemampuan, terutama dalam mengangkat pegawai atau menentukan kontrak.

• Tanggung gugat

  pemegang jabatan publik bertanggungjawab kepada publik dan dapat digugat atas semua keputusan-keputusannya serta bersedia menempatkan diri di bawah pengawasan publik

• Transparansi

  Semua keputusan dan proses pengambilan keputusan di institusi publik dan oleh pejabat publik harus terbuka dna dapat diakses oleh publik

• Kejujuran

  Pemegang jabatan publik wajib melaporkan kekayaannya dan keluarganya secara jujur dan berkala kepada publik dan mengungkapkan apabila ada konflik kepentingan di dalam jabatan yang dipangkunya

• Kepemimpinan

  Pemegang jabatan publik harus memberikan contoh dan keteladanan dan menyebarluaskan prinsip-prinsip ini.

TANGGUNG GUGAT HORISONTAL

• Tidak ada lembaga yang mempunyai kekuasaan mutlak mengawasi atau mendominasi lembaga lain (penyebaran kekuasaan)

• Setiap pejabat publik mempunyai resiko tindakan korupsinya akan terungkap

• Akan tercipta lingkaran kebajikan yang menjaga integritasnya masing-masing karena adanya ketakutan akan kontrol publik

• Saling mengkontrol  antar lembaga/insitusi dengan pengawas independen

Langkah-langkah SI

• Memperkenalkan SI

• Membuat Strategi Pemberantasan Korupsi

• Membangun koalisi anti korupsi: individu-individu yang ingin melawan korupsi dari unsur: pemerintah, legislatif, yudikatif,kalangan agamawan,  masyarakat sipil, media massa dan swasta

• Membangun SI

• Menguji dan memperbarui SI

Lokakarya Integritas

• Mekanisme yang terbaik untuk menguji dan memperbarui “Sistem Integritas“ secara sistematis melalui lokakarya.

• Lokakarya bermanfaat karena mengajak semua pihak duduk secara bersama-sama, baik pejabat maupun kelompok kepentingan untuk menumbuhkan  “rasa memiliki” proses tersebut, yang menjadi salah satu syarat berhasilnya sistem tersebut.

KORUPSI TIDAK DAPAT DILAWAN SENDIRIAN

• Membangun koalisi adalah langkah pertama yang harus dilakukan.

• Syaratnya: KEPERCAYAAN

• Membangun kepercayaan antara masyarakat sipil, swasta, pemerintah, legislatif,  dan politisi jujur

• Kesepakatan seluruh elemen untuk melawan korupsi

Jangan ragu
untuk ikut serta
dalam memerangi
korupsi

Terima kasih

Read More

Listing Quis GUI Pak aiiiii......!!!!!!

·                                                                                   Gambar Program Penjualan Rokok

    KELUAR

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

·        ULANGI

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox8.Clear()

    End Sub

·        FORM LOAD

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("R001")

ComboBox1.Items.Add("R002")

ComboBox1.Items.Add("R003")

ComboBox1.Items.Add("R004")

ComboBox1.Items.Add("R005")

    End Sub

·        COMBOBOX

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "R001" Then

            TextBox1.Text = "Marlboro"

            TextBox2.Text = 11000

ElseIf ComboBox1.Text = "R002" Then

            TextBox1.Text = "Sampoerna"

            TextBox2.Text = 10000

ElseIf ComboBox1.Text = "R003" Then

            TextBox1.Text = "Surya"

            TextBox2.Text = 10000

ElseIf ComboBox1.Text = "R004" Then

            TextBox1.Text = "Club Mild"

            TextBox2.Text = 7000

ElseIf ComboBox1.Text = "R005" Then

            TextBox1.Text = "Piala Mas"

            TextBox2.Text = 6000

        End If

    End Sub

·        HITUNG

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'untukmendapatkan total harga

        TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)

        'untukmendapatkandiskon

        If TextBox3.Text >= 10 Then

            TextBox5.Text = Val(TextBox4.Text) * 0.1

        Else

TextBox5.Text = 0

        End If

        TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)

TextBox7.Focus()

    End Sub

End  Class

                                        Gambar Program Nilai Mahasiswa

PublicClass Form1

·        NIM

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox2.Focus()

EndIf

EndSub

·        NAMA

PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

'Fungsi Enter

If e.KeyChar = Chr(13) Then

            ComboBox1.Focus()

EndIf

EndSub

·        JURUSAN

PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

 ComboBox1.SelectedIndexChanged

        TextBox3.Focus()

EndSub

·        ALAMAT

PrivateSub TextBox3_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox4.Focus()

EndIf

EndSub

·        NILAI TGAS

PrivateSub TextBox4_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox5.Focus()

EndIf

EndSub

·        NILAI QUIS

PrivateSub TextBox5_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox6.Focus()

EndIf

EndSub

·        NILAI UTS

PrivateSub TextBox6_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox7.Focus()

EndIf

EndSub

·        NILAI UAS

PrivateSub TextBox7_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

If e.KeyChar = Chr(13) Then

            TextBox8.Focus()

EndIf

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        TextBox8.Enabled = False

        TextBox9.Enabled = False

EndSub

*HITUNG*

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim tugas, quis, uts, uas, akhir AsInteger

Dim keterangan AsString

        tugas = TextBox4.Text

        quis = TextBox5.Text

        uts = TextBox6.Text

        uas = TextBox7.Text

        akhir = (tugas * 0.5) + (quis * 0.1) + (uts * 0.2) + (uas * 0.2)

        TextBox8.Text = akhir

'untuk menentukan keterangan

'If akhir >= 96 And akhir <= 100 Then

'keterangan = "A"

'ElseIf akhir >= 90 And akhir <= 95 Then

'keterangan = "AB"

'ElseIf akhir >= 80 And akhir < 89 Then

'keterangan = "B"

'ElseIf akhir >= 70 And akhir < 79 Then

'keterangan = "BC"

'ElseIf akhir >= 60 And akhir < 69 Then

'keterangan = "C"

'ElseIf akhir >= 50 And akhir < 59 Then

'keterangan = "D"

'ElseIf akhir <= 49 Then

'keterangan = "ERROR"

'End If

SelectCase akhir

Case 96 To 100

                keterangan = "A"

Case 90 To 95

                keterangan = "AB"

Case 80 To 89

                keterangan = "b"

Case 70 To 79

                keterangan = "BC"

Case 60 To 69

                keterangan = "C"

Case 50 To 59

                keterangan = "D"

CaseIs<= 49

                keterangan = "ERROR"

EndSelect

        TextBox9.Text = keterangan

EndSub

Read More