Polisi Gerebek Rumah Perampok Toko Emas di Tambora

Standar

Polisi Gerebek Rumah Perampok Toko Emas di Tambora

Djamhari – Okezone Browser anda tidak mendukung iFrame

Jum’at, 15 Maret 2013 10:42 wib
Ilustrasi (Foto: okezone)

Ilustrasi (Foto: okezone)

BEKASI – Jajaran Resmob Polda Metro Jaya dan Polresta Bekasi Kota menggerebek rumah di Kampung Babakan RT 02/03, Kel. Mustikasari, Mustikajaya, sekira pukul 04.00 WIB.
 
Rumah yang rata-rata terbuat dari seng itu diketahui dihuni oleh perampok toko emas yang beraksi di kawasan Tambora. Namun, warga mengaku tidak begitu mengenal kedua pelaku.
 
Polisi mengamankan sejumlah barang bukti dari rumah tersebut, di antaranya lima senjata jenis scorpion, 34 butir peluru, 2,5 kg emas, 12 rakitan bom, tiga bom rakitan. Berdasarkan informasi yang dihimpun di lokasi, Jumat (15/3/2013), dua orang yang ditangkap adalah Arman Makmur alias Bram.
 
Seperti diberitakan, toko emas “Terus Jaya” di Jalan Jembatan II Barat, Angke, Tambora, Jakarta Barat, dirampok oleh empat orang bandit bersenjata api, Minggu lalu sekira pukul 10.00 WIB. Lokasi toko emas tersebut berjarak beberapa meter dari Mapolsek Tambora dan Kantor Kecamatan Tambora
 
Menurut anak pemilik toko emas, Paul William (18), dua pelaku menggunakan senjata api, langsung menggasak emas dan uang ratusan juta rupiah. “Pelakunya naik motor, dua orang bawa senjata api memakai jaket dan helm. Mereka membawa emas 1,5 kg serta uang Rp500 juta,” ujarnya kepada wartawan di lokasi kejadian.

DATA BASE

Standar

Gambar

 

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txtno.Text = “”
End Sub

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txtno.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim a, jurusan, prodi, nourut As String
Txttm.Text = “20” & Left(txtnpm.Text, 2)
a = Mid(txtnpm.Text, 3, 1)
If a = “1” Then
jurusan = “sistem informasi”
ElseIf a = “2” Then
jurusan = “tehnik informasi”
ElseIf a = “3” Then
jurusan = “manajemen informasi”
ElseIf a = “4” Then
jurusan = “komputer akuntansi”
End If
Txtjur.Text = jurusan
a = Mid(txtnpm.Text, 4, 2)
If a = “00” Then
prodi = “strata satu”
ElseIf a = “01” Then
prodi = “diploma empat”
ElseIf a = “02” Then
prodi = “diploma tiga”
ElseIf a = “03” Then
prodi = “diploma dua”
End If
Txtprodi.Text = prodi
Txtno.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub Cmdsimpan_Click()
Data1.Recordset.Update
End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

 

 

TUGAS 9 PT PULANG PETANG

Standar

Gambar

Gambar

Private Sub Command1_Click()
Dim a, golongan, kodestatus, status, tahun, jabatan, bagian, gajipokok, tunjangan, totalgaji, asstring
Text6.Text = “” & Left(Text2.Text, 4)
a = Mid(Text2.Text, 5, 1)
If a = “A” Then
golongan = “A”
ElseIf a = “B” Then
golongan = “B”
ElseIf a = “C” Then
golongan = “C”
End If
Text3.Text = golongan
a = Mid(Text2.Text, 7, 1)
If a = “S” Then
kodestatus = “S”
ElseIf a = “M” Then
kodestatus = “M”
ElseIf a = “J” Then
kodestatus = “J”
ElseIf a = “D” Then
kodestatus = “D”
End If
Text4.Text = kodestatus
a = Mid(Text2.Text, 7, 1)
If a = “S” Then
status = “SINGLE”
ElseIf a = “M” Then
status = “MENIKAH”
ElseIf a = “J” Then
status = “JANDA”
ElseIf a = “D” Then
status = “DUDA”
End If
Text5.Text = status
a = Mid(Text2.Text, 9, 1)
If a = “A” Then
jabatan = “MANAGER”
ElseIf a = “B” Then
jabatan = “KA.SEKSI”
ElseIf a = “C” Then
jabatan = “STAFF”
End If
Text7.Text = jabatan
a = Mid(Text2.Text, 11, 3)
If a = “KEU” Then
bagian = “ACCOUNTING”
ElseIf a = “ADM” Then
bagian = “ADMINISTRASI”
ElseIf a = “SDM” Then
bagian = “GENERAL AFFAIR”
ElseIf a = “EDP” Then
bagian = “IT UNIT”
ElseIf a = “SPM” Then
bagian = “SECURITY”
End If
Text8.Text = bagian
a = Mid(Text2.Text, 9, 1)
If a = “A” Then
gajipokok = “4000000”
ElseIf a = “B” Then
gajipokok = “3500000”
ElseIf a = “C” Then
gajipokok = “3000000”
End If
Text9.Text = gajipokok
a = Mid(Text2.Text, 9, 1)
If a = “A” Then
tunjangangaji = “1025000”
ElseIf a = “B” Then
tunjangangaji = “975000”
ElseIf a = “C” Then
tunjangangaji = “92000”
End If
Text10.Text = tunjangangaji
a = Mid(Text2.Text, 9, 1)
Text11.Text = Val(Text10.Text) + Val(Text9.Text)
End Sub

Private Sub Command2_Click()
text1.SetFocus
text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub

Private Sub Command3_Click()
text1.SetFocus
text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
Text8 = “”
Text9 = “”
Text10 = “”
Text11 = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

TUGAS 10 KOMBO

Standar

Gambar

Gambar

Private Sub cmdbatal_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjudul.Text = “”
Txtpengarang.Text = “”
Txttahun.Text = “”
Txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjudul.Text = “”
Txtpengarang.Text = “”
Txttahun.Text = “”
Txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim a As String
a = Left(Cbokode.Text, 1)
If a = “A” Then
Txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf a = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf a = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf a = “E” Then
Txtpenerbit.Text = “Elek Media Komputindo”
ElseIf a = “M” Then
Txtpenerbit.Text = “Maxicom”
End If

a = Mid(Cbokode.Text, 3, 3)
If kode = “SIM” Then
Txtjudul.Text = “Sistem Informasi Manajemen”
Txtpengarang.Text = “Yati Nur Oktavia”
txtharga.Text = “75900”
ElseIf a = “EDP” Then
Txtjudul.Text = “Elektronik Data Proses”
Txtpengarang.Text = “Imam Tarmizi”
txtharga.Text = “62000”
ElseIf a = “MNJ” Then
Txtjudul.Text = “Manajemen”
Txtpengarang.Text = “Valentina Mariana Adiwiyanti”
txtharga.Text = “42000”
ElseIf a = “CRD” Then
Txtjudul.Text = “Corel Draw”
Txtpengarang.Text = “Riyan Suhandi”
txtharga.Text = “453000”
ElseIf a = “RPL” Then
Txtjudul.Text = “Rekayasa Perangkat Lunak”
Txtpengarang.Text = “Sinta umpu singa”
txtharga.Text = “83000”
End If

Txttahun.Text = “20” & Right(Cbokode.Text, 2)

End Sub

Private Sub Form_Load()
Cbokode.AddItem “A-SIM-01”
Cbokode.AddItem “I-EDP-02”
Cbokode.AddItem “S-MNJ-03”
Cbokode.AddItem “E-CRD-04”
Cbokode.AddItem “M-RPL-05”
End Sub

Sampingan

Gambar

Private Sub chkbold_Click()
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub
Private Sub chkitalic_Click()
If chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub

Private Sub chkstrikethru_Click()
If chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunderline_Click()
If chkunderline.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub optblue_Click()
lblteks.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
lblteks.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
lblteks.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
lblteks.ForeColor = vbYellow
End Sub

TUGAS 6