Saling Kejar Elektabilitas Peserta Konvensi Capres Demokrat

Rabu, 13 November 2013 13:04

109

6

 

Konvensi Demokrat. ayogitabisa.com/jurnal3.com

AyoGitaBisa.com – Sebanyak 11 peserta konvensi capres Partai Demokrat saling berlomba berebut simpati rakyat, agar lolos dari tahap seleksi yang berlangsung sampai tanggal 15 Desember 2013. Diakui Jubir konvensi capres, Rully Charis bahwa elektabilitas dan popularitas 11 peserta konvensi masih jauh dari harapan.

“Jadi membandingkan 11 peserta saat ini dengan nama-nama capres lain adalah tidak tepat,” kata Rully kepada wartawan, Senin (4/11). Demikian ditulis vivanews.com.

Rendahnya elektabilitas dan popularitas dapat dilihat dari hasil survei Pusat Data Bersatu (PDB) yang dipublis 10 Oktober kemarin. Dari 11 peserta, Dahlan Iskan tercatat memiliki elektabilitas tinggi dengan persentase 71,2 persen.

Namun jika disandingkan dengan capres lain, posisi peserta konvensi masih jauh di bawah. Soal popularitas, Jokowi unggul dengan persentase 95,2 persen. Disusul Jusuf Kalla 93,4 persen. Megawati Soekarnoputri di urutan ketiga dengan persentase 92,4 persen.

Sedangkan dari segi elektabilitas, Jokowi di urutan pertama dengan nilai 36 persen. Disusul Prabowo Subianto 6,6 persen, kemudian Dahlan Iskan 5 persen.

Survei dilakukan dengan metode wawancara lewat telepon dari 21 sampai 24 September 2013. Responden dipilih secara acak sistematis, berdasarkan buku telepon residensial milik PT Telkom. Jumlah sampel sebanyak 500 orang. Margin of eror kurang lebih 4,5 persen pada tingkat kepercayaan 95 persen.

Hal yang sama juga ditunjukkan oleh hasil survei Lembaga Survei Nasional, Soegeng Sarjadi School of Government dan lainnya. Menyikapi hal itu, salah satu peserta konvensi Gita Wirjawan mengatakan akan bekerja keras untuk menaikkan elektabilitas dan popularitas.

“Harus kerja keras, ini masih delapan bulan,” kata Gita saat menjadi pembicara di salah satu program televisi Berita Satu beberapa waktu lalu.

Sering Tebar Senyum, Harta Koruptor Harus Dirampas!

Ropesta Sitorus,Hardani Triyoga,Idham Khalid – detikNews

 

Halaman 1 dari 2

Baju tahanan KPK yang belum membuat jera koruptor. (foto – detikcom)

Misteri Senyuman Koruptor

Jakarta – Hanya ada di Indonesia. Seorang pelaku tindak pidana korupsi dengan tanpa beban menebar senyum, melambaikan tangan, mengacungkan dua jempol jarinya, atau memberi salam metal saat disorot kamera televisi atau dijepret fotografer.

Anggota Komisi Hukum Dewan Perwakilan Rakyat Didi Irawadi Syamsuddin mengatakan, senyum dan lambaian tangan yang dipertontonkan para tersangka atau terdakwa korupsi merupakan sikap meremehkan rakyat.

“Itu masalah karakter dan sikap meremehkan rakyat yang sengaja diperlihatkan oleh si koruptor! padahal uang rakyat baru dicuri bahkan dijarahnya,” kata Didi kepada detikcom Kamis (14/11) kemarin.

Menurut Didi, rakyat yang menyaksikan senyum dan lambaian tangan koruptor akan kian membenci koruptor. Maka politisi Partai Demokrat ini pun mengusulkan agar aparat hukum segera merampas seluruh harta terpidana kasus korupsi.

“Rampas dan sita seluruh harta jarahan para koruptor! agar segera bisa dikembalikan pada rakyat yang berhak! Plus diborgol dihadapan publik,” kata Didi.

Peneliti Pusat Kajian Anti Korupsi Universitas Gadjah Mada Hifdzil Alim menilai, senyum koruptor yang berusaha dibuat tampil manis, seakan tanpa beban itu bisa melukai hati rakyat dua kali. Aksi mereka juga dianggap merendahkan wibawa hukum Indonesia.

Apalagi, mereka yang terjerat juga masih berkoar tidak bersalah kepada publik. “Tentunya, itu tak perlu ditanya, pasti menyakiti. Ketika mereka ditetapkan sebagai tersangka korupsi dan kemungkinan besar bersalah itu sudah menyakitkan hati, ditambah lagi mereka senyam senyum itu sangat menyakitkan hati,” kata Hifdzil Alim kepada detikcom Kamis (14/11).

Pengamat hukum pidana dari Universitas Indonesia Gandjar Laksamana Bonaprapta menilai beda yang mencolok antara sikap pelaku korupsi dengan pidana lain, menunjukkan tidak adanya rasa bersalah seorang

1450893_535579289859352_449863727_n.jpg

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim A As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

txtnu.Text = Right(txtnpm.Text, 3)

A = Mid(txtnpm.Text, 3, 1)

If A = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf A = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf A = “3” Then

txtjur.Text = “Tehnik Komputer”

End If

A = Mid(txtnpm.Text, 4, 2)

If A = “00” Then

txtprodi.Text = “Strata1”

ElseIf A = “01” Then

txtprodi.Text = “Diploma4”

ElseIf A = “02” Then

txtprodi.Text = “Diploma3”

End If

End Sub

 

Private Sub Cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmddelete_Click()

Data1.Recordset.Delete

End Sub

 

latihan 2.4

Private Sub Command1_Click()
Dim s, ps, jr As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
jr = “sistem informasi”
ElseIf s = “2” Then
jr = “manajemen informatika”
ElseIf s = “3” Then
jr = “teknik informatika”
ElseIf s = “4” Then
jr = “Master komputer”
End If
s = Mid(Text2.Text, 4, 2)
If s = “01” Then
ps = “strata satu”
ElseIf s = “02” Then
ps = “Diploma empat”
ElseIf s = “03” Then
ps = “Diploma tiga”
ElseIf s = “04” Then
ps = “Diploma satu”
End If
Text3.Text = jr
Text4.Text = ps
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

latihan 2.3

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100177”
nama = “marhatun”
jurusan = “Sistem Informasi”
Case “12100146”
nama = “M FUAIDI ABDILAH”
jurusan = “Diploma Empat”
Case “12100322”
nama = “weni refikasari”
jurusan = “Diploma Tiga”
Case “12100148”
nama = “M FUAD HASYIM”
jurusan = “Diploma Dua”
Case “12100179”
nama = “ani fitriyani”
jurusan = “Diploma Satu”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100177”
Combo1.AddItem “12100146”
Combo1.AddItem “12100322”
Combo1.AddItem “12100148”
Combo1.AddItem “12100179”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

latihan 2.2

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

latihan 2.1

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

 

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

 

rivate Sub Command1_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
End If
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub