tugas

tugas 3

Capture

Private Sub Cbogolongan_Click()
Dim gapok, tunjangan, pajak, total As String
Select Case Cbogolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
Txtgapok.Text = gapok
Txttunjangan.Text = tunjangan
Txtpajak.Text = pajak
Txttotal.Text = total – pajak
End Sub
Public Sub kosong()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
Cbogolongan.Text = “”
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub

tugas 4

T4

Private Sub Cmdproses_Click()
Dim R As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
R = Mid(Txtnpm.Text, 3, 1)
If R = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf R = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf R = “3” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf R = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
R = Mid(Txtnpm.Text, 4, 2)
If R = “01” Then
Txtps.Text = “Strata Satu”
ElseIf R = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf R = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf R = “04” Then
Txtps.Text = “Diploma Dua”
End If
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

TUGAS 6

T6
Private Sub Cbokode_Click()
Txtjj.SetFocus
End Sub

Private Sub Cmdproses_Click()
Dim R As String
R = Mid(Cbokode.Text, 7, 5)
If R = “MC965” Then
Txtmerk.Text = “Apple MacBook Air MC965”
Txths.Text = 12800000
ElseIf R = “MC966” Then
Txtmerk.Text = “Apple MacBook Air MC966”
Txths.Text = 15800000
ElseIf R = “MC968” Then
Txtmerk.Text = “Apple MacBook Air MC968”
Txths.Text = 9900000
ElseIf R = “MC969” Then
Txtmerk.Text = “Apple MacBook Air MC969”
Txths.Text = 11900000
ElseIf R = “MC700” Then
Txtmerk.Text = “Apple MacBook Pro MC700”
Txths.Text = 10800000
ElseIf R = “MC721” Then
Txtmerk.Text = “Apple MacBook Pro MC721”
Txths.Text = 15900000
ElseIf R = “MC723” Then
Txtmerk.Text = “Apple MacBook Pro MC723”
Txths.Text = 19300000
ElseIf R = “MC724” Then
Txtmerk.Text = “Apple MacBook Pro MC724”
Txths.Text = 13700000
ElseIf R = “MC311” Then
Txtmerk.Text = “Apple MacBook Pro MC311”
Txths.Text = 24200000
ElseIf R = “MC313” Then
Txtmerk.Text = “Apple MacBook Pro MC313”
Txths.Text = 11900000
ElseIf R = “MC314” Then
Txtmerk.Text = “Apple MacBook Pro MC314”
Txths.Text = 14700000
ElseIf R = “MC318” Then
Txtmerk.Text = “Apple MacBook Pro MC318”
Txths.Text = 17600000
ElseIf R = “MC322” Then
Txtmerk.Text = “Apple MacBook Pro MC322”
Txths.Text = 21300000
End If
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp.Text >= 15000000 Then
Txtdis.Text = Val(Txthp.Text) * 2 / 100
ElseIf Txthp.Text <= 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 5 / 100
ElseIf Txthp.Text <= 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 10 / 100
ElseIf Txthp.Text > 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 15 / 100
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
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 MC724 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”
End Sub

TUGAS 7

T7

Private Sub Cbokode_Click()

Dim JENKOM, HARSA As String
Select Case Cbokode.Text
Case “P205”
JENKOM = “Pentium II 500 MegaHz”
HARSA = 1500000
Case “P308”
JENKOM = “Pentium III 800 MegaHz”
HARSA = 2100000
Case “P310”
JENKOM = “Pentium III 1.0 GigaHz”
HARSA = 3500000
Case “P415”
JENKOM = “Pentium IV 1.5 GigaHz”
HARSA = 4000000
Case “P417”
JENKOM = “Pentium IV 1.7 GigaHz”
HARSA = 4200000
Case “P419”
JENKOM = “Pentium IV 1.9 GigaHz”
HARSA = 5500000
Case Else
JENKOM = 0
HARSA = 0
End Select
Txtjk.Text = JENKOM
Txths.Text = HARSA
Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp.Text >= 15000000 Then
Txtdis.Text = Val(Txthp.Text) * 2 / 100
ElseIf Txthp.Text <= 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 5 / 100
ElseIf Txthp.Text <= 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 10 / 100
ElseIf Txthp.Text > 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 15 / 100
End If
Txthb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txthb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
Cbokode.AddItem “P205”
Cbokode.AddItem “P308”
Cbokode.AddItem “P310”
Cbokode.AddItem “P415”
Cbokode.AddItem “P417”
Cbokode.AddItem “P419”
End Sub

TUGAS 8

T8

Private Sub Cmdproses_Click()

Dim J As String
J = Mid(Txtkb.Text, 3, 3)
If J = “SIM” Then
Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
Txtp.Text = “YATI NUR OKTAFIA”
Txtharga.Text = “75900”
ElseIf J = “EDP” Then
Txtjb.Text = “ELEKTRONIK DATA PROCESSING”
Txtp.Text = “IMAM TARMIZI”
Txtharga.Text = “62000”
ElseIf J = “MNJ” Then
Txtjb.Text = “MANAJEMEN”
Txtp.Text = “VALINTINA MARIANAN”
Txtharga.Text = “42000”
ElseIf J = “CDR” Then
Txtjb.Text = “COREL DRAW”
Txtp.Text = “SITI FADILAH”
Txtharga.Text = “53000”
ElseIf J = “RPL” Then
Txtjb.Text = “REKAYASA PERANGKAT LUNAK”
Txtp.Text = “SINTA UMPU SINGA”
Txtharga.Text = “83000”
End If
J = Left(Txtkb.Text, 1)
If J = “A” Then
Txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf J = “I” Then
Txtpen.Text = “INDAH SURABAYA”
ElseIf J = “S” Then
Txtpen.Text = “SALEMBA EMPAT”
ElseIf J = “E” Then
Txtpen.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf J = “M” Then
Txtpen.Text = “MAXICOM”
End If
Txtth.Text = “20” & Right(Txtkb.Text, 2)
End Sub

Private Sub Cmdlagi_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

TUGAS 9

T9

Private Sub Cmdproses_Click()

Dim A As String
A = Mid(Txtkt.Text, 1, 3)
If A = “BIM” Then
Txtht.Text = 50000
Txtjk.Text = “BIMA”
Txtjb.Text = “16.00”
ElseIf A = “EKO” Then
Txtht.Text = 35000
Txtjk.Text = “EKONOMI”
Txtjb.Text = “19.00”
ElseIf A = “MUT” Then
Txtht.Text = 23000
Txtjk.Text = “MUTIARA”
Txtjb.Text = “17.00”
ElseIf A = “SEN” Then
Txtht.Text = 15000
Txtjk.Text = “SENJA”
Txtjb.Text = “20.00”
End If
Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()
Txtkt.SetFocus
Txtkt.Text = “”
Txtht.Text = “”
Txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

TUGAS 10

T10

Private Sub Cmdproses_Click()

Dim K As String
K = Mid(txtkb.Text, 1, 3)
If K = “SIM” Then
txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
txtp.Text = “FADIYA ULFA”
txthg.Text = “75900”
ElseIf K = “EDP” Then
txtjb.Text = “ELEKTRONIK DATA PROCESSING”
txtp.Text = “NURUL AGUSTINA”
txthg.Text = “62000”
ElseIf K = “MNJ” Then
txtjb.Text = “MANAJEMEN”
txtp.Text = “RIAN HIDAYAT”
txthg.Text = “42000”
ElseIf K = “CDR” Then
Txjb.Text = “COREL DRAW”
txtp.Text = “SITI NUR KHOTIMAH”
txthg.Text = “53000”
ElseIf K = “RPL” Then
txtjb.Text = “REKAYASA PERANGKAT LUNAK”
txtp.Text = “WINDA ERLIANTI”
txthg.Text = “83000”
End If
K = Right(txtkb.Text, 1)
If K = “A” Then
txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf K = “I” Then
txtpenerbit.Text = “INDAH SURABAYA”
ElseIf K = “S” Then
txtpenerbit.Text = “SALEMBA EMPAT”
ElseIf K = “E” Then
txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf K = “M” Then
txtpenerbit.Text = “MAXICOM”
End If
txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)
End Sub

Private Sub Cmdlagi_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Iklan
Standar

tugas 3

tugas 1.1

SELLA1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

tugas 1.2

SELLA1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End If

End Sub

tugas 3

SHELA 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

tugas 4

SHELA 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

tugas 5

sella unyu

Private Sub Chkbold_Click()
‘membuat teks tebal
If Chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chkitalic_click()
‘membuat teks miring
If Chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub
Private Sub Chkstrikethru_Click()
‘membuat teks bergaris tengah
If Chkstrikethru.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False

End If
End Sub
Private Sub Chkunderline_Click()
‘membuat teks bergaris bawah
If Chkunderline.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Optblue_Click()
‘membuat teks biru
lbltext.ForeColor = vbBlue
End Sub
Private Sub Optgreen_Click()
‘membuat teks hijau
lbltext.ForeColor = vbGreen
End Sub

Private Sub OptRed_Click()
‘membuat teks merah
lbltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
‘membuat teks  kuning
lbltext.ForeColor = vbYellow
End Sub

tugas 6.

SELAAAA

Private Sub chkitalic_Click()
‘membuat teks miring
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub cmdok_Click()
lbltext.Text = Val(Text1.Text)
End Sub

Private Sub cmdselesai_Click()
End
End Sub

Private Sub optblue_Click()
‘membuat teks berwarna biru
lbltext.ForeColor = vbBlue
End Sub

Private Sub chkbold_Click()
‘membuat teks tebal
If chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah
lbltext.ForeColor = vbRed
End Sub

Private Sub lbltext_Change()
lbltext.Text = Text1.Text
End Sub

Standar

tugas 2

SHELA 2

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

2.kalkulator mini

shela rizki

Private Sub Command1_Click()
Text9.Text = Val(Text1.Text) + Val(Text5.Text)
Text10.Text = Val(Text2.Text) – Val(Text6.Text)
Text11.Text = Val(Text3.Text) * Val(Text7.Text)
Text12.Text = Val(Text4.Text) / Val(Text8.Text)
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
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
Private Sub text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub

Standar

Subsidi Tetap BBM Belum Dapat Lampu Hijau Jokowi By Fiki Ariyanti on Dec 19, 2014 at 14:21 WIB Share


Liputan6.com, Jakarta – Pemerintah melalui Kementerian Keuangan (Kemenkeu) berencana menerapkan subsidi bahan bakar minyak (BBM) tetap mulai Januari tahun depan.

Namun Kementerian Koordinator Bidang Perekonomian memastikan rencana tersebut belum mengantongi restu Presiden Joko Widodo (Jokowi).

Ditemui di kantornya, Menteri Koordinator Bidang Perekonomian Sofyan Djalil mengatakan, subsidi tetap yang disebut-sebut Menteri Keuangan Bambang Brodjonegoro merupakan satu dari tiga opsi kebijakan harga BBM baru yang masih dalam proses kajian pemerintah.

Sofyan memastikan opsi subsidi tetap belum menjadi pilihan pemerintah karena Presiden Jokowi belum mengetahuinya. “Belum (dipilih), itu kan baru opsi. Kita belum melaporkan ke Presiden, jadi nggak boleh sebelum ketemu Presiden dong,” kata dia, Jumat (19/12/2014).

Lanjut Sofyan, pemerintah masih menggodok opsi kebijakan itu untuk segera diumumkan akhir tahun ini. Dalam memutuskan opsi kebijakan, pemerintah perlu mempertimbangkan tiga hal.

“Kita mempertimbangkan harga BBM itu dari subsidinya sendiri, itu pertama. Apakah kita masih perlu subsidi yang konsumtif itu. Kedua, harga minyak mentah atau MOPS dan ketiga, nilai tukar mata uang. Nanti kita lihat mana opsi yang paling optimum dan itu yang akan diputuskan,” jelas dia.

Sofyan pun mengatakan, apabila diberlakukan subsidi tetap, maka kebijakan tersebut dipastikan tak akan melanggar hukum apapun, termasuk Undang-undang (UU).

“Dengan regulasi nggak ada masalah, kita sudah me-review semua. Tidak akan ada pelanggaran hukum apapun,” ucapnya. (Fik/Nrm)

Standar

Pengungsi Korban Longsor Banjarnegara Butuh Fasilitas MCK on Dec 19, 2014 at 05:33 WIB


Liputan6.com, Banjarnegara – Sebanyak 3 jenazah ditemukan oleh tim evakuasi di sekitar aliran sungai yang berada di sekitar lokasi longsor Dusun Jemblung, Kecamatan Karangkobar, Banjarnegara, Jawa Tengah.

Seperti ditayangkan Liputan 6 Malam SCTV, Kamis (18/12/2014), diperkirakan ketiga korban terseret hingga ratusan meter dari rumah mereka.

Memasuki hari ke-6 pascalongsor, tim evakuasi gabungan dari Basarnas, TNI, Polri, dan relawan terus berupaya mencari korban yang masih tertimbun longsor.

Diperkirakan 20 warga masih tertimbun dan belum ditemukan, sementara jumlah korban yang berhasil ditemukan hingga hari ini sudah mencapai 86 jiwa.

Sementara itu di tempat pengungsian, kondisi para pengungsi masih memprihatinkan. Minimnya fasilitas air bersih dan kurangnya sarana kamar mandi membuat para pengunggsi kerepotan untuk mendapatkan sarana air bersih.

Sekitar 200 pengungsi yang menempati posko pengungsian di Balai Desa Karangkobar terpaksa harus bolak-balik ke rumah warga atau pun ke sungai.

Dari 12 posko yang tersedia, posko di Balai Desa Karangkobar itulah yang paling banyak ditempati pengungsi longsor Banjarnegara. Namun sayang, sarana dan prasaranya masih jauh dari memadai. Para pengungsi berharap pemerintah segera membangun fasilitas mandi, cuci, kakus (MCK) agar mereka tidak semakin menderita. (Vra/Ali)

Standar

Papua Dijadikan Daerah Lumbung Pangan Nasional By Elizabeth Swanti on Dec 19, 2014 at 14:00 WIB

Liputan6.com, Jakarta- Kementerian Desa, Pembangunan Daerah Tertinggal, dan Transmigrasi tengah mencanangkan program ‘Papua sebagai lumbung pangan Nasional’, melalui  pengembangan industri berbasis komoditas di wilayah tersebut.

“Potensi alam di Papua sangat bagus untuk komoditas seperti padi, jagung, kedelai, kacang tanah, sagu, ubi, sayur dan buah-buahan. Sehingga sangat layak dijadikan industri komoditas,” ungkap Menteri Desa, Marwan Jafar, dalam acara Seminar “Persiapan Desa Menghadapai Implementasi UU Nomor 6 Tahun 2014 tentang Desa” dan Launching Papua Circle Institute, di Hotel Sofyan Cikini, Jakarta, Jumat (19/12/2014).

Menurut Marwan, program tersebut dilakukan untuk meningkatkan pembentukan Produk Domestik Bruto (PDB) atau nilai pasar di wilayah Papua. Sebab, meskipun laju pertumbuhan ekonomi Papua selama ini meningkat hingga 9,6 persen, diatas rata-rata pertumbuhan ekonomi nasional.

Selain akan dijadikan lumbung pangan, pihak Kementerian Desa, Pembangunan Daerah Tertinggal, dan Transmigrasi juga akan mendorong agar dilakukan pengembangan peternakan dan tanaman non-pangan, seperti tebu, karet, dan kelapa sawit. Selain itu, percepatan pembangunan ekonomi berbasis maritim (kelautan) melalui pengembangan pariwisata bahari juga akan dilakukan.

“Di Papua banyak tempat wisata indah yang sangat dijamin originalitas alamnya, seperti Teluk Cendrawasih, Raja Ampat, (Danau) Sentai, (Danau) Paniai, dan beberapa lainnya. Itu kan kekayaan alam yang harus terus dijaga dan dirawat untuk mendorong lebih banyak banyak lagi wisatawan,” kata Marwan.

Ditegaskan sang menteri, program yang menjadi bagian dari proses pembangunan Papua itu diharapkan lebih melibatkan masyarakat secara inklusif, sehingga hasil pembangunan tersebut dapat dinikmati secara merata oleh masyarakat. Dengan begitu, ketimpangan pendapatan antar golongan atau Gini Ratio masyarakat Papua yang belakangan mengalami kenaikan dapat ditekan.

“Gini Ratio di wilayah Papua cenderung meningkat dari tahun ke tahun, hingga 2013 lalu kesenjangan antar golongan di Provinsi Papua Barat sebesar 0,431 sedangkan di Provinsi Papua 0,442. Ini tentu lebih tinggi dari Gini Ratio Nasional 0,413,” urainya.

Standar

Sosok Kapten Sang Penyelamat Siswi SD dari Penyanderaan di Gresik By Raden Trimutia Hatta on Dec 18, 2014 at 17:10 WIB


Liputan6.com, Jakarta – Drama penyanderaan siswi SD di Gresik berakhir dengan tewasnya pelaku bernama Fuad Ahmad (34). Siswi SD bernama Zahriani Putri Agustin (9) itu diselamatkan oleh prajurit TNI berpangkat kapten.

Dia adalah Kapten Arh Suwanto (49) yang menjabat sebagai Perwira Seksi Personalia (Pasipers) Kodim 0817/Gresik. Namun, karena situasi penyanderaan yang dilakukan Fuad di Makodim 0817/Gresik (17/12) Kapten Suwanto pun mengaku sebagai Komandan Kodim atau Dandim.

“Awalnya, aksi Kapten Suwanto mengaku sebagai Dandim tidak dipercaya oleh pelaku yang berasal dari Lombok Barat, Mataram, tetapi dengan penjelasan Kapten Suwanto, Fuad pun percaya hingga terjadi negosiasi selama 3 jam di ruangan Kapten Suwanto,” ungkap Kepala Penerangan Kodam V/Brawijaya Kolonel Arm Totok Sugiharto dalam keterangan tertulisnya kepada Liputan6.com di Jakarta, Kamis (18/12/2014).

Selama negosiasi, sambung Totok, tangan kiri Fuad tetap mendekap dan tangan kanannya menempelkan pisau ke leher korban.

“Tangannya Kapten Suwanto terluka pada saat merebut pisau yang dibawa Fuad Ahmad dan terpaksa pihak kepolisian melepaskan timah panasnya ke tubuh Fuad karena bisa mengancam jiwa Kapten Suwanto yang sebelumnya di dahului dengan tembakan peringatan dan tidak di gubris oleh pelaku,” beber Totok.

Menurut dia, upaya yang dilakukan Kapten Suwanto bernegosiasi hingga membebaskan korban dari tangan pelaku patut diapresiasi. “Prestasi Kapten Arh Suwanto tersebut pun mendapatkan apresiasi langsung berupa penghargaan dari Pangdam V/Brawijaya selaku atasannya,” tukas Totok.

Kapten Suwanto yang lahir di Gresik pada 12 November 1965 merupakan lulusan Secaba PK tahun 1988 dan baru menjabat sebagai Pasipers bulan Maret 2014. Kapten yang identik dengan kumis tebalnya ini merupakan suami dari Kumayah dan Ayah dari Ardiansyah Armawan (20) dan Firman Maulanan (12).

Sebelum menjabat sebagai Pasipers, Kapten Suwanto pernah menjabat sebagai Danramil 0817/17 dan Danramil 0817/10 wilayah Kodim Gresik. Dalam kesehariannya Kapten Suwanto adalah orang yang tegas dan sabar serta sangat peduli terhadap anggota dan bawahannya.

Standar