Published Januari 30, 2012 by int4nf4tmastmikpringsewu

 

Ekor topan Iggy, yang menyapu 35 kabupaten di Jawa dan Bali

TEMPO.CO , Jakarta:Ekor topan Iggy, yang menyapu 35 kabupaten di Jawa dan Bali, telah menewaskan 14 orang dan melukai 60 orang lainnya. Sejak Rabu lalu angin ribut ini juga telah merusak 2.364 rumah. Posko Badan Nasional Penanggulangan Bencana (BNPB) mencatat angin ribut terjadi di 35 kabupaten dan kota di Jawa dan Bali. Di antaranya Lebak, Tangerang, Kepulauan Seribu, Majalengka, Bandung, Situbondo, Blitar, Malang, Semarang, Sleman, Kediri, Jember, Pasuruan, Bangkalan, Tabanan, dan Denpasar.

Kini, ancaman topan Iggy telah mereda karena angin itu telah menjauh. “Pengamatan terakhir menunjukkan jaraknya 1.400 kilometer selatan Cilacap,” kata Kepala Sub-Bidang Informasi Badan Meteorologi, Klimatologi, dan Geofisika Hary Tirto Djatmiko, Ahad 29 Januari 2012 kemarin.

Meski topan mulai menjauh, hujan deras dan angin kencang akan tetap berembus di sejumlah wilayah. Kecepatan angin berada di atas 35 kilometer per jam. Intensitas hujan antara sedang-lebat dan tinggi gelombang laut sekitar 3-6 meter. Yang akan benar-benar merasakan dampaknya adalah Sumatera bagian selatan, Bali, serta Nusa Tenggara.

Situasi ini dinilai aman bagi nelayan dan helikopter di ketinggian 1.500-3.000 meter. “Kecepatan angin pada ketinggian 1.500-3.000 meter sekitar 10-30 kilometer per jam.” Namun Hary mengimbau pilot dan nelayan untuk tetap berhati-hati dan memperhatikan cuaca.

Juru bicara Badan Nasional Penanggulangan Bencana, Sutopo Purwo Nugroho, menjelaskan korban tewas tertimpa pohon tersebar dari Tabanan, Purbalingga, Kediri, Banyumas, Jakarta, Wonosobo, Ciamis, hingga Pasuruan. “Kerusakan rumah terparah di Kepulauan Seribu, Banyumas, Banjarnegara, dan Situbondo,” katanya dalam siaran pers.

Cuaca buruk juga mengganggu penyeberangan di Selat Sunda. Ribuan kendaraan tujuan Pulau Jawa terjebak macet karena kapal datang terlambat. »Kapal terhambat gelombang dan angin,” kata Manajer Operasional PT Indonesia Ferry, Heru Purwanto, Sabtu lalu.

Kendaraan menumpuk di area parkir pelabuhan seluas 24 hektare hingga 2 kilometer dari pintu gerbang pelabuhan. Sebagian sopir mengaku sudah tiga hari antre. Nakhoda memperlambat laju kapal. Waktu tempuh dari Bakauheni, Lampung, ke Merak, Banten, dan sebaliknya menjadi tiga hingga lima jam dari waktu normal dua jam.

Indonesia Ferry mengoperasikan 28 feri. Meski begitu, sejumlah feri tersebut hanya bisa melayani 74 perjalanan dari jumlah ideal 104 perjalanan. Idealnya, dalam sehari feri sebanyak itu bisa mengangkut sekitar 3 ribu kendaraan.

 

Kegagalan Kemendagri Picu Keengganan Warga Urus e-KTP

TRIBUNnews.com

Laporan wartawan tribunnews.com : Adi Suhendi

TRIBUNNEWS.COM, JAKARTA– Apabila warga yang merupakan wajib E-KTP pada Tahun 2011 tidak mengurus E-KTP sampai dengan 30 April 2012 maka sejak Mei 2012 harus membayar jika mengurus E-KTP.

Hal tersebut dikarenakan Pemerintah sudah tidak menanggung beban biayanya lagi, alias tidak gratis.

“Kebijakan ini tentu akan membebani warga serta menyebabkan keengganan warga untuk mengurus E-KTP,” ucap anggota Komisi II DPR RI Arif Wibowo seperti dalam siaran persnya yang diterima tribunnews.com, Senin (30/1/2012).

Padahal E-KTP merupakan kewajiban pemerintah serta sebaliknya merupakan Hak Warga. Bayangkan saja jika kebijakan tersebut dilaksanakan secara serius, maka di Kota Pekanbaru Provinsi Riau sebagai contoh, bakal ada 250 ribuan warga yang harus membayar E-KTP pada bulan Mei 2012, setiap E-KTP kurang lebih dihargai 30 ribu Rupiah. Sampai Januari ini, baru 36 persen dari 500 ribuan warga di Pekanbaru yang ber-E-KTP.

Dengan seperti itu, menurut Arif sungguh pemerintah, dalam hal ini Kemendagri RI telah tidak hati-hati dan tidak cermat dalam melakukan perencanaan, menambah beban daerah berikut jauh dari optimal dalam mengorganisasikan kegiatan pelayanan E-KTP untuk warga negara.

“Sebagian besar masalah sesungguhnya merupakan ketidakmampuan Konsorsium pelaksana teknis E-KTP sebagai pemenang tender, bahkan terkesan seenaknya dalam melaksanakan program nasional E-KTP,” ungkapnya.

Ironisnya justru Kemendagri terkesan kuat melindungi, dan bahkan menjadi bumper konsorsium pelaksana yang nyata-nyata gagal melaksanakan kegiatan penunjang E-KTP.

Untuk itu Komisi II DPR RI meminta kepada Mendagri RI untuk melakukan evaluasi secara sungguh-sungguh berdasarkan fakta-fakta obyektif yang berkembang dalam pelaksanaan E-KTP Tahun 2011 dan persiapan pelaksanaan E-KTP 2012.

Kemendagri tidak perlu mencari-cari dalih atau alasan yang manipulatif atas buruknya perencanaan, ketidakmampuan Konsorsium pemenang tender dalam menjalankan tugas tanggungjawabnya, lemahnya pengorganisasian kegiatan lapangan, kekurangsigapan aparat pemerintah daerah serta lemahnya kendali dan pengawasan.
Selanjutnya, Mendagri harus berani mengambil kebijakan yang tegas dan tanpa kompromi untuk memberikan sanksi, terutama kepada Konsorsium yang notabene penyebab sebagian besar masalah yang berakibat pada jauhnya pencapaian target pelaksanaan E-KTP untuk 67 Juta Warga negara di 197 kabupaten/kota pada tahun 2011,” ungkapnya.

 

JUMLAH KEKERASAN APARAT MENINGKAT

 

 

 

REPUBLIKA.CO.ID, JAKARTA — Kekerasan keamanan di Indonesia masih marak terjadi pada 2011. Dilihat dari kuantitas dan kualitasnya, bisa dikatakan meningkat dibanding tahun sebelumnya.

Aktivis Imparsial Pungki Indrati memaparkan, sepanjang 2011 terjadi 38 kasus kekerasan yang dilakukan aparatur keamanan terhadap warga sipil.

Dalam catatan Imparsial, jumlah 38 kasus ini hanya yang mengemuka dan menjadi sorotan masyarakat luas.Realita di lapangan jauh lebih besar dari apa yang mengemuka di media massa dan yang menjadi sorotan masyarakat.

“Sedikitnya terjadi 29 kasus aparat kepolisian yang menunjukan brutalitas aparat dalam pelaksanaan tugasnya,” ujar Pungki dalam siaran pers kepada Republika, Senin (30/1).

Kasus Mesuji di Lampung, pada 10 November maupun kekerasan di Bima pada 24 Desember, serta tewasnya pedagang angkringan saat satuan Densus 88 menggerebek kawanan teroris di Kampung Dukuh, Desa Sanggrahan, Grogol, Sukoharjo, pada 17 Mei menunjukan ironi tersebut. ” Aparat semakin tidak terkendali dalam menjalankan tugas di lapangan,” kritik Pungki.

 

 

 

 

 

tugas modul vb

Published Januari 8, 2012 by int4nf4tmastmikpringsewu


Private Sub cmdbersih_Click()
‘mengosongkan isi textbox
txtbil1.Text = “”
txtbil2.Text = “”
txthasil.Text = “”
End Sub

Private Sub cmdhitung_Click()
‘deklarasi variabel lokal
Dim a As Single
Dim b As Single
Dim c As Single

a = txtbil1.Text
b = txtbil2.Text
hasil = a * b
txthasil.Text = hasil
End Sub

Private Sub cmdkeluar_Click()
‘mengakhiri program
End
End Sub

Private Sub cmdbagi_Click()
txthasil = Val(txtbil1.Text) / Val(txtbil2.Text)
End Sub

Private Sub cmddan_Click()
txthasil = Val(txtbil1.Text) & Val(txtbil2.Text)
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdkali_Click()
txthasil = Val(txtbil1.Text) * Val(txtbil2.Text)
End Sub

Private Sub cmdkurang_Click()
txthasil = Val(txtbil1.Text) – Val(txtbil2.Text)
End Sub

Private Sub cmdmod_Click()
txthasil = Val(txtbil1.Text) Mod Val(txtbil2.Text)
End Sub

Private Sub cmdtambah_Click()
txthasil = Val(txtbil1.Text) + Val(txtbil2.Text)
End Sub

‘jika status single dipilih, mendapat tunjangan 50000
‘jika status menikah dipilih, mendapat tunjangan 800000

Private Sub Form_Load()
optsingle.Value = False
optnikah.Value = False
End Sub

Private Sub optnikah_Click()
txttunjangan.Text = 800000
End Sub

Private Sub optsingle_Click()
txttunjangan.Text = 500000

‘If optsingle.Value = 1 Then
‘txttunjangan.Text = 500000
‘ElseIf optnikah.Value = 1 Then
‘txttunjangan.Text = 800000
‘End If
End Sub

‘kode program berikut dijalankan pada saat user menggerakkan pointer di atas cmdyes
‘cmdyes akan bergerak secara random

Private Sub cmdyes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdyes.Left = Int(Rnd * (Me.Width – cmdyes.Width))
cmdyes.Top = Int(Rnd * (Me.Height – cmdyes.Height))
End Sub

Private Sub chkBakso_Click()
chkBakso.Enabled = (chkBakso.Value = 1)
End Sub

Private Sub chkNasgor_Click()
chkNasgor.Enabled = (chkNasgor.Value = 1)
End Sub

Private Sub chksateayam_Click()
chksateayam.Enabled = (chksateayam.Value = 1)
End Sub

Private Sub chksatekambing_Click()
chksatekambing.Enabled = (chksatekambing.Value = 1)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.Text = “”
txtjk.Text = “”
txtht.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim KT As String
Dim T As Long
KT = Left(txtkt.Text, 3)
If KT = “BIM” Then
txtjk = “BIMA”
txtht = “50000”
txtjb = “16.00”
ElseIf KT = “EKO” Then
txtjk = “EKONOMI”
txtht = “35000”
txtjb = “19.00”
ElseIf KT = “MUT” Then
txtjk = “MUTIARA”
txtht = “23000”
txtjb = “17.00”
ElseIf KT = “SEN” Then
txtjk = “SENJA”
txtht = “20000”
txtjb = “20.00”
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp.Text = Val(txtjt.Text) * Val(txtht.Text)
txttotalp.SetFocus
End If
End Sub

Private Sub chkBold_Click()
‘membuat teks tebal
If chkBold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
‘membuat teks miring
If chkItalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkStrike_Click()
‘membuat teks efek garis di tengah teks
If chkStrike.Value = 1 Then
lblteks.FONTSTRIKE = True
Else
lblteks.FONTSTRIKE = False
End If
End Sub

Private Sub chkUnderline_Click()
‘membuat teks efek garis bawah
If chkUnderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub cmdexit_Click()
End
End Sub

Private Sub optBlue_Click()
‘membuat teks berwarna biru
lblteks.ForeColor = vbBlue
End Sub

Private Sub optGreen_Click()
‘membuat teks berwarna hijau
lblteks.ForeColor = vbGreen
End Sub

Private Sub optRed_Click()
‘Membuat text berwarna merah
lblteks.ForeColor = vbRed
End Sub

Private Sub optYellow_Click()
‘membuat teks berwarna kuning
lblteks.ForeColor = vbYellow
End Sub

Private Sub Form_Load()
optRed.Value = False
optGreen.Value = False
optBlue.Value = False
optYellow.Value = False
chkBold.Value = False
chkItalic.Value = False
chkUnderline.Value = False
chkStrike.Value = False
End Sub

Tugas 2 Vb

Published Desember 16, 2011 by int4nf4tmastmikpringsewu

                      Sintak Gaji 1 :

Private Sub Cbgol_Click()
If Cbgol = “I” Then
txtgaji.Text = 1500000
txttunjangan.Text = 150000
txtpajak.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) * 10 / 100
txttotal.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) – txtpajak.Text

ElseIf Cbgol = “II” Then
txtgaji.Text = 2000000
txttunjangan.Text = 200000
txtpajak.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) * 10 / 100
txttotal.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) – txtpajak.Text

ElseIf Cbgol = “III” Then
txtgaji.Text = 2500000
txttunjangan.Text = 250000
txtpajak.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) * 10 / 100
txttotal.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) – txtpajak.Text

ElseIf Cbgol = “IV” Then
txtgaji.Text = 3000000
txttunjangan.Text = 300000
txtpajak.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) * 10 / 100
txttotal.Text = (Val(txtgaji.Text) + Val(txttunjangan.Text)) – txtpajak.Text

End If
End Sub

Private Sub cmdbatal_Click()
TxtNIDN.Text = “”
txtpegawai.Text = “”
Cbgol.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
TxtNIDN.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
TxtNIDN.Text = “”
txtpegawai.Text = “”
Cbgol.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
TxtNIDN.SetFocus
End Sub

Private Sub Form_Activate()
TxtNIDN.SetFocus
End Sub

Private Sub Form_Load()
Cbgol.AddItem “I”
Cbgol.AddItem “II”
Cbgol.AddItem “III”
Cbgol.AddItem “IV”

End Sub

Private Sub TxtNIDN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpegawai.SetFocus
End If
End Sub

Sintak Gaji 2 :

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
txtgajikotor.Text = Val(txtgajipokok.Text) + Val(txttunjangan.Text) – Val(txtpotongan)
txtpajak.Text = (txtgajikotor.Text) * 10 / 100
txtgajiditerima.Text = Val(txtgajikotor.Text) – Val(txtpajak.Text)
End Sub

Private Sub cmdulang_Click()
txtgajipokok.Text = “”
txttunjangan.Text = “”
txtpotongan.Text = “”
txtgajikotor.Text = “”
txtpajak.Text = “”
txtgajiditerima.Text = “”
End Sub

Private Sub txtgajipokok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttunjangan.SetFocus
End If
End Sub

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpotongan.SetFocus
End If
End Sub

Sintak Huruf MUtu :

Private Sub cbnpm_Click()
If cbnpm = 11201001 Then
txtnmmahasiswa.Text = “Intan Fatma Diani”
txtjurusan.Text = ” Manajemen Informatika”

ElseIf cbnpm = 11201002 Then
txtnmmahasiswa.Text = “Yulianti”
txtjurusan.Text = “Manajemen Informatika”

ElseIf cbnpm = 11201004 Then
txtnmmahasiswa.Text = “Siti Hanani”
txtjurusan.Text = “Manajemen Informatika”

End If
End Sub

Private Sub cmdbatal_Click()
cbnpm.Text = “”
txtnmmahasiswa.Text = “”
txtjurusan.Text = “”
txtNQ.Text = “”
txtNT.Text = “”
txtUTS.Text = “”
txtUAS.Text = “”
txtnilaiakhir.Text = “”
txthm.Text = “”
cbnpm.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
txtnilaiakhir = (Val(txtNQ.Text) + Val(txtNT.Text) + Val(txtUTS.Text) + Val(txtUAS.Text)) / 4

If txtnilaiakhir >= 81 Then
txthm = “A”
ElseIf txtnilaiakhir >= 71 Then
txthm = “B”
ElseIf txtnilaiakhir >= 61 Then
txthm = “C”
ElseIf txtnilaiakhir >= 51 Then
txthm = “D”
Else: txthm = “E”

End If
End Sub

Private Sub Form_Activate()
cbnpm.SetFocus
End Sub

Private Sub Form_Load()
cbnpm.AddItem “11201001”
cbnpm.AddItem “11201002”
cbnpm.AddItem “11201004”
End Sub

Private Sub txtNQ_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNT.SetFocus
End If
End Sub

Private Sub txtNT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUTS.SetFocus
End If
End Sub

Private Sub txtUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUAS.SetFocus
End If
End Sub

Tugas 1 Vb

Published Desember 16, 2011 by int4nf4tmastmikpringsewu

sintak Jarak :

Private Sub cmdexit_Click()
pesan = MsgBox(“exitprogram?”, vbYesNo, “warning”)
If pesan = 6 Then
End If
End Sub

Private Sub txtkecepatan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtwaktu.SetFocus
End If
End Sub

Private Sub Txtwaktu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjarak = txtkecepatan * txtwaktu
txtjarak.SetFocus
End If
End Sub

SIntak Volume Kerucut :

Private Sub cmdkeluar_Click()
pesan = MsgBox(“keluar progran?”, vbYesNo, “warning”)
If pesan = 6 Then
End If
End Sub

Private Sub Label4_Click()

End Sub

Private Sub txtjari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttinggi.SetFocus
End If
End Sub

Private Sub txttinggi_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtvolume.Text = 1 / 3 * 22 / 7 * Val(txtjari.Text) * Val(txtjari.Text) * Val(txttinggi.Text)
txtvolume.SetFocus
End If
End Sub