VB Data Base

waryana

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

 

Advertisements

Visual Basic Pertemuan 4

1.

war1

Private Sub Cmdpros_Click()

Dim R As String

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

R = Left(Txtkdbu.Text, 1)

If R = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf R = “I” Then

Pn = “Indah Surabaya”

ElseIf R = “S” Then

Pn = “Salemba Empat”

ElseIf R = “E” Then

Pn = “Elek Media Komputindo”

ElseIf R = “M” Then

Pn = “Maxicom”

End If

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

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Png = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Png = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Png = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Png = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Png = “Ernita”

Hrg = “83000”

End If

Txtpnr.Text = Pn

Txtjdb.Text = Jdb

Txtpng.Text = Png

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

2.

war2

Private Sub Cmdproses_Click()

Dim S As String

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

S = Right(Txtkobu.Text, 1)

If S = “A” Then

Pnrbt = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnr = “Indah Surabaya”

ElseIf S = “S” Then

Pnrbt = “Salemba Empat”

ElseIf S = “E” Then

Pnrbt = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnrbt = “Maxicom”

End If

S = Left(Txtkobu.Text, 3)

If S = “SIM” Then

Jdbk = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf S = “EDP” Then

Jdbk = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf S = “MNJ” Then

Jdbk = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf S = “CDR” Then

Jdbk = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf S = “RPL” Then

Jdbk = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnr.Text = Pnrbt

Txtjdbk.Text = Jdbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

3.

WAR3

Private Sub Txtnam_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdproses_Click()

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

Dim Gjp, Tnjg, Tlgj As Currency

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

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

If G = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnjg = “1025000”

ElseIf G = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnjg = “975000”

ElseIf G = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnjg = “925000”

End If

 

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

If S = “S” Then

Kst = “S”

St = “Single”

ElseIf S = “M” Then

Kst = “M”

St = “Menikah”

ElseIf S = “J” Then

Kst = “J”

St = “Janda”

ElseIf S = “D” Then

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

Tlgj = Val(Gjp) + Val(Tnjg)

Txtgpk.Text = Gjp

Txtjab.Text = Jbt

Txttun.Text = Tnjg

Txtst.Text = St

Txtbg.Text = Bag

Txtgol.Text = Gol

Txtks.Text = Kst

Txttgj.Text = Tlgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtks = “”

Txtst = “”

Txtthn = “”

Txtjab = “”

Txtbg = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtks = “”

Txtst = “”

Txtthn = “”

Txtjab = “”

Txtbg = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

4.

war4

Private Sub Cmdproses_Click()

Dim K As String

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

K = Left(Txtkdbu.Text, 1)

If K = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pnr = “Indah Surabaya”

ElseIf K = “S” Then

Pnr = “Salemba Empat”

ElseIf K = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf K = “M” Then

Pnr = “Maxicom”

End If

P = Mid(Txtkdbu.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

Txtpn.Text = Pnr

Txtjb.Text = Jdb

Txtpg.Text = Peng

Txthg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjb.Text = “”

Txtpg.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjb.Text = “”

Txtpn.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthg.Text = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

Tugas Visual Basic 3

1.

War1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100201”

Cbonpm.AddItem “12100210”

Cbonpm.AddItem “12102219”

Cbonpm.AddItem “12100217”

Cbonpm.AddItem “12201113”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12100201”

nama = “WARIANAH”

jurusan = “Sistem Informasi”

Case “12100210”

nama = “RINDI ANTIKA”

jurusan = “Sistem Informasi”

Case “12102219”

nama = “MULYANI”

jurusan = “Tehnik Informatika”

Case “12100217”

nama = “AFITA”

jurusan = “Sistem Informasi”

Case “12201113”

nama = “WAFIKA ROYANI”

jurusan = “Manajemen Informatika”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan

Txtqz.SetFocus

End Sub

 

 

Private Sub Txtqz_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttgs.SetFocus

End If

End Sub

 

Private Sub Txttgs_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(Txtqz.Text)

tugas = Val(Txttgs.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

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

Txtnak.Text = NilaiAkhir

 

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

Txthmt.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtqz = “”

Txttgs = “”

Txtuts = “”

Txtuas = “”

Txtnak = “”

Txthmt = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

War2

Private Sub Opthij_Click()

Lbltm.ForeColor = vbGreen

End Sub

 

Private Sub Optmrh_Click()

Lbltm.ForeColor = vbRed

End Sub

 

Private Sub Chktbl_Click()

Lbltm.FontBold = Chktbl.Value

End Sub

 

Private Sub Chkmrg_Click()

Lbltm.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lbltm.Caption = Txtnm.Text

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

War3

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnp.SetFocus

End If

End Sub

 

Private Sub Cbogl_DblClick()

Private Sub form_load()

Cbogl.AddItem “I”

Cbogl.AddItem “II”

Cbogl.AddItem “III”

Cbogl.AddItem “IV”

End Sub

 

Private Sub Cbogl_Click()

Dim Gajipokok, Pajak, Tunjangan, Total As Variant

Select Case Cbogl.Text

Case “I”

Gajipokok = 2000000

Tunjangan = 300000

Case “II”

Gajipokok = 3000000

Tunjangan = 700000

 

 

Case “III”

Gajipokok = 4000000

Tunjangan = 1000000

Case “IV”

Gajipokok = 5000000

Tunjangan = 1500000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Total = Gajipokok + Tunjangan

Pajak = Total * 0.1

Txtgp.Text = Gajipokok

Txttun.Text = Tunjangan

Txtpj.Text = Pajak

Txtttl.Text = Total – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnidn = “”

Txtnp = “”

Cbogl = “”

Txtgp = “”

Txttun = “”

Txtpj = “”

Txtttl = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnp = “”

Cbogl = “”

Txtgp = “”

Txttun = “”

Txtpj = “”

Txtttl = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

War4

Private Sub Txtnam_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Private Sub Cmdprs_Click()

Dim PS As String

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

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

If PS = “1” Then

Txtjur.Text = “Sisitem Informasi”

ElseIf PS = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf PS = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf PS = “4” Then

Txtjur.Text = “Komputer Akuntansi Manajemen”

End If

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

If PS = “00” Then

Txtps.Text = “Strata Satu”

ElseIf PS = “01” Then

Txtps.Text = “Diploma Tiga”

ElseIf PS = “02” Then

Txtps.Text = “Diploma Dua”

ElseIf PS = “03” Then

Txtps.Text = “Diploma Empat”

End If

PS = Right(Txtnpm.Text, 3)

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

End Sub

 

Private Sub Cmdlgi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txtthn = “”

Txtno = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txtthn = “”

Txtno = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Tugas Visual Basic

war1

Private Sub txtang1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtang2.SetFocus

End If

End Sub

 

Private Sub txtang2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtang3.SetFocus

End If

End Sub

 

Private Sub Txtang3_KeyPress(KeyAscii As Integer)

Txtang3.Text = Val(txtang1.Text) * Val(txtang2.Text)

End Sub

 

Private Sub CmdProses_Click()

Txtang3.Text = Val(txtang1.Text) * Val(txtang2.Text)

End Sub

 

Private Sub Cmddel_Click()

txtang1 = “”

txtang2 = “”

Txtang3 = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

war4

Private Sub Cmdproses_Click()

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

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

End Sub

 

Private Sub Cmdlagi_Click()

Txthrg1 = “”

Txtdskn = “”

Txthrg2 = “”

End Sub

 

Private Sub Cmdkelw_Click()

End

End Sub

3.

war5

Private Sub Txtnil1_Change()

If KeyAscii = 13 Then

Txtnil2.SetFocus

End If

End Sub

 

Private Sub Cmdbagi_Click()

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

End Sub

 

Private Sub Cmdkali_Click()

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

End Sub

 

 

Private Sub Cmdtbh_Click()

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

End Sub

 

Private Sub Cmdkrg_Click()

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

End Sub

 

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtnil2 = “”

Txtttl = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

4.

war2

Private Sub Optyellow_Click()

Lbljdl.ForeColor = vbYellow

End Sub

 

Private Sub optgreen_Click()

Lbljdl.ForeColor = vbGreen

End Sub

 

Private Sub optblue_Click()

Lbljdl.ForeColor = vbBlue

End Sub

 

Private Sub optred_Click()

Lbljdlmvb.ForeColor = vbRed

End Sub

 

 

Private Sub Chkilc_Click()

If Chkilc.Value = 1 Then

Lbljdl.FontItalic = True

Else

Lbljdl.FontItalic = False

End If

End Sub

 

Private Sub Chkbld_Click()

If Chkbld.Value = 1 Then

Lbljdl.FontBold = True

Else

Lbljdl.FontBold = False

End If

End Sub

 

Private Sub Chkundr_Click()

If Chkundr.Value = 1 Then

Lbljdl.FontUnderline = True

Else

Lbljdl.FontUnderline = False

End If

End Sub

 

Private Sub Chkstrike_Click()

If Chkstrike.Value = 1 Then

Lbljdl.FontStrikethru = True

Else

Lbljdl.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

5.

war3

Private Sub Txtgjpk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttnjg.SetFocus

End If

End Sub

 

Private Sub Txttnjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtptgn.SetFocus

End If

End Sub

 

 

Private Sub Cmdproses_Click()

Txtgjkt.Text = Val(Txtgjpk.Text) + Val(Txttnjg.Text) – Val(Txtptgn.Text)

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

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

End Sub

 

Private Sub Cmdlg_Click()

Txtgjpk = “”

Txttnjg = “”

Txtptgn = “”

Txtgjkt = “”

Txtpjk = “”

Txtgjbr = “”

End Sub

 

Private Sub Cmdkelw_Click()

End

End Sub

Samsung Ingin Produk Ericsson Diblokir

KOMPAS.com – Masih seputar paten teknologi, kali ini Samsung Electronics dikabarkan menuduh Ericsson melanggar paten dan menuntut  pelarangan impor serta penjualan produk-produk perusahaan itu di Amerika Serikat.

Dalam tuntutan yang diajukan raksasa elektronik asal Korea Selatan itu pada Jumat (21/12/2012), Samsung menuduh Ericsson telah melanggar tujuh buah paten miliknya.

Langkah ini dilakukan setelah Ericsson lebih dulu meminta Komisi Perdagangan Internasional Amerika Serikat (ITC) menghentikan impor produk-produk Samsung atas alasan pelanggaran paten.

“Kami telah berniat baik dengan mengutarakan keinginan untuk bernegosiasi dengan pihak Ericsson. Tapi ternyata Ericsson terlihat  tidak tertarik melakukan pembicaraan lebih lanjut dengan mengeluarkan klaim-klaim tidak berdasar yang kini sedang diusahakannya di pengadilan,” tulis Samsung Electronics dalam sebuah pernyataan, seperti dikutip dari Reuters.

“Produk-produk Ericsson yang melanggar paten Samsung mencakup perlengkapan jaringan telekomunikasi, seperti base station,” lanjut Samsung.

Ericsson adalah produsen perangkat keras dan perangkat lunak telekomunikasi yang produk-produknya antara lain turut dipakai di Indonesia. Divisi network perusahaan asal Swedia ini pada kuartal ketiga dilaporkan mengalami penurunan penjualan sebesar 17 persen

Ericsson pun berusaha menjaga pemasukan dari paten dengan cara menempuh langkah hukum di pengadilan.

Belakangan, Ericsson menghadapi ekskalasi persaingan dari Samsung Electronics, yang sebenarnya merupakan salah satu pemain  kecil dalam pasar perlengkapan jaringan telekomunikasi.

“Saya yakin bahwa, pada titik ini, tak ada seorang pun di industri yang akan meremehkan kemampuan Samsung untuk tumbuh menjadi pemain besar -kalau bukan pemimpin- di segmen baru perangkat keras telekomunikasi secara keseluruhan,” ujar pakar paten Florian Mueller.

Di sisi lain, Samsung juga terlibat kisruh paten dengan rival beratnya, Apple, di setidaknya 10 negara di seluruh dunia. Kedua perusahaan berusaha mendominasi dunia perangkat mobile dan menarik konsumen dengan serangkaian gadget terbarunya.

Jumat lalu, Komisi Eropa menuduh Samsung telah menyalahgunakan posisinya yang dominan untuk menjegal Apple menggunakan salah satu paten penting untuk perangkat mobile.

Terorisme 2012: Selnya Masih Aktif dan Kian Subur

Terorisme 2012: Selnya Masih Aktif dan Kian Subur

JAKARTA, KOMPAS.com – Aksi terorisme di Indonesia belum juga padam. Sepanjang 2012, terjadi sejumlah aksi terorisme. Para teroris menunjukkan eksistensinya. Bermunculan wajah-wajah baru yang tidak pernah terdengar namanya sebelumnya. Sebut saja Baderi Hartono, Farhan Mujahid, atau siapa Thorik?

Pengamat terorisme Al Chaidar mengatakan, sel-sel teroris terus berkembang di tahun 2012 ini. Ia mencatat, setidaknya masih ada 271 orang yang masuk jaringan teroris. Jumlah ini pun meningkat dari tahun sebelumnya yakni sekitar 50 sampai 100 orang.

“Sel-sel memang berkembang karena kelompok besar mengalami perpecahan-perpecahan. Akhirnya kelompok yang perpecahan kemudian membuat yang menjadi kecil lagi,” katanya saat dihubungi Kompas.com, pekan lalu.

Menurut Al Chaidar, sel-sel teroris itu masih aktif. Di saat sepinya aksi teror, mereka justru sedang berlatih di balik pegunungan berhutan lebat dan jauh dari aktivitas masyarakat setempat. Mereka bersembunyi untuk belajar menembak sampai merakit bom. Daerah pegunungan di Poso disinyalir terdapat beberapa lokasi untuk pelatihan tersebut. Pemikirian mereka telah disirami paham radikalisme dan lewat pelatihan teror inilah mereka semakin subur dan terus berkembang. Pertengahan hingga akhir tahun 2012 jaringan teroris baru itu mulai aktif melakukan aksi teror.

Muncul nama Farhan, yang masih berusia 19 tahun. Farhan disebut sebagai pemegang kendali dalam aksi teror di Solo Agustus 2012 lalu. Pertama, aksi penembakan di Pospam Simpang Gemblengan, Jumat (17/8/2012). Kedua, pelemparan granat di Bundaran Gladak, Jalan Jenderal Sudirman, Sabtu (18/8/2012). Kemudian, penembakan di Pos Polisi Singosaren, Jalan Rajiman Serengan, Solo, Kamis (30/8/2012), yang menewaskan seorang anggota kepolisian Bripka Dwi Data Subekti.

Dengan pistol jenis barreta, Farhan menembak Bripka Dwi Data dari jarak dekat. Pada Jumat (31/8/2012), Farhan dan rekannya Mukhsin (19) tewas ditembak karena melawan saat penyergapan oleh Densus 88 Antiteror. Namun, dalam perlawanan tersebut, tembakan Farhan juga menewaskan anggota Densus Briptu Anumerta Suherman.

Keduanya adalah teroris muda. Kemudian muncul Anggri Pamungkas yang masih berusia 18 tahun. Ia ditangkap Densus 88 di perbatasan Desa Cobra dengan Desa Bloyang, Kecamatan Belimbing Hulu, Kabupaten Melawi, Kalimantan Barat, Sabtu (22/9/2012). Anggri ikut merakit bom yang terkait jaringan Depok-Solo bersama MuhammadThorik. Kemudian Fajar Novianto, tersangka teroris Solo ini masih berusia 18 tahun. Ia masuk dalam jaringan teroris yang menamakan Al-Qaeda Indonesia pimpinan Badri Hartono.

Jaringan teroris diduga kuat merekrut sebanyak-banyaknya anggota muda untuk membantu aksi teror mereka. Mereka pun diajak berlatih dan merakit bom, kemudian mengalami regenerasi.

“Mereka telihat lebih gencar dalam perekrutan anggota dan kini lebih berkembang,” ujarnya.

Namun, orang-orang baru ini ditenggarai berkaitan dengan kelompok lama pimpinan pentolan teroris di Indonesia. Setelah menelusuri sel-sel kecil jaringan terorisme ini ditemukan benang merah yang menghubungkan mereka dengan kelompok lama. Farhan (19) misalnya rupanya anak tiri Abu Omar. Abu Omar adalah pemasok senjata dari Filipina.
Para teroris ini masih menganut struktur jaringan dengan sistem sel, di mana tidak semua anggota jaringan saling kenal.

Para teroris muda ini diduga hanya mengenal orang yang mengajaknya melakukan pelatihan teror, tanpa mengetahui pimpinan teratas mereka yang berada di balik aksi teror selama ini. Menurut Al-Chaidar, sel-sel teroris terus berkembang membentuk kelompok baru yang lebih kecil dan makin banyak, namun mereka diduga kuat masih dalam satu jaringan.

Asteroid Besar Ancam Tabrak Bumi di 2040?

detail berita

Ilustrasi (Foto: Dailymail)

CALIFORNIA – Ilmuwan NASA mengumumkan observasi baru mengenai asteroid 2011 AG5 yang kemungkinan bisa mengancam Bumi di beberapa dekade waktu ke depan. Benda luar angkasa dengan diameter 140 meter ini kabarnya mendekati Bumi di Februari 2040.

Dilansir Spacedaily, Rabu (26/12/2012), sebelumnya, ilmuwan NASA telah mengungkap asteroid 2011 AG5 yang berpotensi menabrak Bumi dengan prosentase 0,2 persen. Kini, ilmuwan akan melakukan observasi lebih mendalam untuk mengetahui secara rinci mengenai asal-usul asteroid besar tersebut.

Astronom dari University of Hawaii, Dave Tholen, Richard Wainscoat dan Marco Micheli, menggunakan telesop Gemini berukuran panjang 8 meter di Mauna Kea, Hawaii. Untuk meningkatkan pengetahuan para peneliti, observasi Gemini juga akan mengamati variasi kecerahan asteroid dan gerakkan putar benda luar angkasa tersebut.

Gemini dikelola oleh Association of Universities for Research in Astronomy (AURA). Setelah analisis astrometrik oleh tim di Hawaii, semua hasil pengamatan akan dikirim ke International Astronomical Union’s Minor Planet Center di Cambridge, Massachusetts.

Di awal 2012, NASA NEO Program Office membawa analisis pembelokkan untuk dampak potensial 2011 AG5 di 2040. Peneliti akan terus mengamati pergerakkan asteroid ini di 2012 dan 2013, sehingga objek tersebut dapat lebih mampu dikenali.

Bila potensi terkait dampak asteroid terhadap Bumi ini telah dikonfirmasi, peluang dampaknya bisa meningkat. Namun, menurut hasil pengamatan yang dirilis pada Mei 2012, menunjukkan bahwa asteroid tersebut tidak akan sampai mendarat di Bumi.

Video Penemuan Meteorit Es Nongol di YouTube

detail berita

Meteorit Es (Foto: Euronews)

RABAT– Baru-baru ini, sebuah video yang diunggah di YouTube menampilkan bongkahan benda padat misterius di wilayah Maroko. Bongkahan batu yang diyakini meteorit beku dari luar angkasa ini, kini tengah diteliti oleh para ilmuwan.

Dilansir Universetoday, Kamis (27/12/2012), Euronews melaporkan, temuan “meteorit mega” es yang jatuh di ladang perkebunan di wilayah Hrira, Maroko. Petani yang menemukan benda luar angkasa tersebut menaruhnya di dalam mesin pendingin atau freezer untuk kemudian diteliti oleh ilmuwan.

Meskipun sebagian orang, termasuk petani di wilayah Maroko tersebut meyakini bahwa benda temuannya ialah meteorit. Akan tetapi, beberapa orang justru meragukan bahwa benda misterius itu adalah meteorit luar angkasa.

Sebab, seperti yang dilaporkan di situs lunarmeteoritehunters.com, mengungkap bahwa seharusnya meteorit menghasilkan jejak “kawah” serta pernyataan resmi dari peneliti.

Sementara itu, peneliti Abdul Rahman Said Abhi menyangkal bahwa bongkahan es itu bukanlah benda yang berasal dari luar bumi. Ia mengatakan, benda tersebut kemungkinan terbentuk di atmosfer.

Disebut “megacryometeors”, bola es ini bisa tumbuh besar dan jatuh dari langit yang cerah. Anda yang penasaran ingin melihat video penemuan meteorit es, bisa mengakseshttp://www.youtube.com/watch?v=X2h6YdBV0iU&feature=player_embedded&noredirect=1.

Berapa Batas Nilai Kelulusan SMA Tahun 2013?

KOMPAS IMAGES/DHONI SETIAWAN Pelaksanaan Ujian Nasional (UN) di SMA Negeri 70, Jakarta Selatan. Senin (22/3/2010). Ujian juga serentak dilakukan di SMA/SMK/MA seluruh Indonesia hingga Jumat 26 Maret.

JAKARTA, KOMPAS.com – Selain sudah menentukan jadwal penyelenggaraan Ujian Nasional (UN) 2013, Kementerian Pendidikan dan Kebudayaan (Kemendikbud) juga sudah menetapkan batas nilai minimum kelulusan siswa. Kepala Badan Penelitian dan Pengembangan (Balitbang) Kemrn dikbud, Khairil Anwar Notodiputro, mengatakan, untuk siswa SMA/SMK/MA, standar kelulusan pun masih ditetapkan pada nilai yang sama dengan tahun lalu yaitu 5,5.

“Tidak ada yang berubah. Soalnya saja berubah dan ada 20 variasi soal di tiap kelas tapi tingkat kesulitannya relatif sama. Batas nilai minimum juga seperti tahun lalu,” jelas Khairil kepada Kompas.com, Rabu (26/12/2012).

Pada tahun 2012, nilai minimum 5,5 merupakan nilai akhir rata-rata siswa dari kombinasi nilai UN dan nilai rapor dengan porsi 60:40. Siswa juga tak boleh memperoleh nilai di bawah 4 untuk mata pelajaran yang diujikan dalam UN.

Selain itu, Khairil mengatakan bahwa soal UN 2013 akan lebih variatif sesuai dengan kebijakan Kemendikbud yang akan menggunakan 20 paket soal. Tingkat kesulitan UN tahun ini tidak jauh berbeda dengan tahun lalu meski hasil UN akan dijadikan salah satu syarat masuk perguruan tinggi negeri.

Di lapangan, seperti dilansir Surya, Kepala Dinas Pendidikan Jawa Timur, Harun, sudah menerima jadwal penyelenggaraan UN 2013 serta mekanisme penentuan batas nilai minimum kelulusan siswa, terutama siswa SMA/SMK.

“Sekolah dan siswa tak perlu panik. Sebab, Unas besok tidak akan lari jauh dari mata pelajaran yang selama ini sudah diberikan. Akan ada kisi-kisi menyangkut ujian akhir ini. Mau berapa paket soal, siapkan diri dengan baik,” katanya.

Daerah juga diminta untuk tetap menyediakan dua pengawas, baik dari dinas pendidikan masing-masing maupun perguruan tinggi setempat, di setiap ruang penyelenggaraan UN. Harun mengatakan, setidaknya ada sekitar 1,5 juta siswa SMP/MTs dan SMA/SMK/MA di Jatim yang akan mengikuti UN 2013.

Wanita Rusia Berjilbab di Iran Undang Kontroversi

Headline

rferl.org
Oleh: Bactiar Abdullah
web – Rabu, 26 Desember 2012 | 23:06 WIB

INILAH.COM, Teheran – Anggota parlemen Iran pada hari Rabu (26/12) menyangkal membayar jilbab yang dikenakan wanita Rusia yang bekerja sebagai teknisi di pembangkit listrik tenaga nuklir (PLTN) satu-satunya di negeri para Mullah itu.

“Berdasar laporan-laporan yang kami peroleh dari pemerintah daerah dan kantor gubernur di Bushehr, wanita Rusia berjilbab diperkerjakan sebagai teknisi PLTN Bushehr sama sekali tidak benar, “ ujar Hassan Ghashghavi, deputi menteri luar negeri Iran.

Anggota parlmen Mehdi Mousavinejad, yang mewakili konstituen di provinsi Bushehr selatan, mengatakan kepada kantor berita ISNA pada Selasa kemarin, bahwa “berdasar kontrak yang ditandatangani bersama para wanita Rusia yang bekerja PLTN Bushehr, mereka menerima pembayaran untuk membeli jilbab.”

Tetapi, kata Mousavinejad, meskipun ada uang ganti pembelian jilbab, mereka tak memenuhi komitmennya memakai jilbab.

“Sayangnya, mereka tak membaca kontrak dengan teliti, sementara pemerintah kurang ketat mengawasi para wanita Rusia yang bekerja di PLTN,” tambah Mousavinejad.

Ia tak merinci berapa upah yang dibayarkan kepada para wanita Rusia dan berapa banyak yang bekerja di PLTN Bushehr.

Komentar berlawanan datang dari Ghashghavi. “Tak disebutkan dalam kontrak mengenai masalah ini.antara pihak Rusia dan organisasi energi atom Iran atau kontrak lokal lainnya. Selain itu tidak ada uang ganti jilbab bagi wanita Rusia atau pekerja asing lainnya di Iran.”

Gashghavi menambahkan bahwa para wanita Rusia harus taat kepada “moral dan norma agama yang dipraktekkan oleh masyarakat Bushehr.” Bagi mereka yang melanggar aturan ini, bisa dikenai penahanan. Jilbab berlaku bagi semua wanita sejak revolusi Islam Iran pada tahun 1979 untuk menutup aurat. [tjs]