Tugas VB Data Base

Posted in Uncategorized on Maret 2, 2013 by ekomualip

Eko

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

Txtnama.SetFocus

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Cmdproses_Click()

Dim jurusan, study As String

Dim th, no As Currency

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

Txtth.Text = th

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

If jurusan = “1” Then

jurusan = “Sistem Informasi”

ElseIf jurusan = “2” Then

jurusan = “Manajemen Informatika”

ElseIf jurusan = “3” Then

jurusan = “Teknik Informatika”

ElseIf jurusan = “4” Then

jurusan = “Manajemen & Komp.Akutansi”

End If

Txtjurusan.Text = jurusan

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

If study = “01” Then

study = “Strata Satu”

ElseIf study = “02” Then

study = “Diploma Empat”

ElseIf study = “03” Then

study = “Diploma Tiga”

ElseIf study = “04” Then

study = “Diploma Dua”

End If

Txtstudi.Text = study

no = Right(Txtnpm, 3)

Txtno.Text = no

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Iklan

Tugas VB 4

Posted in Uncategorized on Januari 29, 2013 by ekomualip

1.

EKO1

Private Sub Cmdproses_Click()

Dim P As String

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

P = Left(Txtkbu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

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

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

EKO2

Private Sub Cmdproses_Click()

Dim P As String

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

P = Right(Txtkbu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

P = Left(Txtkbu.Text, 3)

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

EKO3

Private Sub Txtnam_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

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

Dim Gjp, Tnj, Tgj As Currency

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

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

If GL = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf GL = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf GL = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

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

If GL = “S” Then

Ks = “S”

St = “Single”

ElseIf GL = “M” Then

Ks = “M”

St = “Menikah”

ElseIf GL = “J” Then

Ks = “J”

St = “Janda”

ElseIf GL = “D” Then

Ks = “D”

St = “Duda”

End If

 

GL = Right(Txtnik.Text, 3)

If GL = “KEU” Then

Bag = “Accounting”

ElseIf GL = “ADM” Then

Bag = “Administrasi”

ElseIf GL = “SDM” Then

Bag = “General Affair”

ElseIf GL = “EDP” Then

Bag = “IT Unit”

ElseIf GL = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjab.Text = Jbt

Txttnj.Text = Tnj

Txtstat.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkst.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlgi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtkst = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttnj = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdklw_Click()

End

End Sub

4.

EKO4

Private Sub Cmdproses_Click()

Dim P As String

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

P = Left(Txtkbu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

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

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

Tugas VB Pertemuan 3

Posted in Uncategorized on Januari 15, 2013 by ekomualip

1.

eko1

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

Select Case Cbonpm.Text

Case “12100361”

nama = “Eko Mualip”

jurusan = “Sistem Informasi”

Case “12101210”

nama = “Rudiyansah”

jurusan = “Manajemen Informatika”

Case “12100217”

nama = “Didi Sumantri”

jurusan = “Sistem Informasi”

Case “12101219”

nama = “Waryana”

jurusan = “Manajemen Informatika”

Case “12100214”

nama = “Wahyu”

jurusan = “Sisitem Informasi”

End Select

Txtnma.Text = nama

Txtjrs.Text = jurusan.

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100361”

Cbonpm.AddItem “12101210”

Cbonpm.AddItem “12100217”

Cbonpm.AddItem “12101219”

Cbonpm.AddItem “12100214”

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

Private Sub Cmdpros_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtnq.Text)

tugas = Val(Txtnt.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

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

Txtnlk.Text = NilaiAkhir

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

Txthm.Text = HurufMutu

End Sub

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnma = “”

Txtjrs = “”

Txtnq = “”

Txtnt = “”

Txtuts = “”

Txtuas = “”

Txtnlk = “”

Txthm = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

2.

EKO2

Private Sub Optrmrh_Click()

Lblnama.ForeColor = vbRed

End Sub

Private Sub Opthij_Click()

Lblnama.ForeColor = vbGreen

End Sub

Private Sub Chktbl_Click()

Lblnama.FontBold = Chktbl.Value

End Sub

Private Sub Chkmrng_Click()

Lblnama.FontItalic = Chkmrng.Value

End Sub

Private Sub Cmdok_Click()

Lblnama.Caption = Txtnama.Text

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

3.

EKO3

Private Sub Txtnd_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnmpg.SetFocus

End If

End Sub

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

End Sub

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 2000000

Tunjangan = 500000

Case “II”

Gajipokok = 2500000

Tunjangan = 700000

Case “III”

Gajipokok = 3000000

Tunjangan = 900000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgjpk.Text = Gajipokok

Txttnj.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgjbr.Text = Gajibersih – Pajak

Private Sub Cmdlgi_Click()

Txtnd = “”

Txtnmpg = “”

Cbogol = “”

Txtgjpk = “”

Txttnj = “”

Txtpjk = “”

Txtgjbr = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnd = “”

Txtnmpg = “”

Cbogol = “”

Txtgjpk = “”

Txttnj = “”

Txtpjk = “”

Txtgjbr = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

4.

EKO4

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdprs_Click()

Dim St As String

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

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

If St = “1” Then

Txtjrs.Text = “Sisitem Informasi”

ElseIf St = “2” Then

Txtjrs.Text = “Manajemen Informasi”

ElseIf St = “3” Then

Txtjrs.Text = “Komputer Akuntansi”

ElseIf St = “4” Then

Txtjrs.Text = “Tehnik Informatika”

End If

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

If St = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf St = “01” Then

Txtpst.Text = “Diploma Tiga ”

ElseIf St = “02” Then

Txtpst.Text = “Diploma Dua”

ElseIf St = “03” Then

Txtpst.Text = “Diploma Empat”

End If

St = Right(Txtnpm.Text, 3)

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

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthn = “”

Txtnur = “”

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthn = “”

Txtnur = “”

End Sub

Private Sub Cmdout_Click()

End

End Sub

TUGAS PERTEMUAN 2

Posted in Uncategorized on Januari 8, 2013 by ekomualip

1.

eko1

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtn3.SetFocus

End If

End Sub

 

Private Sub Txtn3_KeyPress(KeyAscii As Integer)

Txtn3.Text = Val(txtn1.Text) * Val(txtn2.Text)

End Sub

 

Private Sub CmdPrs_Click()

Txtn3.Text = Val(txtn1.Text) * Val(txtn2.Text)

End Sub

 

Private Sub Cmdbrsh_Click()

txtn1 = “”

txtn2 = “”

Txtn3 = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

.eko2

Private Sub optgreen_Click()

Lblmvb.ForeColor = vbGreen

End Sub

 

Private Sub optblue_Click()

Lblmvb.ForeColor = vbBlue

End Sub

 

Private Sub optred_Click()

Lblmvb.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

Lblmvb.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkitlc_Click()

If Chkitlc.Value = 1 Then

Lblmvb.FontItalic = True

Else

Lblmvb.FontItalic = False

End If

End Sub

 

Private Sub Chkbld_Click()

If Chkbld.Value = 1 Then

Lblmvb.FontBold = True

Else

Lblmvb.FontBold = False

End If

End Sub

 

Private Sub Chkunder_Click()

If Chkunder.Value = 1 Then

Lblmvb.FontUnderline = True

Else

Lblmvb.FontUnderline = False

End If

End Sub

 

Private Sub Chkstrik_Click()

If Chkstrik.Value = 1 Then

Lblmvb.FontStrikethru = True

Else

Lblmvb.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

eko3

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

Txtptg.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgjk.Text = Val(Txtgpk.Text) + Val(Txttjg.Text) – Val(Txtptg.Text)

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

Txtgjb.Text = Val(Txtgjk.Text) – Val(Txtpjk.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgpk = “”

Txttjg = “”

Txtptg = “”

Txtgjk = “”

Txtpjk = “”

Txtgjb = “”

End Sub

4.

eko4

Private Sub Cmdpros_Click()

Txtdis.Text = Val(TxthrgA.Text) * 0.1

TxthrgB.Text = Val(TxthrgA.Text) – Val(Txtdis.Text)

End Sub

 

Private Sub Cmdlg_Click()

TxthrgA = “”

Txtdis = “”

TxthrgB = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

5.eko5

Private Sub Txtbil1_Change()

If KeyAscii = 13 Then

Txtbil2.SetFocus

End If

End Sub

 

Private Sub Cmdbgi_Click()

Txtjml.Text = Val(Txtbil1.Text) / Val(Txtbil2)

End Sub

 

Private Sub Cmdkli_Click()

Txtjml.Text = Val(Txtbil1.Text) * Val(Txtbil2)

End Sub

 

 

Private Sub Cmdplus_Click()

Txtjml.Text = Val(Txtbil1.Text) + Val(Txtbil2.Text)

End Sub

 

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtbil1.Text) – Val(Txtbil2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtbil1 = “”

Txtbil2 = “”

Txtjml = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

 

Pembangunan Puskes di Pagelaran Utara Rampung 80 Persen

Posted in Uncategorized on Desember 25, 2012 by ekomualip

TRIBUNLAMPUNG.CO.ID – Pembangunan puskesmas rawat inap di Kecamatan Pagelaran Utara sudah hampir selesai. Menurut Camat Pagelaran Utara Junaidi, sekitar 20 persen lagi pembangunan puskesmas plus tersebut rampung.

“Puskes rawat inap sudah 80 persen, diperkirakan Februari sudah operasi,” tukas Junaidi kepada Tribun Lampung, Jumat (21/12). Oleh karena itu, dia berharap kepada Pemerintah Kabupaten Pringsewu untuk segera mempersiapkan personilnya.

Kepala Dinas Kesehatan Pringsewu dr Endang Budiati mengatakan, bahwa puskesmas tersebut akan diutamakan untuk melayani persalinan. Oleh karenanya, ada sekitar 10 bidan yang akan ditugaskan di puskesmas rawat inap itu.

Dikatakan Endang, puskes itu akan dikepalai oleh seorang dokter. Selain melayani persalinana, lanjut dia, puskes ini juga melayani pengobatan penyakit seperti diare.

Junaidi, camat Pagelaran Utara menambahkan, di kecamatan hasil pemekaran Kecamatan Pagelaran ini akan didirikan sekolah menengah kejuruan (SMK). “Lokasinya sudah ada seluas 16.480 meter per segi,  di  Giri Harjo, Pekon Fajar Mulya,” tukasnya. Lahan tersebut merupakan hibah dari masyarakat.(Dik)

Pelanggan Nunggak Bayar Listrik hingga Rp 1,8 M

Posted in Uncategorized on Desember 25, 2012 by ekomualip

TRIBUNLAMPUNG.CO.ID- Tunggakan pembayaran listrik PLN ranting Pringsewu mencapai Rp 1,8 miliar. Jumlah tersebut  terhitung hingga November 2012 yang belum dibayarkan oleh konsumen dari Pringsewu dan Pesawaran.

“Pelanggan sepertinya belum sadar akan kewajibannya membayar listrik. Seolah harus ditagih,” tukas Kepala PLN ranting Pringsewu Suharto, Minggu (23/12).

Dia mengungkapkan, bahwa yang menunggak pembayaran tersebut mayoritas adalah pelanggan rumah tangga. Harusnya, lanjut dia, pelanggan berkewajiban membayar pemakaian listrik mulai tanggal 1-20 setiap bulannya.

Tapi, hingga melebihi batas waktu tersebut masih ada yang belum melaksanakan kewajiban membayar tagihan listrik. Bahkan nilai tunggakan sebesar Rp 1,8 miliar itu sudah melebihi batas yang ditargetkan.

Menurut Suharto, idealnya tunggakan itu sebesar 10 persen dari besaran omset, Rp 7 miliar. ” Kalau tunggakannya  sampai Rp 1,8 miliar, berarti sudah diatas 10 persen,” ungkapnya. Karena seharunya, nilai tunggakan hanya berkisar Rp 600 juta dari omset .

Jumlah omset itu, dari jumlah pelanggan  kurang lebih 87.000  pelanggan. Dikatakan Suharto, bahwa pelanggan PLN ranting Pringsewu hingga Kabupaten Pesawaran. Tercatat dari total pelanggan yang menunggak, 50 persen diantaranya dari Kabupaten Pesawaran.(Dik)

Sepulang dari Ramayana Uang Rp 20 Juta Raib di Mobil

Posted in Uncategorized on Desember 25, 2012 by ekomualip

Kotabumi_Utara-20121220-00038

TRIBUNLAMPUNG.CO.ID – Apriwonoaji (39) terpaksa merelakan uang Rp 20 juta dirampok orang tak dikenal, Kamis (20/12) sekitar pukul 16.00 WIB.

Menurut warga Semuli Raya, Abung Semuli ini, peristiwa terjadi saat dia  memarkirkan mobil Toyota Kijang Inova BE 2310 Y di pinggir Jalan Sudirman Kotabumi, tepatnya di depan Ramayana Kotabumi.

Suami dari Ayinawati ini mengatakan, ia ke Ramayana Kotabumi hendak menyusul isteri sepulang belanja. Sebelumnya dia mengambil uang di Bank BNI Cabang Kotabumi, Lampura. “Saya ambil uang Rp 20 juta, baru ke Ramayana,” jelasnya.

Namun, baru sekitar 5 menit hendak keluar dari Ramayana, dirinya terkejut melihat kaca pintu kanan mobil pecah. “Uang yang diletakkan di dashboard pun raib,” katanya. Selain itu, ban mobil bagian kiri pun ikut kempis, diduga dibocorkan oleh pelaku. (Ang)