TUGAS 5

5

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

End If

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub txtnama_Change()

End Sub

Iklan
Standar

tugas 4

TUGAS 1       program huruf mutu

huruf mutu int huruf mutu out

 

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

End Sub

 

Private Sub txtquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

 

Private Sub txttugas_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 Cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.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

txthm.Text = HM

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.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

txthm.Text = HM

End If

End Sub

TUGAS 2  program  Golongan Gaji

gji dsen int gji dosen out

Gambar

 

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

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 = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

 

 

Tugas 3 program npm 4 digit

npm 4 int  npm out 4

Private Sub cmdbatal_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

txt1.SetFocus

txt1.Text = “”

txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

txt5.Text = “”

txt6.Text = “”

End Sub

 

Private Sub txt1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txt2.SetFocus

End If

End Sub

 

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txt5.Text = “20” & Left(txt2.Text, 2)

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

If S = “1” Then

txt3.Text = “Sistem Informasi”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txt3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

txt3.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “01” Then

txt4.Text = “Strata Satu”

ElseIf S = “02” Then

txt4.Text = “Diploma Tiga”

ElseIf S = “03” Then

txt4.Text = “Diploma Empat”

ElseIf S = “04” Then

txt4.Text = “Diploma Dua”

End If

 

txt6.Text = Right(txt2.Text, 3)

End Sub

 

 

 

 

 

tugas 4 program npm 3 digit

npm  3 dgt int npm  3 dgt o

Gambar

 

Private Sub cmdbatal_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

txt1.SetFocus

txt1.Text = “”

txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

txt5.Text = “”

txt6.Text = “”

End Sub

 

Private Sub txt1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txt2.SetFocus

End If

End Sub

 

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txt5.Text = “20” & Left(txt2.Text, 2)

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

If S = “1” Then

txt3.Text = “Sistem Informasi”

txt4.Text = “Strata Satu”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

txt4.Text = “Diploma Tiga”

ElseIf S = “3” Then

txt3.Text = “Tehnik Informatika”

txt4.Text = “Diploma Empat”

ElseIf S = “4” Then

txt3.Text = “Manajemen & Komp. Akuntansi”

txt4.Text = “Diploma Dua”

End If

 

txt6.Text = Right(txt2.Text, 3)

End Sub

 

 

 

 

 

 

 

 

 

tugas 5 program  data buku tekt

data buku txt in DAT BUKU OUT TXT

Gambar

 

 

 

Private Sub cmdlagi_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

 

Private Sub Cmdproses_Click()

Dim S As String

txttahunterbit.Text = “20” & Mid(txtkodebuku.Text, 5, 2)

S = Left(txtkodebuku.Text, 3)

If S = “SIM” Then

txtjudulbuku.Text = “Sistem Informasi”

txtpengarang.Text = “Fadiya ulfa”

ElseIf S = “EDP” Then

txtjudulbuku.Text = “elektronik data Procesing”

txtpengarang.Text = “Nurul Agustina”

ElseIf S = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Riyan Hidayat”

ElseIf S = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nurkhotimah”

ElseIf S = “RPL” Then

txtjudulbuku.Text = “Rekaya Perangkat Lunak ”

txtpengarang.Text = “Winda erlianti”

 

 

End If

S = Mid(txtkodebuku.Text, 8, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txtharga.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txtharga.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txtharga.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txtharga.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txtharga.Text = “83000”

End If

 

End Sub

 

tugas 6 (data buku combo)

dta buku cmbo intdata buku cmbo out

gambar

 

 

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

txttt.Text = “20” & Right(cbokode.Text, 2)

s = Mid(cbokode.Text, 3, 3)

If s = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

ElseIf s = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

ElseIf s = “MNJ” Then

txtjb.Text = “Manajemen”

ElseIf s = “CDR” Then

txtjb.Text = “Corel Draw”

ElseIf s = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

End If

s = Left(cbokode.Text, 1)

If s = “A” Then

txtpg.Text = “Yati Nur Oktavia”

txth.Text = “75900”

txtpn.Text = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

txtpg.Text = “Imam Tarmizi”

txth.Text = “620000”

txtpn.Text = “Indah Surabaya”

ElseIf s = “S” Then

txtpg.Text = “Valentina Mariana adiwinanti”

txth.Text = “42000”

txtpn.Text = “Salemba Empat”

ElseIf s = “E” Then

txtpg.Text = “Ryan Suhandi”

txth.Text = “53000”

txtpn.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

txtpg.Text = “Sinta Umpu Singa”

txth.Text = “83000”

txtpn.Text = “Maxicom”

End If

txth.SetFocus

End Sub

 

Private Sub Form_Load()

cbokode.AddItem “A-SIM-01”

cbokode.AddItem “I-EDP-02”

cbokode.AddItem “S-MNJ-03”

cbokode.AddItem “E-CDR-04”

cbokode.AddItem “M-RPL-05”

End Sub

Tugas 7 (PENJUALAN LAPTOP APLLE)

kmpt eple in kmptr ale out

Gambar

 

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

Case “Apple MC968 MacBook Air”

merk = “Apple MacBook Air MC968”

satuan = “9900000”

Case “Apple MC969 MacBook Air”

merk = “Apple MacBook Air MC969”

satuan = “11900000”

Case “Apple MC700 MacBook Pro”

merk = “Apple MacBook Pro MC700”

satuan = “10800000”

Case “Apple MC721 MacBook Pro”

merk = “Apple MacBook Pro MC721”

satuan = “15900000”

Case “Apple MC723 MacBook Pro”

merk = “Apple MacBook Pro MC723”

satuan = “19300000”

Case “Apple MC724 MacBook Pro”

merk = “Apple MacBook Pro MC724”

satuan = “13700000”

Case “Apple MC311 MacBook Pro”

merk = “Apple MacBook Pro MC311”

satuan = “24200000”

Case “Apple MC313 MacBook Pro”

merk = “Apple MacBook Pro MC313”

satuan = “11900000”

Case “Apple MC314 MacBook Pro”

merk = “Apple MacBook Pro MC314”

satuan = “14700000”

Case “Apple MC318 MacBook Pro”

merk = “Apple MacBook Pro MC318”

satuan = “17600000”

Case “Apple MC322 MacBook Pro”

merk = “Apple MacBook Pro MC322”

satuan = “21300000”

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

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”

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

TUGAS  8 program entri data komputer

n3dtk int n3dtk out

Gambar

Private Sub cmdhitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

 

Private Sub Cmdclose_Click()

Unload Me

End Sub

 

Private Sub cboclose_Click()

Unload Me

End Sub

Private Sub cbohitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

 

Private Sub Cbokodekomputer_Click()

Dim jeniskomputer, hargasatuan As String

Select Case cbokodekomputer.Text

Case “P205”

jeniskomputer = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jeniskomputer = “Pentium III 800 Mega Hz”

hargasatuan = “2100000”

Case “P310”

jeniskomputer = “Pentium III 1 Giga Hz”

hargasatuan = “3500000”

Case “P415”

jeniskomputer = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jeniskomputer = “Pentium IV 1.7 Giga Hz”

hargasatuan = “4200000”

Case “P419”

jeniskomputer = “Pentium IV 1.9 Giga Hz”

hargasatuan = “5500000”

End Select

txtjeniskomputer.Text = jeniskomputer

txthargasatuan.Text = hargasatuan

txtjumlahjual.SetFocus

End Sub

 

Private Sub cmdproses_Click()

txthargabayar = Val(txthargapenjualan.Text) – Val(txtdiskon.Text)

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.Text = txthargapenjualan

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

 

Private Sub Form_Load()

cbokodekomputer.AddItem “P205”

cbokodekomputer.AddItem “P308”

cbokodekomputer.AddItem “P310”

cbokodekomputer.AddItem “P415”

cbokodekomputer.AddItem “P417”

cbokodekomputer.AddItem “P419”

End Sub

Private Sub txthargapenjualan_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

End If

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub txthargasatuan_KeyPress(KeyAscii As Integer)

txtjumlahjual.SetFocus

End Sub

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.SetFocus

End If

End Sub

Tugas 9  program kode tiket

DTA TKT INT DTA TKT OUT

Private Sub cmdproses_click()

Dim S As String

S = (txtkt.Text)

If S = “MUT2212” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

txtjt.SetFocus

ElseIf S = “BIM2212” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

txtjt.SetFocus

ElseIf S = “EKO2212” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

txtjt.SetFocus

ElseIf S = “SEN2212” Then

txtht.Text = “75000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

txtjt.SetFocus

End If

End Sub

 

 

 

 

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim A, B, C As Single

A = txtht.Text

B = txtjt.Text

C = B * A

txttp.Text = C

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttp.Text = “”

 

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

Standar

a1

Private Sub Coma_Click()

Texm = Val(Texa) + Val(Texr) – Val(Texi)

Texf = Val(Texm) * 0.1

Texe = Val(Texm) – Val(Texf)

End Sub

Private Sub Comi_Click()

End

End Sub

Private Sub Comr_Click()

Texa = “”

Texr = “”

Texi = “”

Texm = “”

Texf = “”

Texe = “”

End Sub

Private Sub Texa_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texr.SetFocus

End If

End Sub

Private Sub Texi_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texm = Val(Texa) + Val(Texr) – Val(Texi)

Texf = Val(Texm) * 0.1

Texe = Val(Texm) – Val(Texf)

End If

End Sub

Private Sub Texr_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texi.SetFocus

End If

End Sub

a2

Private Sub Chkgb_Click()

If Chkgb.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkgt_Click()

If Chkgt.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkmg_Click()

If Chkmg.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chktb_Click()

If Chktb.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

a3

Private Sub Chkbold_Click(Index As Integer)

If Chkbold.Count = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub Chkitalic_Click(Index As Integer)

If Chkitalic.Count = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub Chkstrikeout_Click(Index As Integer)

If Chkstrikeout.Count = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

Private Sub Chkunderline_Click(Index As Integer)

If Chkunderline.Count = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optblue_Click(Index As Integer)

lbltext.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click(Index As Integer)

lbltext.ForeColor = vbGreen

End Sub

Private Sub Optred_Click(Index As Integer)

lbltext.ForeColor = vbRed

End Sub

Private Sub Optyellow_Click(Index As Integer)

lbltext.ForeColor = vbYellow

End Sub

Standar

WEB 3

NAMA: M.ARI EFFENDI

NPM: 14100067

Alasan Menteri Anies Hentikan Kurikulum 2013

on Dec 08, 2014 at 13:01 WIB

Liputan6.com, Jakarta – Polemik penghentian pelaksanaan Kurikulum 2013, membuat Menteri Kebudayaan dan Pendidikan Dasar dan Menengah Anies Baswedan kembali angkat bicara. Mantan rektor Universitas Paramadina itu menggarisbawahi, siapapun pemerintah nantinya jangan pernah bermain-main dengan penerapan kurikulum.

“‎Untuk pendidikan itu jangan main-main dengan kurikulum. Kurikulum itu bukan sesuatu yang untuk kepentingan menterinya, tapi itu untuk kepentingan siswa dan guru supaya bisa berinteraksi dengan baik,” kata Anies di Istana Merdeka, Jakarta, Senin (8/12/2014).

‎Mengenai kebijakan kementeriannya mencabut penerapan Kurikulum 2013 di 208 ribu sekolah, Anies mengatakan Kurikulum 2013 sebenarnya masih dalam tahap penyempurnaan. Menurut dia, penerapan Kurikulum 2013 terlalu buru-buru, sehingga memicu terjadinya permasalahan di lapangan.

“Bayangkan, tanggal 14 Oktober 2014, seminggu sebelum pelantikan presiden baru, menteri mengeluarkan peraturan No 159, dan peraturan itu meminta agar dievaluasi kesesuaian antara ide dengan desain, antara desain dengan dokumen, antara dokumen dengan implementasi, jadi sisi konsepnya pun belum dievaluasi‎, kok ini sudah diterapkan,” papar Anies.

Sebagai jalan keluar, Anies mengatakan sekolah yang belum siap menerapkan kurikulum baru tersebut‎ akan kembali ke Kurikulum 2006 mulai semester genap nanti.

“Kemudian buku yang sudah dicetak, disimpan di sekolah, kemudian kalau kita lakukan ini dengan baik, nanti Insya Allah ketika kita jalankan lagi bisa kita manfaatkan lagi,” kata Anies.

Pemerintah pusat, dalam hal ini Menteri Pendidikan dan Kebudayaan (Mendikbud) Anies Rasyid Baswedan, memutuskan menghentikan pelaksanaan Kurikulum 2013 sejak akhir pekan kemarin. Penghentian Kurikulum 2013 berlaku di seluruh Indonesia. (Sun/Mut)

Tingginya Produksi Bunga Candu Opium Ancam Kawasan Segitiga Emas

on Dec 08, 2014 at 13:05 WIB

Liputan6.com, Jakarta – Pembudidayaan bunga candu Opium (bahan baku narkotika) di Myanmar dan Lao PDR (People’s Democratic Republic) atau Laos sebagai bagian kawasan Segitiga Emas meningkat hingga 63,800 hektar (ha) pada tahun 2014 dibandingkan tahun lalu 61,200 ha pada tahun 2013. Hal ini menunjukkan adanya peningkatan Opium selama delapan tahun berturut-turut dan panen yang mencapai hampir tiga kali lipat sejak tahun 2006.

Menurut laporan terbaru dari UN Office on Drugs and Crime (UNODC) yang baru diterbitkan pada Senin, (8/12/2014), Myanmar tetap menjadi produsen opium terbesar di Asia Tenggara – dan terbesar kedua setelah Afghanistan.

Dalam laporan UNODC berjudul Southeast Asia Opium Survey 2014 itu disebutkan Myanmar dan Laos dapat diestimasikan bersama-sama memproduksi 762 ton (mt) opium, yang sebagian besar – dengan menggunakan bahan kimia prekursor seperti acetyl anhydride – telah dimurnikan menjadi 76 mt heroin yang kemudian diperdagangkan di negara-negara tetangga dan keluar wilayah Asia Tenggara.

“Perdagangan dua-arah ini, yaitu kimia masuk dan heroin keluar dari Segitiga Emas merupakan tantangan yang signifikan terhadap stabilitas dan penegakan hukum,” kata Jeremy Douglas, Regional Representative untuk UNODC Asia Tenggara dan Pasifik dalam keterangan tertulis yang diterima Liputan6.com di Jakarta.

“Permintaan regional yang tinggi atas heroin memberikan insentif keuntungan bagi kelompok kejahatan transnasional terorganisir. Bukan hanya dengan membawa kimia yang dibutuhkan untuk menghasilkan heroin, tapi lebih khusus dengan memperdagangkan dan mendistribusikan narkotika tersebut ke pasar di China, Asia Tenggara dan bagian dunia lain.”

Provinsi Shan di bagian utara Myanmar yang menjadi tuan rumah atas sejumlah wilayah konflik dan kelompok pemberontak tetap menjadi pusat kegiatan opium dan heroin Myanmar sehingga berkontribusi sebanyak 89% pembudidayaan bunga candu opium di wilayah Segitiga Emas.

Berdasarkan survei UNODC terhadap para petani di desa-desa penanam opium di tiga provinsi bagian utara Laos, yaitu Phongsali, Xiangkhoang dan Houaphan, uang yang dihasilkan dari pembudidayaan bunga candu tersebut sangat esensial untuk penduduk desa yang terancam kekurangan pangan dan kemiskinan.

“Hubungan antara kemiskinan, kurangnya pilihan dan kesempatan ekonomi alternatif dengan pembudidayaan bunga candu sangat jelas,” kata Cheikh Toure, Country Manager UNODC untuk Laos.

“Para petani opium bukan orang jahat.  Mereka adalah orang miskin, yang kekurangan pangan, tinggal jauh dari pusat dan pasar di mana mereka dapat menjual produknya.  Mereka membutuhkan alternatif yang layak dari menanam bunga candu,” imbuh dia.

UNODC juga memperingatkan bahwa bisnis dan perdagangan opium mengancam tujuan, baik integrasi regional dan rencana pembangunan negara.

“Kita perlu bertindak. Segitiga Emas merupakan pusat geografis dari sub-wilayah Besar Mekong (Greater Mekong Sub-region), dan rencana untuk mengembangkan hubungan transportasi dan melonggarkan rintangan perdagangan dan pengendalian perbatasan sudah dilaksanan, termasuk di sekitar wilayah produksi opium.  Jaringan terorganisir yang memperoleh keuntungan dari perdagangan narkotika di Asia Tenggara berada pada posisi yang menguntungkan atas integrasi regional,” tandas Jeremy Douglas. (Ein)

KPK Kembali Periksa Direktur Golden Boutique Hotel

on Dec 08, 2014 at 13:21 WIB

Liputan6.com, Jakarta – Komisi Pemberantasan Korupsi (KPK) kembali menjadwalkan memeriksa Direktur Golden Boutique Hotel, Rachmat Arifin atau Li Su terkait kasus dugaan ‎suap rekomendasi tukar menukar kawasan hutan di Kabupaten Bogor. Li Su yang beberapa waktu lalu juga pernah diperiksa oleh penyidik KPK ini tidak sendiri.

Anak buahnya yang bernama I Putu Aryadnyana selaku pegawai bagian gudang Golden Boutique Hotel ini juga akan dimintai keterangannya sebagai saksi untuk tersangka Kwee Cahyadi Kumala alias Swee Teng.

“Mereka akan diperiksa sebagai saksi untuk tersangka KCK (Kwee Cahyadi Kumala),” ujar Kepala Bagian Pemberitaan dan Publikasi KPK, Priharsa Nugraha di Jakarta, Senin (8/12/2014).

Belum diketahui apa kaitan antara Golden Boutique Hotel dengan perkara Kwee Cahyadi Kumala yang merupakan bos PT Sentul City. Diduga, Li Su yang pernah diperiksa pada 2 Desember lalu ini memiliki hubungan bisnis sebelum Kwee Cahyadi Kumala terjerat kasus di KPK.

Pada kasus ini, Cahyadi Kumala diduga bersama-sama dengan perwakilan PT Bukit Jonggol Asri Yohan Yap memberi atau menjanjikan sesuatu kepada penyelenggara negara terkait pemberian rekomendasi tukar menukar kawasan hutan di Kabupaten Bogor. Dalam surat dakwaan terdakwa Fransiscus Xaverius Yohan Yap, Cahyadi disebut sebagai orang yang menjanjikan uang Rp 5 miliar untuk Bupati Bogor Rachmat Yasin.

Selain perkara suap tadi, penyidik KPK juga menjerat Cahyadi Pasal 21 Undang-Undang Pemberantasan Tindak Pidana Korupsi lantaran diduga berupaya menghilangkan barang bukti dan mempengaruhi saksi-saksi dalam kaitan penanganan perkara tukar menukar kawasan hutan di Kabupaten Bogor. (Riz/Mut)

Dapat 29 Emas, TNI AD Juara Umum Menembak Se-Asia Tenggara

on Dec 08, 2014 at 13:50 WIB

Liputan6.com, Jakarta – Prajurit TNI AD yang mengikuti ASEAN Armed Rifle Meet (AAMR) diterima langsung Kepala Staf Angkatan Darat (KSAD) Jenderal Gatot Nurmantyo di Mabes TNI AD, Jakarta. Kontingen berjumlah 42 prajurit itu melaporkan peroleh 29 emas, 13 perak, 11 perunggu, da 9 trofi yang telah diraih.

Prestasi itu mendapat sambutan baik dari KSAD Jenderal Gatot. Hanya saja, mereka tidak puas dengan prestasi itu. Gatot masih menunggu hasil evaluasi dari perhelatan ini.

“Ada tugasmu yang belum selesai. Segera evaluasi apa unsur utama prestasimu meningkat dan yang belum apa penyebabnya,” kata Gatot saat menerima kontingen di Mabes AD, Jakarta, Senin (8/12/2014).

Prestasi yang diraih kontingen TNI AD memang terbilang meningkat. Pada AARM XXIII di Myanmar, Indonesia mendapat 22 emas, 13 perak, 8 perunggu, dan 8 trofi. Terlihat peningkatan yang cukup baik pada penyelenggataan AARM  XXIV di Vietnam.

“Sebagai atlet evaluasi lebih penting. Jangan puas karena 2015 ada event yang harus disikapi. 2015 Akan diadakan event menembak dalam forum internasional, yaitu International Shooting Sport di Korea Selatan. Selesaikan dulu tugasmu. Baru saya berikan cuti,” lanjut Gatot.

Mantan Panglima Kostrad itu mengatakan, sangat bersyukur dengan apa yang telah diraih prajurit TNI AD saat ini. Terlebih, prestasi itu terus meningkat dari tahun ke tahun.

“Sepantasnya kita bersyukur karena kita bisa mengikuti suatu acara yang sangat bisa membanggakan. Dimana kita menerima kontingen AARM yang telah kembali membawa prestasi gemilang. Saya selaku KSAD, atas nama seluruh prajurit dan keluarga saya ucapkan selamat datang. Kami semua bangga atas prestasimu,” tutup Gatot. (Mut)

BNPB Buka Lowongan untuk Kalangan Profesional

on Dec 08, 2014 at 13:00 WIB

Liputan6.com, Jakarta Badan Nasional Penanganggulangan Bencana (BNPB) membuka lowongan kerja bagi Warga Negara Indonesia terbaik untuk mengabdikan diri menjadi Calon Anggota Unsur Pengarah BNPB yang berasal dari Masyarakat Profesional.

Pendaftaran Calon Anggota Unsur Pengarah BNPB dibuka mulai tanggal 4 sampai 17 Desember 2014. Beberapa persyaratan yang harus dipenuhi para pelamar, di antaranya;

a. Warna Negara Indonesia;
b. Sehat jasmani dan rohani;
c. Berkelakuan baik;
d. Usia serendah-rendahnya 45 (empat puluh lima) tahun dan setinggi-tingginya 60 (enam puluh) tahun pada saat pendaftaran;
e. Memiliki wawasan kebangsaan;
f. Memiliki pengetahuan akademis dan pengalaman dalam penanggulangan bencana;
g. Berpendidikan serendah-rendahnya Sarjana (S 1) dengan pengalaman 10 (sepuluh) tahun dibidangnya;
h. Memiliki integritas tinggi;
i. Non-partisan.

Pendaftaran bisa dilakukan melalui website BNPB dengan cara mengunduh Formulir Pendaftaran, tidak ada surat menyurat lewat pos dalam proses seleksi ini. Lamaran dan persyaratan dikirim kepada Panitia Seleksi melalui email : unsurpengarah@bnpb.go.id dengan melampirkan fotocopy;

1. Kartu Tanda Penduduk
2. Ijazah Pendidikan Terakhir (legalisir)
3. Daftar Riwayat Hidup
4. Surat Keterangan Akreditasi Perguruan Tinggi dari BAN-PT (A/B).

Tertarik untuk mengabdi kepada Bangsa dan Negara? Segera daftarkan diri Anda, lewat situs www.bnpb.co.id dan download Formulir Pendaftaran di sini.

Badan Nasional Penanggulangan Bencana adalah sebuah Lembaga Non-Departemen yang dibentuk berdasarkan Peraturan Presiden No. 8 Tahun 2008. Fungsi utama BNPB adalah mengkoordinasikan perencanaan dan pelaksanaan kegiatan penanganan maupun antisipasi terhadap kondisi bencana maupun kedaruratan.

Takut Diserang Militan, Inggris Tutup Kedutaan Besar di Kairo

on Dec 08, 2014 at 14:04 WIB

Liputan6.com, Kairo – Kedutaan Besar Inggris di Kairo, Mesir ditutup. Alasan yang beredar, karena ada kemungkinan menjadi sasaran serangan para militan setempat.

Kendati demikian, pejabat-pejabat Inggris belum memberikan rincian, soal ancaman atau kapan kedutaan itu akan dibuka kembali.

“Seorang tersangka militan yang baru-baru ini ditangkap oleh pihak berwenang Mesir mengakui adanya rencana menargetkan kedutaan-kedutaan besar asing,” demikian menurut informasi dari yang dimuat Reuters, dikutip Senin (8/12/2014).

Langkah penutupan Kedutaan Besar Inggris di Kairo ini dilakukan, menyusul peringatan Australia hari Sabtu 6 Desember, bahwa teroris mungkin berencana menyerang lokasi-lokasi wisatawan, kantor-kantor pemerintah dan kedutaan di Kairo.

Dilansir dari VOA News, Kedutaan Besar Amerika di Kairo — yang berada di lokasi yang sama dengan Kedutaan Besar Inggris– dilaporkan tetap buka pada Minggu 7 Desember kemarin.

Mesir telah berupaya melawan pemberontak garis keras yang menentang pemerintahan Presiden Abdel Fattah Al Sisi — mantan panglima militer yang menggulingkan Mohammed Morsi tahun lalu dan kemudian terpilih dalam pemilu baru. (Tnt/Ein)

KPK Kembali Periksa Direktur Golden Boutique Hotel

on Dec 08, 2014 at 13:21 WIB

Liputan6.com, Jakarta – Komisi Pemberantasan Korupsi (KPK) kembali menjadwalkan memeriksa Direktur Golden Boutique Hotel, Rachmat Arifin atau Li Su terkait kasus dugaan ‎suap rekomendasi tukar menukar kawasan hutan di Kabupaten Bogor. Li Su yang beberapa waktu lalu juga pernah diperiksa oleh penyidik KPK ini tidak sendiri.

Anak buahnya yang bernama I Putu Aryadnyana selaku pegawai bagian gudang Golden Boutique Hotel ini juga akan dimintai keterangannya sebagai saksi untuk tersangka Kwee Cahyadi Kumala alias Swee Teng.

“Mereka akan diperiksa sebagai saksi untuk tersangka KCK (Kwee Cahyadi Kumala),” ujar Kepala Bagian Pemberitaan dan Publikasi KPK, Priharsa Nugraha di Jakarta, Senin (8/12/2014).

Belum diketahui apa kaitan antara Golden Boutique Hotel dengan perkara Kwee Cahyadi Kumala yang merupakan bos PT Sentul City. Diduga, Li Su yang pernah diperiksa pada 2 Desember lalu ini memiliki hubungan bisnis sebelum Kwee Cahyadi Kumala terjerat kasus di KPK.

Pada kasus ini, Cahyadi Kumala diduga bersama-sama dengan perwakilan PT Bukit Jonggol Asri Yohan Yap memberi atau menjanjikan sesuatu kepada penyelenggara negara terkait pemberian rekomendasi tukar menukar kawasan hutan di Kabupaten Bogor. Dalam surat dakwaan terdakwa Fransiscus Xaverius Yohan Yap, Cahyadi disebut sebagai orang yang menjanjikan uang Rp 5 miliar untuk Bupati Bogor Rachmat Yasin.

Selain perkara suap tadi, penyidik KPK juga menjerat Cahyadi Pasal 21 Undang-Undang Pemberantasan Tindak Pidana Korupsi lantaran diduga berupaya menghilangkan barang bukti dan mempengaruhi saksi-saksi dalam kaitan penanganan perkara tukar menukar kawasan hutan di Kabupaten Bogor. (Riz/Mut)

5 Teknologi yang Mendukung Keselamatan Pengendara

on Dec 08, 2014 at 11:19 WIB

5 Teknologi yang Mendukung Keselamatan Pengendara

Liputan6.com, Jakarta Di jaman modern ini berbagai produsen otomotif tentu melengkapi produksi mereka dengan fitur canggih dan teknologi keselamatan dalam berkendara. Namun, jika pemahaman terhadap teknologi keselamatan ini kurang dipahami tentu dapat mengancam keselamatan pengendara dijalan, terlebih saat menghadapi musim hujan seperti saat ini.

Lalu, teknologi seperti apa yang harus dipahami dan dikuasai para pengendara, khususnya roda empat? Chevrolet sebagai brand mobil terbesar asal Amerika Serikat yang mengedepankan keamanan dan keselamatan setiap pengendara, menyebutkan setidaknya terdapat 5 fitur atau teknologi yang mendukung keselamatan pengendara saat menghadapi musim hujan:

1. Sistem kontrol traksi pada Chevrolet Captiva AWD
Sistem ini akan membantu mobil tetap mencengkeram aspal dan mengurangi selip di jalanan licin.

2. Sensor hujan dan lampu otomotis di mobil Chevrolet
Kedua fitur ini akan memberikan kesempatan kepada pengendara untuk lebih fokus pada kemudi dan situasi sekitar.

3. Sistem suspensi yang handal dari Chevrolet
Sistem suspensi seperti yang terdapat pada Aveo dan Spin juga mampu meningkatkan kendali pengendara yang lebih baik di jalanan basah maupun kering.

4. Fitur wiper control di semua model Chevrolet
Pengemudi dapat menyesuaikan tingkat kecepatan pada wiper di kaca depan dan belakang untuk mendapatkan visibilitas terbaik.

5. Posisi katup pipa udara di mobil Chevrolet
Posisi katup pipa udara yang tinggi memberikan keuntungan bagi pengendara saat melintasi jalanan dengan genangan air yang cukup tinggi dan mencegah air mengalir ke mesin kendaraan.

Usai memahami teknologi dan fungsi setiap fitur, para pengendara mobil juga wajib mengetahui cara pemanfaatan fitur-fitur tersebut demi menjaga keselamatan pengendara dan ketahanan dari mobil itu sendiri.

“Meskipun kini kendaraan sudah didesain dengan cukup modern, pemanfaatan teknologi perlu diperhatikan untuk menjaga keselamatan,” kata Dadan Ramadhani, Customer Care Director, General Motors Indonesia.

Oleh karena keselamatan adalah segala-galanya, maka pengendara perlu memiliki tingkat kewaspadaan tinggi disamping memahami teknologi yang ada. Berikut ini beberapa tips dari Chevrolet, supaya aman dan selamat berkendara di saat musim hujan.

JK: Tak Bayar Pajak Bakal Dicekal Seperti Koruptor

on Dec 08, 2014 at 11:10 WIB

Liputan6.com, Jakarta – Pemerintah menetapkan pendapatan negara dari pajak tidak ada yang hilang sepeser pun. Mereka yang tak membayar pajak dan telat membayar pun akan diperlakukan sama seperti koruptor dan akan dicekal.

“Kalau para koruptor dicekal, maka pembayar pajak yang melebihi waktu tertentu akan harus dicekal juga,” tegas Wakil Presiden Jusuf Kalla atau JK saat membuka Rapat Pimpinan Nasional Kadin 2014 di Hotel Pullman, Central Park, Jakarta Barat, Senin (8/12/2014).

Pemerintah, lanjut JK, akan membuka peluang untuk berbisnis seluas-luasnya termasuk dengan penyederhanaan pemberian izin usaha. Namun sebaliknya, tanggung‎ jawab membayar pajak tak boleh dilupakan.

“Anda boleh berusaha sesuai aturan dan bayar pajak,” tutur dia.

JK mengatakan, bila tak membayar pajak, maka akan menghambat kinerja pemerintah. Selain itu, mereka yang tak membayar pajak juga termasuk mencuri uang rakyat.

“Jangan sampai uang bayar pajak dipakai plesir ke luar negeri. Kalau akhir tahun nggak bayar pajak, tapi berplesir di luar negeri, yang dipakai plesir uang rakyat. Makanya Anda bayar pajak sebelum tahun baru ini, supaya nggak dicekal ke luar negeri. Itu hal yang baik karena negara yang baik bisa laksanakan tugas pemerintahan dengan baik,” tandas JK.

Bank Dunia: Pertumbuhan Ekonomi RI Melambat di 2015

on Dec 08, 2014 at 11:07 WIB

Liputan6.com, Jakarta – Akibat melemahnya pertumbuhan investasi dan ekspor, pertumbuhan ekonomi Indonesia pada tahun depan diperkirakan hanya mencapai angka 5,2 persen. Angka ini jauh di bawah proyeksi Bank Dunia sebelumnya yang dirilis pada Juli 2014 yang sebesar 5,6 persen.

Kepala perwakilan Bank Dunia untuk Indonesia Rodrigo Chaves mengatakan, pertumbuhan ekonomi dunia yang melambat mengakibatkan turunnya harga-harga sejumlah komoditas Indonesia, selain juga memperkecil hadirnya peluang-peluang investasi baru.

Meski demikian dia menyakini bahwa estimasi pertumbuhan yang mengecil ini masih bisa berbalik arah jika investasi mampu melampaui harapan pada 2015.

“Pembelanjaan pasar domestik di Indonesia yang bertahan tinggi terus menopang pertumbuhan,” ujarnya dalam Laporan Perkembangan Triwulan Perekonomian Indonesia oleh Bank Dunia, di Soehanna Hall, The Energy Building, SCBD, Jakarta, Senin (8/12/2014).

Namun menurut Rodrigo, banyak tantangan lain yang harus dihadapi Indonesia. Misalnya sampai akhir Oktober lalu, penyerapan belanja modal (capital expenditure/Capex) pemerintah hanya sebesar 38 persen dari persiapan pendanaan untuk tahun ini.

“Angka ini jauh dibawah pada 2012 dan 2013 pada periode yang sama,” lanjut dia.

Selain itu, defisit neraca berjalan juga akan berkurang meski hanya sedikit, yaitu pada angka US$ 6,8 miliar atau 3,1 persen dari produk domestik bruto (PDB) pada triwulan ketiga tahun ini. Penurunan secara bertahap diperkirakan akan terus berlangsung dan defisit neraca berjalan diperkirakan mencapai 2,8 persen pada 2015.

“Jika Indonesia memperkuat fondasi ekonomi yang lain dan memperkuat iklim investasi, Indonesia dapat mendorong kembali laju pertumbuhan yang lebih tinggi dan lebih pesat,” tandasnya. (Dny/Ndw)

Standar