VB Data Base

Private Sub Txtnama_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

Dim M As String

Txtthn.Text = “20” & Left(Txtnpm.Text, 2)

J = Mid(Txtnpm.Text, 3, 1)

If J = “1” Then

Jur = “Sistem Informasi”

ElseIf J = “2” Then

Jur = “Manajemen Informatika”

ElseIf J = “3” Then

Jur = “Tehnik Informatika”

ElseIf J = “4” Then

Jur = “Manajemen & Komp.Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Prost = “Strata Satu”

ElseIf S = “02” Then

Prost = “Diploma Empat”

ElseIf S = “03” Then

Prost = “Diploma Tiga”

ElseIf S = “04” Then

Prost = “Diploma Dua”

End If

No = Right(Txtnpm.Text, 3)

Txtjur.Text = Jur

Txtprost.Text = Prost

Txtno.Text = No

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

Txtnpm.SetFocus

End Sub

TUGAS VB *4*

1.

Private Sub Cmdprs_Click()

Dim K As String

Txtthn.Text = “20” & Right(Txtkdbk.Text, 2)

K = Left(Txtkdbk.Text, 1)

If K = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pn = “Indah Surabaya”

ElseIf K = “S” Then

Pn = “Salemba Empat”

ElseIf k = “E” Then

Pn = “Elek Media Komputindo”

ElseIf K = “M” Then

Pn = “Maxicom”

End If

K = Mid(Txtkdbk.Text, 3, 3)

If K = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf K = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf K = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf K = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf K = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlg_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

Private Sub Cmdprs_Click()

Dim T As String

Txtthn.Text = “20” & Mid(Txtkdbk.Text, 5, 2)

T = Right(Txtkdbk.Text, 1)

If T = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pn = “Indah Surabaya”

ElseIf T = “S” Then

Pn = “Salemba Empat”

ElseIf T = “E” Then

Pn = “Elek Media Komputindo”

ElseIf T = “M” Then

Pn = “Maxicom”

End If

T= Left(Txtkdbk.Text, 3)

If T = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf T = “EDP” Then

Jbk = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf T = “MNJ” Then

Jbk = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf T = “CDR” Then

Jbk = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf T = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdb.Text = Jbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Private Sub Txtnma_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jbt, Bag, Gol, Ks, St As String

Dim Gjp, Tnj, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

G = Mid(Txtnik.Text, 5, 1)

If G = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf G = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf G = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

K = Mid(Txtnik.Text, 7, 1)

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

ElseIf K = “D” Then

Ks = “D”

St = “Duda”

End If

 

B = Right(Txtnik.Text, 3)

If B = “KEU” Then

Bag = “Accounting”

ElseIf B = “ADM” Then

Bag = “Administrasi”

ElseIf B = “SDM” Then

Bag = “General Affair”

ElseIf B = “EDP” Then

Bag = “IT Unit”

ElseIf B = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjab.Text = Jbt

Txttun.Text = Tnj

Txtstat.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlg_Click()

Txtnma.SetFocus

Txtnma = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnma.SetFocus

Txtnma = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

Private Sub Cmdprs_Click()

Dim T As String

Txtthn.Text = “20” & Right(Txtkdbk.Text, 2)

T = Left(Txtkdbk.Text, 1)

If T = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pn = “Indah Surabaya”

ElseIf T = “S” Then

Pn = “Salemba Empat”

ElseIf T = “E” Then

Pn = “Elek Media Komputindo”

ElseIf T = “M” Then

Pn = “Maxicom”

End If

P = Mid(Txtkdbk.Text, 3, 3)

If P = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jbk = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jbk = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jbk = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdbk.Text = Jbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdkel_Click()

End

End Sub

TUGAS VISUAL BASIC 3

1.

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12201102”

Cbonpm.AddItem “12100207”

Cbonpm.AddItem “12100217”

Cbonpm.AddItem “12201109”

Cbonpm.AddItem “12201265”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12201102”

nama = “Rindi Antika”

jurusan = “Manajemen Informatika”

Case “12100207”

nama = “Linda”

jurusan = “Sistem Informasi”

Case “12100217”

nama = “Eko Mualip”

jurusan = “Sisitem Informasi”

Case “12201109”

nama = “Didi Sumantri”

jurusan = “Manajemen Informatika”

Case “12201265”

nama = “Lilik S”

jurusan = “Manajemen Informatika”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan

Txtnqu.SetFocus

End Sub

 

 

Private Sub Txtnqu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtntgs.SetFocus

End If

End Sub

 

Private Sub Txtntgs_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

 

Private Sub Cmdproses_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtnqu.Text)

tugas = Val(Txtntgs.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtnla.Text = NilaiAkhir

 

Select Case Txtnla.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is <50

HurufMutu = “E”

End Select

Txthrfm.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtnqu = “”

Txtntgs = “”

Txtuts = “”

Txtuas = “”

Txtnla = “”

Txthrfm = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

Private Sub Optmrh_Click()

Lbljudul.ForeColor = vbRed

End Sub

 

Private Sub Opthj_Click()

Lbljudul.ForeColor = vbGreen

End Sub

 

Private Sub Chkmrg_Click()

Lbljudul.FontItalic = Chkmrg.Value

End Sub

 

Private Sub Chktbl_Click()

Lbljudul.FontBold = Chktbl.Value

End Sub

 

Private Sub Cmdok_Click()

Lbljudul.Caption = Txtnma.Text

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpg.SetFocus

End If

End Sub

 

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

Cbogol.AddItem “IV”

End Sub

 

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Total As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 1500000

Tunjangan = 200000

Case “II”

Gajipokok = 2000000

Tunjangan = 400000

 

Case “III”

Gajipokok = 2500000

Tunjangan = 600000

Case “IV”

Gajipokok = 3000000

Tunjangan = 800000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Total = Gajipokok + Tunjangan

Pajak = Total * 0.1

Txtgp.Text = Gajipokok

Txttj.Text = Tunjangan

Txtpj.Text = Pajak

Txttl.Text = Total – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgp = “”

Txttj = “”

Txtpj = “”

Txttl = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgp = “”

Txttj = “”

Txtpj = “”

Txttl = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Private Sub Cmdproses_Click()

Dim S As String

Txtthnm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjrsn.Text = “Sisitem Informasi”

ElseIf S = “2” Then

Txtjrsn.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjrsn.Text = “Komputer Akuntansi Manajemen”

ElseIf S = “4” Then

Txtjrsn.Text = “Tehnik Informatika”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf S = “01” Then

Txtpst.Text = “Diploma Tiga”

ElseIf S = “02” Then

Txtpst.Text = “Diploma Dua”

ElseIf S = “03” Then

Txtpst.Text = “Diploma Empat”

End If

S = Right(Txtnpm.Text, 3)

Txtrut.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Cmdlgi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrsn = “”

Txtpst = “”

Txtthnm = “”

Txtrut = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrsn = “”

Txtpst = “”

Txtthnm = “”

Txtrut = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

TUGAS VISUAL BASIC

Private Sub txtbl1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtbl2.SetFocus

End If

End Sub

Private Sub txtbl2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtbl3.SetFocus

End If

End Sub

Private Sub Txtbl3_KeyPress(KeyAscii As Integer)

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

Private Sub CmdPros_Click()

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

Private Sub Cmddel_Click()

Txtbl1 = “”

Txtbl2 = “”

Txtbl3 = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

2.

Private Sub Cmdpros_Click()

Txtdsk.Text = Val(Txthrg1.Text) * 0.1

Txthrg2.Text = Val(Txthrg1.Text) – Val(Txtdsk.Text)

End Sub

Private Sub Cmdlgi_Click()

Txthrg1 = “”

Txtdsk = “”

Txthrg2 = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

3.

Private Sub Txtnil1_Change()

If KeyAscii = 13 Then

Txtnil2.SetFocus

End If

End Sub

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtnil1.Text) / Val(Txtnil2)

End Sub

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtnil1.Text) * Val(Txtnil2)

End Sub

Private Sub Cmdples_Click()

Txtjml.Text = Val(Txtnil1.Text) + Val(Txtnil2.Text)

End Sub

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtnil1.Text) – Val(Txtnil2.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtnil2 = “”

Txtjml = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

4.

Private Sub optgrn_Click()

Lbltema.ForeColor = vbGreen

End Sub

Private Sub optblu_Click()

Lbltema.ForeColor = vbBlue

End Sub

Private Sub optred_Click()

Lbltema.ForeColor = vbRed

End Sub

Private Sub Optyel_Click()

Lbltema.ForeColor = vbYellow

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltema.FontItalic = True

Else

Lbltema.FontItalic = False

End If

End Sub

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltema.FontBold = True

Else

Lbltema.FontBold = False

End If

End Sub

Private Sub Chkundr_Click()

If Chkundr.Value = 1 Then

Lbltema.FontUnderline = True

Else

Lbltema.FontUnderline = False

End If

End Sub

Private Sub Chkstrike_Click()

If Chkstrike.Value = 1 Then

Lbltema.FontStrikethru = True

Else

Lbltema.FontStrikethru = False

End If

End Sub

Private Sub Cmdklr_Click()

End

End Sub

5.

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttjg.SetFocus

End If

End Sub

Private Sub Txttjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpot.SetFocus

End If

End Sub

Private Sub Cmdpros_Click()

Txtgktr.Text = Val(Txtgp.Text) + Val(Txttjg.Text) – Val(Txtpot.Text)

Txtpjk.Text = Val(Txtgktr.Text) * 0.1

Txtgjbr.Text = Val(Txtgktr.Text) – Val(Txtpjk.Text)

End Sub

Private Sub Cmdlg_Click()

Txtgp = “”

Txttjg = “”

Txtpot = “”

Txtgktr = “”

Txtpjk = “”

Txtgjbr= “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

Jokowi: Kalau Ada Banjir, Lurahnya Keduluan Saya Datang, Awas!

Jakarta – Lagi-lagi Gubernur DKI Jakarta Joko Widodo mengkritik keras kinerja jajarannya yang dinilai lamban merespons banjir di sejumlah wilayah DKI saat hujan deras melanda beberapa waktu lalu. Di hadapan jajaran pejabat wali kota, sudin, camat, dan lurah se-Jakarta Selatan, Jokowi mewanti-wanti jajarannya agar merespon lebih cekatan jika banjir terjadi lagi.

“Kalau misalnya ada banjir, kalau saya datang lurahnya keduluan saya, awas!” ujar Jokowi dalam sambutannya dihadapan pejabat se-Jaksel di kantor Wali Kota Jakarta Selatan, Jalan Prapanca Raya, Jumat (28/12/2012).

Jokowi mengatakan saat ini dengan zaman yang berubah cepat, jangan sampai berada pada rutinitas harian yang monoton.

“Kita bisa ditinggal zaman. Saya harap, cara bergaul kita yang dulu eksklusif dan vertikal itu harus berubah. Sekarang zamannya demokrasi, horizontal, inklusif. Pak Lurah jangan di kantor saja. Tengok di kampung, lihat masalah yang ada,” cetusnya.

“Jangan sampai ada masalah tidak beres di bawahnya. Kemarin ada genangan di HI. Pertama saya diam. Pikiran saya, dari dinas yang ada itu sudah bergerak. Dari dinas PU urusan air, Dishub masalah kemacetan. Tapi saya tunggu tidak ada,” tuturnya.

Menurut mantan wali kota Solo ini, respon lamban jajarannya akan membentuk persepsi publik jika Pemprov DKI Jakarta tidak mampu mengatasi persoalan.

“Sehingga persepsi masyarakat bilang kita ini diam saja. Banyak yang mencaci-maki kita. Percuma kita kalau kita bekerja bertahun-tahun tapi hancur dalam dua hari karena salah persepsi. Setiap ada masalah, turun! Jangan keduluan saya!” tegas Jokowi.

10 Aplikasi Android Terbaik Versi Google di 2012

Jakarta – Google baru saja merilis daftar aplikasi yang dianggap sebagai yang terbaik untuk Android sepanjang tahun 2012.

Beberapa di antaranya memang baru diluncurkan di 2012, tapi ada juga yang dinilai melakukan update besar-besaran tahun ini.

Ada beberapa faktor yang menjadi penilaian Google, salah satunya soal experience pengguna saat dijajal di ponsel ataupun pada tablet PC. Apilikasi yang dianggap terbaik juga harus tersedia untuk berbagai jenis perangkat Android.

Nah, berikut 10 aplikasi Android terbaik versi Google yang dikutip detikINET dari Play Store, Jumat (28/12/2012).

Mobil Dinas Jokowi Dilelang Rp 24 Jutaan

OTOSIA.COM – Mobil dinas mantan Wali Kota Solo Jokowi tahun 2005, KIA Sedona buatan tahun 2004 akan segera dilelang oleh Pemerintah Kota (Pemkot) Solo. Menurut rencana, mobil dinas kedua Jokowi tersebut akan ditawarkan dengan harga cukup murah, yakni Rp 24,8 juta dengan nilai jaminan Rp 6 juta.

KIA Sedona

Wali Kota Solo FX Hadi Rudyatmo (Rudy) mengatakan, mobil KIA Sedona dilelang karena dianggap sudah tua dan tak efisien untuk kegiatan operasional kedinasan.

KIA Sedona

Sekretaris Daerah (Sekda) Pemkot Solo, Budi Suharto mengakui bahwa akan melelang mobil dinas wali kota berjenis KIA Sedona. “Ada bekas mobil wali kota yang akan dilelang. Jenisnya KIA Sedona,” katanya.

KIA Sedona

Mobil Dinas KIA Sedona bernomor polisi AD 45 A, yang dipakai Jokowi dari tahun 2005 masuk dalam daftar mobil dan sepeda motor dinas yang bakal dihapuskan dari neraca aset Pemkot Solo.

KIA Sedona

Mobil dengan tipe serupa saat ini pada kisaran harga Rp 95-130 jutaan.

Hatta: Penyerapan Belanja Modal Butuh Pembenahan

Jakarta (ANTARA) – Menteri Koordinator Bidang Perekonomian Hatta Rajasa mengatakan penyerapan belanja modal yang baru mencapai 72 persen mendekati akhir tahun, membutuhkan pembenahan agar kualitas pencairan anggaran pada tahun mendatang dapat lebih baik.

“Timing-nya masih tidak begitu baik, mestinya dari kuartal satu hingga empat itu secara proposional terbelanjakan sehingga memberikan momentum yang baik,” katanya di Jakarta, Kamis .

Hatta mengatakan ada beberapa hal yang perlu diperbaiki agar kualitas penyerapan belanja modal dapat lebih baik, salah satunya adalah Kementerian/Lembaga wajib menyiapkan perencanaan proyek dengan lebih matang.

“Proyek harus betul-betul siap, karena banyak sekali persoalan akibat proyek tidak siap, lahan tidak siap. Ini tidak boleh terjadi lagi,” ujarnya.

Ia mengharapkan ada proses pengadaan barang dan jasa serta pencairan anggaran yang lebih mudah serta berbasis pada akuntabilitas sehingga mempermudah proses penyerapan dan tetap taat asas.

“Caranya membuat proses tender lebih simple tapi akuntabilitasnya ada, misalkan apabila ada protes jangan sampai berlarut-larut sehingga eksekusinya cepat. Selain itu, melakukan penyerapan jangan bertele-tele, mungkin kita harus melakukan perbaikan di aturan pengadaan barang,” ujarnya.

Berdasarkan data Kementerian Keuangan, per 21 Desember 2012, realisasi belanja modal baru mencapai Rp126,7 triliun atau 72 persen dari pagu APBN-Perubahan sebesar Rp176,1 triliun.

Sedangkan terkait penyerapan belanja negara secara keseluruhan, Hatta optimis pada akhir tahun realisasi dapat mencapai 96 persen, apalagi belanja subsidi telah melebihi pagu karena konsumsi Bahan Bakar Minyak (BBM) melebihi kuota.

“Itu akan 96 persen. Jangan lupa, kita juga dihantam subsidi BBM yang sudah mencapai sekian triliun. Itu akan menggenjot kenaikan belanja, walau kita sayangkan kenapa belanjanya ke subsidi,” katanya.

Ia mengharapkan kualitas penyerapan belanja negara dapat membaik pada tahun berikutnya, karena dapat berdampak untuk menyumbang pertumbuhan ekonomi nasional yang ditargetkan diatas enam persen.

“Belanja APBN kita seharusnya jauh lebih baik lagi sehingga memberikan kontribusi pada pertumbuhan ekonomi. Kalau kita bisa lebih tepat waktu dan tepat sasaran, itu bisa menambah (pertumbuhan) 0,2 persen-0,3 persen,” ujar Hatta.

Pada periode yang sama, penyerapan belanja negara secara keseluruhan telah mencapai Rp1.385,9 triliun atau 89,5 persen dari pagu dalam APBN-Perubahan sebesar Rp1.548,3 triliun

Korsel Pangkas Prospek Pertumbuhan untuk 2012 dan 2013 AFP

Seoul (AFP/ANTARA) – Pemerintah Korea Selatan pada Kamis memangkas prospek pertumbuhan negara untuk 2012 dan 2013, akibat krisis utang zona euro dan kesengsaraan fiskal Amerika Serikat yang terus memperkecil permintaan global.

 

Dalam prospek ekonomi dua tahunan, kementerian keuangan merevisi perkiraan pertumbuhan sebelumnya sebesar 4,0 persen pada 2013 menjadi 3,0 persen, dan perkiraan 2012 dari 3,3 persen menjadi 2,1 persen.

 

“Perekonomian terus melambat… karena permintaan global terseret oleh krisis utang zona euro yang berkepanjangan dan ketidakpastian dalam jangka lama mengurangi sentimen,” kata kementerian itu dalam sebuah pernyataan.

 

Pertumbuhan negara dengan perekonomian terbesar keempat di Asia itu akan terus dibatasi pada semester pertama 2013, namun akan “sedikit meningkat” di semester kedua saat pasar utamanya diperkirakan akan menunjukkan tanda-tanda perbaikan, tambahnya.

 

Ekspor menyumbang sekitar setengah dari perekonomian Korea Selatan dan baru-baru ini dipukul dengan perlambatan umum di sejumlah negara berkembang.

 

Namun kementerian memprediksikan pengiriman mobil-mobil ke luar negeri, perangkat seluler dan produk serta jasa lainnya akan meningkat 4,3 persen tahun depan setelah menyusut 1,3 persen pada 2012.

 

Perkiraan tersebut sejalan dengan perkiraan Organisasi Perdagangan Dunia bahwa perdagangan global akan berkembang 4,5 persen tahun depan dari 2,5 persen pada 2012.(kn/ik)

Presiden SBY apresiasi buku biografi Taufiq Kiemas

 

0

 

 

Presiden Susilo Bambang Yudhoyono (SBY) mengapresiasi buku biografi yang diberikan Ketua Majelis Permusyawaratan Rakyat (MPR) Taufiq Kiemas. Buku itu menceritakan perjalanan hidup Taufiq dari masa muda hingga menjabat sebagai ketua MPR.

“Ya, beliau sangat apresiasi, ucapkan syukur terimakasih sudah datang, tentu saja berharap acara tanggal 31 Desember berjalan dengan baik,” kata putri Taufiq Kiemas, Puan Maharani, yang ikut mendampingi ayahnya di Kantor Presiden, Jakarta, Rabu (26/12).

Terkait peluncuran buku yang akan dilaksanakan tepat pada hari ulang tahun ayahnya, Puan mengaku tidak mengundang SBY maupun Wakil Presiden Boediono ke acara tersebut. Sebab, acara itu terbatas, sehingga tidak mengundang banyak pejabat.

“Kedatangan ini hanya untuk serahkan buku, karena kami tidak undang pak presiden maupun wakil presiden. Ini acara keluarga, jadi terbatas,” ungkapnya.

Sebelumnya, memasuki usia 70 tahun, Taufiq membuat buku biografi yang mengisahkan perjalanan hidupnya hingga kini. Dalam buku bertajuk “Gelora Kebangsaan Tak Kunjung Padam” itu berisi seluruh kisahnya.

Usai dicetak, Taufiq memberikan dua eksemplar bukunya kepada SBY dan Boediono. Wapres terlebih dahulu mendapat kesempatan menerima langsung di Kantor Wapres, pagi tadi. Dilanjutkan SBY pada siang hari sekitar pukul 14.00 WIB.