Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnpm.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjur.Text = “sistem informasi”

ElseIf s = “2” Then

txtjur.Text = “manajemen informatika”

ElseIf s = “3” Then

txtjur.Text = “m.informatika dan akuntansi”

End If

s = Mid(txtnpm.Text, 4, 2)

If s = “00” Then

txtprodi.Text = “strata satu”

ElseIf s = “01” Then

txtprodi.Text = “diploma tiga”

End If

txttm.Text = “20” & Left(txtnpm, 2)

txtnu.Text = Right(txtnpm, 3)

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

Gambar

Private Sub cbokode_Click()
Dim m, hrg As String
Select Case cbokode.Text
Case “Apple MC965 Macbook Air”
m = “Apple Macbook Air MC965”
hrg = “12800000”
Case “Apple MC966 Macbook Air”
m = “Apple Macbook Air MC965”
hrg = “15800000”
Case “Apple MC968 Macbook Air”
m = “Apple Macbook Air MC968”
hrg = “9900000”
Case “Apple MC969 Macbook Air”
m = “Apple Macbook Air MC969”
hrg = “11900000”
Case “Apple MC700 Macbook Pro”
m = “Apple Macbook Pro MC700”
hrg = “10800000”
Case “Apple MC721 Macbook Pro”
m = “Apple Macbook Pro MC721”
hrg = “15900000”
Case “Apple MC723 Macbook Pro”
m = “Apple Macbook Pro MC723”
hrg = “19300000”
Case “Apple MC311 Macbook Pro”
m = “Apple Macbook Pro MC311”
hrg = “24200000”
Case “Apple MC313 Macbook Pro”
m = “Apple Macbook Pro MC313”
hrg = “11900000”
Case “Apple MC314 Macbook Pro”
m = “Apple Macbook Pro MC314”
hrg = “14700000”
Case “Apple  MC318 Macbook Pro”
m = “Apple Macbook Pro MC318”
hrg = “17600000”
Case “Apple MC322 Macbook Pro”
m = “Apple Macbook Pro MC322”
hrg = “21300000”
Case “Apple  MC965 Macbook Pro”
m = “Apple Macbook Pro MC965”
hrg = “12800000”
Case “Apple  MC966 Macbook Pro”
m = “Apple Macbook Pro MC966”
hrg = “15800000”
End Select
txtmerk.Text = m
txths.Text = hrg
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = (0.15) * Val(txthp)
Case Is > 135000000
txtdis.Text = (0.1) * Val(txthp)
Case Is > 130000000
txtdis.Text = (0.5) * Val(txthp)
Case Is > 125000000
txtdis.Text = (0.2) * Val(txthp)
End Select
txttb.Text = Val(txthp) – Val(txtdis)
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 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
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths) * Val(txtjj)
End If
End Sub

NAMA : Ida Riantika
NPM : 13100058
Kelas : Blogger 2

Aplikasi golongan dan Gaji
IDA GAJI
Private Sub Command1_Click()
Dim NIK As String
NIK = Mid(Text11.Text, 5, 1)
If NIK = “A” Then
Text1.Text = “A”
Text5.Text = “MANAJER”
Text7.Text = “4000000”
Text8.Text = “1025000”
ElseIf NIK = “B” Then
Text1.Text = “B”
Text5.Text = “KA. SEKSI”
Text7.Text = “3500000”
Text8.Text = “975000”
ElseIf NIK = “C” Then
Text1.Text = “C”
Text5.Text = “STAFF”
Text7.Text = “3000000”
Text8.Text = “925000”
End If
Text4.Text = Left(Text11.Text, 4)
NIK = Mid(Text11.Text, 7, 1)
If NIK = “S” Then
Text2.Text = “S”
Text3.Text = “SINGLE”
ElseIf NIK = “M” Then
Text2.Text = “M”
Text3.Text = “MENIKAH”
ElseIf NIK = “J” Then
Text2.Text = “J”
Text3.Text = “JANDA”
ElseIf NIK = “D” Then
Text2.Text = “D”
Text3.Text = “DUDA”
End If
Text6.Text = Right(Text11.Text, 3)
Text9.Text = Val(Text7.Text) + Val(Text8.Text)

End Sub

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

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

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub

APLIKASI PENJUALAN TIKET KERETA API
IDA KERETA
Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttp.Text = “”
txtkt.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim KODE As String
KODE = Left(txtkt.Text, 3)
If KODE = “BIM” Then
txtht = “50000”
txtjk = “BIMA”
txtjb = “16.00”
ElseIf KODE = “EKO” Then
txtht = “35000”
txtjk = “EKONOMI”
txtjb = “19.00”
ElseIf KODE = “EKO” Then
txtht = “35000”
txtjk = “EKONOMI”
txtjb = “19.00”
ElseIf KODE = “MUT” Then
txtht = “23000”
txtjk = “MUTIARA”
txtjb = “17.00”
ElseIf KODE = “SEN” Then
txtht = “15.000”
txtjk = “SENJA”
txtjb = “20.00”
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If
End Sub

Nama : Ida Riantika
NPM : 13100058

Aplikasi Font Style
IDA2
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True

Else
Label1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True

Else
Label1.FontItalic = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbBlue
End Sub

APLIKASI PERHITUNGAN GAJI
IDA3
Private Sub Combo1_CLICK()
Select Case Combo1.Text
Case Is = “I”
Text1.Text = “2500000”
Text2.Text = “1000000”
Text3.Text = “500000”
Text5.Text = (Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)) * 0.1
Text6.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text) – Val(Text5.Text)
Case Is = “II”
Text1.Text = “3000000”
Text2.Text = “1500000”
Text3.Text = “750000”
Text5.Text = (Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)) * 0.1
Text6.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text5.Text)
Case Is = “III”
Text1.Text = “4000000”
Text2.Text = “1750000”
Text3.Text = “1000000”
Text5.Text = (Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)) * 0.1
Text6.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text5.Text)
End Select
End Sub

Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”

End Sub

Aplikasi Pendataan Jurusan
IDA4
Private Sub Command1_Click()
Dim a As String
Text5.Text = “20” & Left(Text2.Text, 2)
Text6.Text = Right(Text2.Text, 3)
a = Mid(Text2.Text, 3, 1)
If a = “1” Then
Text3.Text = “Sistem Informasi”
Text4.Text = “Strata Satu”
ElseIf a = “2” Then
Text3.Text = “Manajemen Informatika”
Text4.Text = “Diploma Tiga”
End If

End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
TEXT7.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

ENTRI PENJUALAN KOMPUTER

IDA1
Private Sub Combo1_Click()
Select Case Combo1.Text
Case “P205”
Text1.Text = “Pentium II 500 Mega Hz”
Text2.Text = “1500000”
Case “P308”
Text1.Text = “Pentium III 800 Mega Hz”
Text2.Text = “2100000”
Case “P310”
Text1.Text = “Pentium III 1.0 Giga Hz”
Text2.Text = “3500000”
Case “P415”
Text1.Text = “Pentium IV 1.5 Giga Hz”
Text2.Text = “4000000”
Case “P417”
Text1.Text = “Pentium IV 1.7 Giga Hz”
Text2.Text = “4200000”
Case “P310”
Text1.Text = “Pentium IV 1.9 Giga Hz”
Text2.Text = “5500000”
End Select
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
Select Case Text4.Text
Case Is > “30000000”
Text5.Text = Val(Text4.Text) * 0.15
Case Is > “25000000”
Text5.Text = Val(Text4.Text) * 0.1
Case Is > “20000000”
Text5.Text = Val(Text4.Text) * 0.05
Case Is > “15000000”
Text5.Text = Val(Text4.Text) * 0.02
End Select
Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Combo1.SetFocus

End Sub

Private Sub Command3_Click()
Unload Me
End Sub

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

 

NAMA            : IDA RIANTIKA

NPM               : 13100058

 

 

PERKALIAN DUA BILANGAN

1

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

 

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

PROGRAM KALKULATOR

2

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

End Sub

 

Private Sub Command2_Click()

Text4.Text = Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text)

 

End Sub

 

Private Sub Command3_Click()

Text4.Text = Val(Text1.Text) / Val(Text2.Text) / Val(Text3.Text)

 

End Sub

 

Private Sub Command4_Click()

Text4.Text = Val(Text1.Text) – Val(Text2.Text) – Val(Text3.Text)

 

End Sub

 

Private Sub Command5_Click()

Unload Me

End Sub

 

Private Sub Command6_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command7_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text1.SetFocus

 

End Sub

 

Private Sub Form_Load()

 

End Sub

 

 

 

 

PROGRAM FONT STYLE

3

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else

Label1.FontBold = False

End If

End Sub

 

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

 

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontItalic = True

Else

Label1.FontItalic = False

End If

End Sub

 

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

 

Private Sub Command1_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub Option1_Click()

Label1.ForeColor = vbRed

End Sub

 

Private Sub Option2_Click()

Label1.ForeColor = vbBlue

End Sub

 

Private Sub Option3_Click()

Label1.ForeColor = vbGreen

End Sub

 

Private Sub Option4_Click()

Label1.ForeColor = vbyellow

End Sub

 

 

 

 

DISKON

4

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

 

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.SetFocus

 

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub Text2_Click()

Text2.Text = (Val(Text1.Text) * (0.1))

End Sub

 

 

APLIKASI GAJI

5

Private Sub Command1_Click()

Text2.Text = Val(Text1.Text) * 0.5

 

Text3.Text = Val(Text1.Text) * 0.1

 

Text4.Text = (Val(Text1.Text) + Val(Text2.Text)) – Val(Text3.Text)

 

Text5.Text = Val(Text4.Text) * 0.1

 

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

 

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text1.SetFocus

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Kebakaran Landa Belasan Ruko di Surabaya

Senin, 4 November 2013 13:05 WIB

Surabaya, (tvOne)

Kebakaran melanda belasan ruko di komplek ruko Pasifik Megah, jalan raya Dupak, Surabaya, Jawa Timur. Api menyambar dengan cepat, karena kebanyakan barang berasal dari bahan plastik dan karet yang mudah terbakar.

 

Sumber : http://video.tvonenews.tv/arsip/view/76435/2013/11/04/kebakaran_landa_belasan_ruko_di_surabaya.tvOne

Putra Perwira Polisi Tabrak Puluhan Siswa di Halaman Sekolah

Senin, 4 November 2013 13:06 WIB

Sidoarjo, (tvOne)

Seorang putra perwira polisi diduda dengan sengaja menabrak puluhan siswa sm di halaman sekolah mereka, akibatnya puluhan siswa mengalami luka ringan serta satu orang mengalami kritis dan dirawat di rumah sakit.

 

Sumber : http://video.tvonenews.tv/arsip/view/76436/2013/11/04/putra_perwira_polisi_tabrak_puluhan_siswa_di_halaman_sekolah.tvOne

PRK DUN Sungai Limau: Kes penyokong Pas tumbuk wanita disiasat

 

 

YAN 4 Nov. – Polis Kedah mengesahkan menerima laporan kes berhubung Ketua Wanita UMNO cawangan Bandar Baru Sentul (1C), Norsidah Abu Bakar yang didakwa ditumbuk penyokong Pas ketika merayu undi di hadapan Sekolah Kebangsaan Ulu Sedaka di sini hari ini.

Ketua Polis Kedah, Datuk Ahmad Ibrahim berkata, polis telah menerima laporan yang dibuat Ketua Wanita UMNO Bahagian Seputeh, Datuk Azizah Abdul Samad dan mangsa, pada pukul 11 pagi ini.

“Setakat ini tiada tangkapan dibuat dan polis akan menyiasat kes itu mengikut Seksyen 354 kerana menyerang atau menggunakan kekerasan jenayah kepada seseorang dengan niat hendak mencabul kehormatan,” katanya pada sidang berita di Ibu Pejabat Polis Daerah Yan di sini hari ini.

“Kejadian berlaku kira-kira pukul 8.45 pagi tadi di mana wanita itu ditumbuk di bahagian muka. Kita sedang usaha kesan siapa yang melakukan perkara ini dan wanita itu telah dirawat sebagai pesakit luar di Hospital Yan,” katanya.

Ahmad meminta penyokong kedua-dua parti agar mematuhi arahan polis dan nasihat petugas Suruhanjaya Pilihan Raya (SPR) bagi memastikan proses pengundian Pilihan Raya Kecil (PRK) Dewan Undangan Negeri (DUN) Sungai Limau berjalan lancar.

“Polis akan sentiasa bantu SPR agar mereka tidak dikasari mana-mana penyokong semasa menjalankan tugas. Polis sedaya upaya sentiasa pastikan keadaan terkawal di kesemua 17 pusat pengundian,” katanya.

Sementara itu, Norsidah, 50, yang juga anggota Jawatankuasa Wanita Bahagian Batu berkata, beliau bersama perayu undi Barisan Nasioanl (BN) lain yang tiba lebih awal mengambil tempat di kawasan berhadapan sekolah itu.

Mereka kemudiannya didatangi sekumpulan lelaki dari Pas yang menyuruh mereka beredar dengan alasan tempat berkenaan milik mereka, katanya.

“Disebabkan keengganan kami (untuk beredar setelah didesak oleh kumpulan lelaki itu), maka mereka bertindak kasar hingga polis terpaksa mententeramkan keadaan.

“Tiba-tiba seorang lelaki berusia 30an menumbuk bahagian mata saya dengan tangannya yang dibaluti bendera Pas. Akibat tumbukan kuat itu, saya terus rebah dan hampir pitam,” katanya.

Beliau kemudiannya dibawa untuk menerima rawatan di Klinik Kesihatan Ulu Sedaka berhadapan sekolah berkenaan sebelum dikejarkan ke Hospital Yan untuk menerima rawatan sebagai pesakit luar.

“Doktor menyuntik ubat tahan sakit dan menasihatkan saya supaya kembali ke hospital jika mata saya masih berdenyut dan sakit dalam masa 24 jam ini,” katanya yang telah sembilan hari berada di sini untuk berkempen bagi meraih undi di DUN Sungai Limau.

 

Sumber : http://www.utusan.com.my/utusan/Jenayah/20131104/je_08/PRK-DUN-Sungai-Limau-Kes-penyokong-Pas-tumbuk-wanita-disiasat

MP DKI Rp 2,4 Juta, KSPI: Jokowi Lupa Janji Kampanye

Oleh Widji Ananta
Posted: 04/11/2013 13:02
TOPIK #Jokowi #KSPI #Upah Buruh #UMP DKI
UMP DKI Rp 2,4 Juta, KSPI: Jokowi Lupa Janji Kampanye
(Liputan6.com/Andrian M Tunay)

Liputan6.com, Jakarta : Presiden Konfederasi Serikat Pekerja Indonesia (KSPI) Said Iqbal mengatakan penetapan Upah Minimum Provinsi sebesar Rp 2,4 juta oleh Gubernur Joko Widodo alias Jokowi tidak rasional. Jokowi dinilai lupa dengan janji-janji kampanyenya.

Berita Terkait

“Jokowi sudah tidak rasional dengan menetapkan UMP sebesar Rp 2,4 juta,” kata Said di Kantor Kontras, Jalan Borobudur, Menteng, Jakarta Pusat, Senin (4/11/2013).

Dengan keputusan ini, tambah Said, Jokowi telah mengembalikan rezim upah murah. Keputusan Jokowi menandatangani UMP Rp 2,4 juta akan berdampak negatif dan berdampak ke beberapa daerah lain.

“Apa yang diputuskan Jokowi tidak sesuai dengan janji kampanyenya sebelum menjadi Gubernur Jakarta,” ujarnya.

Said menjelaskan, angka Rp 2,4 juta sangat tidak layak untuk hidup di Jakarta. Misalnya, dalam sebulan untuk harga sewa rumah, buruh membutuhkan Rp 600 ribu, transportasi Rp 500 ribu, makan Rp 990 ribu, dan hanya menyisakan Rp 300 ribu per bulan.

“Mana cukup satu bulan Rp 300 ribu untuk penuhi kebutuhan hidup lainnya?!” ujar Said.

Sebelumnya, UMP 2013 DKI Jakarta sebesar Rp 2,2 juta. Buruh menilai UMP DKI Jakarta itu terlalu kecil dan meminta dinaikkan menjadi Rp 3,7 juta. Namun, besaran UMP 2014 yang ditandatangani Jokowi ternyata hanya Rp 2,4 juta.

 

Sumber : http://news.liputan6.com/read/737212/ump-dki-rp-24-juta-kspi-jokowi-lupa-janji-kampanye

 

Polis Marin Sabah rampas rokok

bernilai RM2.5 juta

2013/11/04 – 13:43:56 PM Cetak Emel Kawan
 
KOTA KINABALU: Polis Marin Sabah merampas lebih 120,000 bungkus rokok seludup bernilai RM2.5 juta selepas menyerbu sebuah rumah yang dijadikan stor penyimpanan di Kampung Kitobu, Inanam, dua hari lalu.

Pesuruhjaya Polis Sabah, Datuk Hamza Taib, berkata rampasan rokok jenis EKA Merah dan Hijau itu adalah rampasan terbesar pasukan berkenaan tahun ini.

 

“Dalam serbuan 4 pagi itu tidak ada sesiapa di premis berkenaan,” katanya dalam sidang media, di sini, hari ini.

 

Menurutnya siasatan awal polis mendapati penyeludup mengumpul rokok-rokok yang dibekalkan oleh beberapa individu di stor penyimpanan sebelum mengedarkannya kepada pelanggan.

“Dipercayai bahawa rokok jenis ini (EKA) akan menggantikan rokok jenis ERA yang berada di pasaran ketika ini,”katanya. – BERNAMA

 v
 
Sumber : http://www.bharian.com.my/bharian/articles/PolisMarinSabahrampasrokokbernilaiRM2_5juta/Article/?bh