TUGAS VB 5

 

MEMBUAT DATABASE

umi

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub CmdProses_Click()
Dim JS, P As String
Txtthn.Text = “20” & Left(Txtnpm.Text, 2)
JS = Mid(Txtnpm.Text, 3, 1)
If JS = “1” Then
Txtjrs.Text = “Sistem Informasi”
ElseIf JS = “2” Then
Txtjrs.Text = “Manajemen Informatika”
ElseIf JS = “3” Then
Txtjrs.Text = “Tehnik Informatika”
End If

P = Mid(Txtnpm.Text, 4, 2)
If P = “01” Then
Txtpstudi.Text = “Strata Satu”
ElseIf P = “02” Then
Txtpstudi.Text = “Diploma Tiga”
ElseIf P = “03” Then
Txtpstudi.Text = “Diploma Satu”
End If
Txtnourut.Text = Right(Txtnpm,.Text, 3)
End Sub

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
End Sub

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

Private Sub Cmdhapus_Click()
Data1.Recordset.Delete
End Sub

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

TUGAS VB 4

4.1 PT PULANG PETANG

Private sub txtnama_keypress(key ASCII As integer)

if keyASCII =13 then

txtNIK.setfocus

end if

end sub

private sub cmdproses_clik()

dim jbt, BG, as string

dim GP, TJ, TG As curency

txt tahun. text = left (txtnik.text,4)

G= Mid (txtnik.text ,5,1)

if G= “A” then

G = “A”

JBT=”Manajer”

GP=” 4000000″

TJ= “1025000”

Else if G=”B” Then

G=”B”

JBT=”Kep.seksi”

GP=” 3500000″

TJ=”975000″

Else if G=”C” Then

G=”C”

JBT=”Sataf”

GP=” 3000000″

TJ=”925000″

end if

txtGol.text=G

txtJabatan.text= JBT

txtGapok.text= GP

txtTunjangan.text= TJ

KS= Mid (txtnik. text,7,1)

if = ks=”s” then

ks=”s”

ks status= “single’

else if ks=”M” then

ks=”M”

Ks status=”Menikah”

else if ks=”J” then

ks=”J”

Ks status=”janda”

else if ks=”D” then

ks=”D”

Ks status=”duda”

End if

txtkode. text= ks

txtstatus.text= ks status

TG=val(txt Gapok.text)+val(txttunjangan.text) txt total G.text=TG

B= Right (txtnik. text, 3)

if B =”Keu” then

txt bagian.text=”acurency”

else if B=”ADM” Then

txt Bg.text=” Administrasi”

else if B=”SDM” Then

txt Bg.text=” General afair”

else if B=”EDP” Then

txt Bg.text=” IT Unit”

else if B=”SPM” Then

txt Bg.text=” Acurency”

end if

end sub

private sub cmdkeluar_click()

end

end sub

Private Sub CmdBatal_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNIK.Text = “”

TxtGOL.Text = “”

TxtKS.Text = “”

TxtSTS.Text = “”

TxtTH.Text = “”

TxtJBT.Text = “”

TxtBGN.Text = “”

TxtGP.Text = “”

TxtTJ.Text = “”

TxtTG.Text = “”

End Sub

Private Sub CmdzhLAGI_Click()

TxtZHNAMA.SetFocus

TxtZHNAMA.Text = “”

TxtZHNIK.Text = “”

TxtZHGOL.Text = “”

TxtZHKS.Text = “”

TxtZHSTS.Text = “”

TxtZHTH.Text = “”

TxtZHJBT.Text = “”

TxtZHBGN.Text = “”

TxtZHGP.Text = “”

TxtZHTJ.Text = “”

TxtZHTG.Text = “”

End Sub

4.2 DATA BUKU STMIK PRINGSEWU

private sub cmd proses_clik()

dim JB,PGR, PNRBIT As string

dim TT, HRG As curency

Txt kode buku.text=left(txtkode buku.text,3)

if TB=”SIM” Then

TB=” SIM”

JB=”SISTEM INFORMASI”

PGR=”FADYA ULFA”

HRG=” 75900″

Else if TB=”EDP” Then

TB=” EDP”

JB=”ELEKTRONIK DATA PROCESSING”

PGR=”NURUL AGUSTINA”

HRG=” 62000″

Else if TB=”MNJ” Then

TB=” MNJ”

JB=”MANAJEMEN”

PGR=”RIAN HIDAYAT”

HRG=” 42000″

Else if TB=”CDR” Then

TB=” CDR”

JB=”COREL DRAW”

PGR=”SITI NUR KHOTIMAH”

HRG=” 53000″

Else if TB=”RPL” Then

TB=” RPL”

JB=”REKAYASA PERANGKAT LUNAK”

PGR=”WINDA ERLIANTI”

HRG=” 83000″

End if

txt Tipe buku. Text = TB

txtJudul buku. Text = JB

txt pengarang. Text =  PGR

txtharga. Text = HRG

txt tahun terbit. text =”20″ & MID (txt kode buku.text,6,2)

KB= Right (txtkode buku.text,1)

if KB= “A” Then

KB=” A”

PNRBIT=” ANDI OFFSET YOGYAKARTA”

Else if KB= “I” Then

KB=” I”

PNRBIT=” INDAH SURABAYA”

Else if KB= “S” Then

KB=” S”

PNRBIT=” SALEMBA EMPAT”

Else if KB= “E” Then

KB=” E”

PNRBIT=” ELEK MEDIA KOMPUTINDO”

Else if KB= “M” Then

KB=” M”

PNRBIT=” MAXICOM”

End if

txtkode buku.text= KB

txtpenerbit.text= PNRBIT

private sub cmdkeluar_click()

end

end sub

private sub cmdbatal_click()

txtkode buku.set focus

txtkode buku.text=” ”

txtjudul buku.text=” ”

txtpengarang.text=” ”

txttahun terbit.text=” ”

txtpenerbit.text=” ”

txtharga.text=” ”

private cmdlagi_click()

txtkode buku.set focus

txtkode buku.text=” ”

txtjudul buku.text=” ”

txtpengarang.text=” ”

txttahun terbit.text=” ”

txtpenerbit.text=” ”

txtharga.text=” ”

end sub

4.3 DATA BUKU STMIK PRINGSEWU 2

Private sub cmdproses_clik()

dim JB, PGR, PNRBIT, As string

dim TT, HRG, As curency

txtkode buku. text= left (txtkode buku.text 1)

if KB=” A” Then

KB=” A”

PNRBIT= “ANDI OFFSET YOGYAKARTA”

Else if KB=”I” Then

KB=” I”

PNRBIT= “INDAH SURABAYA”

Else if KB=”S” Then

KB=” S”

PNRBIT= “SALEMBA EMPAT”

Else if KB=”E” Then

KB=” E”

PNRBIT= “ELEK MEDIA KOPUNTINDO”

Else if KB=”M” Then

KB=” M”

PNRBIT= “MAXICOM”

End if

txtkode buku.text= KB

txtPenerbit.text= PNRBIT

kode buku= MID (Txtkode buku.text,5,3)

if TB=” SIM” Then

TB=”SIM”

JB=”SISTEM INFORMASI MANAJEMEN”

PGR=”ANDRA SETIAWAN”

HRG=”75900″

Else if TB=” EDP” Then

TB=”EDP”

JB=”ELEKTRONIK DATA PROCESSING”

PGR=”DESI ISTIQOMAH”

HRG=”62000″

Else if TB=” EMJ” Then

TB=”EMJ”

JB=”MANAJEMEN”

PGR=”SANDI FITRAJAYA”

HRG=”42000″

Else if TB=” CDR” Then

TB=”CDR”

JB=”COREL DRAW”

PGR=”TRI INDAH SARI”

HRG=”53000″

Else if TB=” RPL” Then

TB=”RPL”

JB=”REKAYASA PERANGKAT LUNAK”

PGR=”ERNITA”

HRG=”83000″

End if

txt Tipe buku. Text = TB

txtJudul buku. Text = JB

txt pengarang. Text =  PGR

txtharga. Text = HRG

Txt tahun terbit.text=”20″  & Right (txt kode buku.text,2)

private sub cmdkeluar_click()

end

end sub

private sub cmdbatal_click()

txtkode buku.set focus

txtkode buku.text=” ”

txtjudul buku.text=” ”

txtpengarang.text=” ”

txttahun terbit.text=” ”

txtpenerbit.text=” ”

txtharga.text=” ”

private cmdlagi_click()

txtkode buku.set focus

txtkode buku.text=” ”

txtjudul buku.text=” ”

txtpengarang.text=” ”

txttahun terbit.text=” ”

txtpenerbit.text=” ”

txtharga.text=” ”

end sub

4.4 DATA BUKU STMK PRINGSEWU 3 (combo)

private sub CboKode buku_click()

select case Cbokode buku.text

case”A-SIM-01″

case”I-EDP-02″

case”S-MNJ-03″

case”E-CDR-04″

case”M-RPL-05″

End select

end sub

private sub cmdproses_click()

dim PNRBIT,JB, PGR As string

dim HRG As curency

penerbit = Left (cbokode buku.text,1)

if PNRBIT=” A” Then

PNRBIT=”A”

Penerbit=”ANDI OFFSET YOGYAKARTA”

Else if PNRBIT=” I” Then

PNRBIT=”I”

Penerbit=”INDAH SURABAYA”

Else if PNRBIT=” S” Then

PNRBIT=”S”

Penerbit=”SALEMBA EMPAT”

Else if PNRBIT=” E” Then

PNRBIT=”E”

Penerbit=”ELEK MEDIA KOMPUTINDO”

Else if PNRBIT=”M” Then

PNRBIT=”M”

Penerbit=”MAXICOM”

End if

txtpnrbit.text= penerbit

JB= MID (Cbokodebuku.text,5,3)

if JB=”SIM” Then

JB=”sistem informasi manajemen”

PGR=” YATI NUR OKTAVIA”

HRG=”759000″

Else if JB=”EDP” Then

JB=”ELEKTRONIK DATA PROCESSING”

PGR=” IMAM TARMIZI”

HRG=”62000″

Else if JB=”MNJ” Then

JB=”MANAJEMEN”

PGR=” VALENTINA MARIANA ADIWIANTI”

HRG=”42000″

Else if JB=”CDR” Then

JB=”COREL DRAW”

PGR=” RIYAN SUHANDI”

HRG=”53000″

Else if JB=”RPL” Then

JB=”REKAYASA PERANGKAT LUNAK”

PGR=” SINTA UMPU SINA”

HRG=”83000″

End if

txtpJB.text= judul buku

txtPGR.text= pengarang

txtHRG.text= harga

Tahun=”20″& Right (cbokode buku.text,2)

txtTT.text= tahun terbit

end sub

private sub form_load()

cbokode buku.addItem”A-SIM-01″

cbokode buku.addItem”I-EDP-02″

cbokode buku.addItem”S-MNJ-03″

cbokode buku.addItem”E-CDR-04″

cbokode buku.addItem”M-RPL-05″

End sub

private sub cmd keluar-click()

unload me

end sub

private sub cmdLagi_click()

kosong

end sub

public sub kosong()

cbokode buku.setfocus

cbokode buku .text=” ”

txtJudul buku.text=” ”

txtpengarang.text=” ”

txtpenerbit.text=” ”

txtharga.text=” ”

txttahun terbit.text=” ”

end sub

Tugas Vb3

1. Huruf Mutu Mahasiswa STMIK PRINGSEWU

private Sub Cbonpm_Click( )

Dim nama, jurusan, HM As String

select Case cbonpm. Text

case “12201056”

nama = “UMI NAFINGAH”

Jurusan =” Manajemen Informatika”

case ” 12100354″

nama = ” Arfian”

jurusan = ” Sistem Informatika”

case ” 12100014″

nama = ” Okta Martia”

jurusan = ” Sistem Informatika”

case ” 12100052″

nama = ” Ariana”

jurusan = ” Tehnik Informatika”

case ” 1210067″

nama = ” Afita Sari”

jurusan = ” Manajemen Informatika”

End select

txtnama.Text = nama

txtJurusan.text =jurusan

txtquis. SetFocus

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_clik( )

unload Me

end sub

private sub cmdproses_click ( )

Dim NAAS integer

Dim NAAS string

QUIS = Val (txtquis.text)

TUGAS = Val (txttugas.text)

UTS = val (txtuts.text)

UAS = val (txtuas.text)

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

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 form_load()

cbonpm.Addltem”12201056″

cbonpm.Addltem ” 12100354″

cbonpm.Addltem “12100014”

cbonpm.Addltem”12100052″

cbonpm.Addltem”1210067″

end sub

private sub txtquis_keypress(key Ascii As integer)

if keyAscii =13 then

txttugas.setfocus

end if

end sub

private sub txtugas_keypress(key Ascii As integer)

if keyAscii =13 then

txtuts.setfocus

end if

end sub

private sub txtuts_keypress(key Ascii As integer)

if keyAscii =13 then

txtuas.setfocus

end if

end sub

2. STMIK PRINGSEWU

private sub command1_click ( )

label2. caption = text1.text

end sub

private sub command2_click ( )

end

end sub

private sub option2_click ( )

label2.forecolor= vbBlue

end sub

private sub option2_click ( )

label2.forecolor= vbred

end sub

private sub chek1_click ( )

label2.fontbold=chek1.value

end sub

private sub chek2_click ( )

label2.fontitalic=chek2.value

end sub

3. NIDN, NAMA PEGAWAI, GOLONGAN

private sub Cmdbatal_click( )

kosong

end sub

private sub cmdlagi_click( )

kosong

end sub

private sub form_load( )

cbogolongan.Addltem “I”

cbogolongan.Addltem “II”

cbogolongan.Addltem “III”

cbogolongan.Addltem “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 =2000000

case “III”

gapok = 2500000

tunjangan =2500000

case” IV”

gapok = 3000000

tunjangan = 3000000

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 txtnind_keypress( keyascii As integer)

if key ascii = 13 then

txtnama. setfocus

end if

end sub

4. ABI KUSUMA

private sub cmdbatal_click( )

txtnama.setfocus

txtnama. Text=””

txtnpm. Text=””

txtjur. Text=””

txtps. Text=””

txttm. Text=””

txturut. Text=””

end sub

private sub cmdkeluar_click( )

unload me

end sub

private sub cmdlagi_click( )

txtnama.setfocus

txtnama. Text=””

txtnpm. Text=””

txtjur. Text=””

txtps. Text=””

txttm. Text=””

txturut. Text=””

end sub

private sub cmdproses_click( )

dim A As string

txttm.text =”20″ &left ( txtnpm.text,2)

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

elseif S =”4″ then

txtjur.text= “maanjemen &komp. Akuntansi”

End if

S= Mid (txtnpm.text,4,2)

if S= “01” Then

txtps.text=”strata satu”

elseif S=”02″ then

textps.text= “Diploma tiga”

elseif S=”03″ then

textps.text= “Diploma empat”

elseif S=”04″ then

textps.text= “Diploma dua”

end if

txturut.text = Right (txtnpm.text,3)

end sub

private sub form_activate( )

txtnama.setfocus

txtnama. Text=””

txtnpm. Text=””

txtjur. Text=””

txtps. Text=””

txttm. Text=””

txturut. Text=””

end sub

private sub txtnama_keypress(keyAscii As Integer)

if keyascii= 13 then

txtnpm.setfocus

end if

end sub

 

 

Apple Sukses Patenkan Micro SIM Yoga Hastyadi Widiartanto – Okezone Rabu, 26 Desember 2012 17:18 wib

nhUTDbp74A

liustrasi (foto: Patently Apple)

CALIFORNIA – Pada April tahun ini, Apple mengajukan paten untuk konektor Micro SIM. Kini, paten tersebut telah resmi menjadi milik Apple.

Dilansir dari Patently Apple, Rabu (26/12/2012), persetujuan paten tersebut hadir di saat yang tepat bagi Apple. Pasalnya, saat ini raksasa teknologi dari Cupertino itu tengah bersaing dengan Nokia untuk menentukan desain miniatur SIM perangkat genggam masa depan.

Kabarnya, Nokia bahwa telah mengatakan akan menarik 50 atau lebih paten kartu SIM yang ada di ETSI, jika pengajuan proposal Apple yang memperoleh persetujuan.

Kini terbukti Apple lah yang berhasil memperoleh paten untuk konektor Micro SIM. Paten tersebut memaparkan mengenai cara untuk membuat kartu SIM mudah dipindah dan diganti.

Apple menyatakan Zheneg Gao,Benjamin Rappoport dan Steve McClure sebagai penemu paten tersebut. Paten itu pertama kali diajukan pada kuartal tiga 2010 lalu. (yhw)

Jero Wacik: Penerimaan Migas Capai USD36 Miliar di 2012 Pebrianto Eko Wicaksono – Okezone Rabu, 26 Desember 2012 17:29 wib

6kuwfvoIsQ

Menteri ESDM Jero Wacik. (Foto: Okezone)
JAKARTA – Satuan Kerja Sementara Pelaksana Kegiatan Usaha Hulu Minyak dan Gas Bumi (SK Migas) memperkirakan target penerimaan negara dari sektor hulu migas pada 2012 berhasil melampaui target.

Kepala SK Migas selaku Menteri Energi Sumber Daya Mineral (ESDM) Jero Wacik mengatakan, penerimaan negara dari sektor hulu migas pada tahun ini diperkirakan mencapai USD36 miliar atau 108 persen dari target APBN-P 2012 sebesar USD33,48 miliar.

Sementara target penerimaan negara di 2013 sesuai dengan APBN 2013 sebesar USD31,75 miliar atau 56 persen dari gross revenue, cost recovery sebesar USD15,5 miliar atau 27 persen dari gross revenue. Sedangkan pendapatan bagian KKKS adalah sebesar USD9,7 miliar atau hanya sebesar 17 persen dari gross revenue.

“Produksi minyak pada tahun ini juga berhasil dicapai sebesar 92,47 persen dari target APBN-P 2012 atau sebesar 860 ribu barel minyak per hari dari target sebesar 930 ribu barel minyak per hari di dalam APBN-P 2012,” kata Jero, dalam pemaparan kinerja 2012 Kementerian ESDM, di Kantornya, Jakarta, Rabu (26/12/2012).

Jero Salahkan Chevron

Menurut Jero, kendala dalam pencapaian produksi minyak pada tahun ini disebabkan antara lain tidak kembalinya produksi Chevron Pacific Indonesia (CPI) sebagai akibat pecahnya pipa anak perusahaan PT Perusahaan Gas Negara Tbk (PGAS) di lapangan Duri, Sumatera.

Tertundanya keputusan operator baru di blok West Madura Offshore (WMO), kebakaran Floating Storage Offshore (FSO) Lentera Bangsa di lepas pantai Jawa juga menjadi kendala produksi minyak pada tahun lalu.

Jero menambahkan, asumsi volume lifting pada tahun depan untuk minyak ditetapkan sebesar 900 ribu barel minyak per hari dan asumsi produksi gas sebesar 7.890 miliar British thermal unit per hari (BBTUD).

“Kami optimistis dapat mencapai target produksi minyak dan gas yang ditetapkan pada tahun depan, kami akan bekerja keras untuk mencapai target tersebut,” tutup Jero. (wdi)

UAS Segera Tiba, Bagaimana Persiapannya?

Rabu, 26 Desember 2012 14:09 WIB

dG47N9a2Lf

Ilustrasi. (Foto: Rifa Nadia/Okezone)
JAKARTA – Ujian Akhir Semester (UAS) menjadi salah satu hal yang menentukan kelulusan mahasiswa dalam setiap mata kuliah. Bahkan sebagian besar kampus menempatkan porsi nilai UAS paling besar di antara nilai UTS dan tugas harian.

Mahasiswa dari berbagai kampus sudah melewati masa-masa UAS. Namun ada juga yang belum. Bagi sebagian mahasiswa, membuat persiapan yang matang dari jauh-jauh hari dengan sistem nyicil akan lebih efektif untuk menghadapi pekan UAS. Menurut Bobby Suyapto, mahasiswa Universitas Bunda Mulia (UBM), masa liburan Natal dan tahun baru merupakan waktu yang tepat untuk masa persiapan UAS.

“Sebisa mungkin liburan dua minggu ini dimanfaatkan untuk mulai nyicil belajar. Saat pulang kampung seperti sekarang, saya bawa buku-buku untuk belajar,” ujar mahasiswa asal Bangka Belitung ini saat berbincang dengan Okezone, Rabu (26/12/2012).

Seperti Bobby, Efi Triana juga akan menghadapi UAS. Dia mempersiapkan diri dengan mengumpulkan semua materi dari kelas-kelas yang berbeda namun dengan jurusan dan angkatan yang sama. Menurut Mahasiswi Universitas Indonusa Esa Unggul ini, kita tidak bisa mengandalkan materi dari satu dosen saja. Namun, harus mengumpulkan materi dari dosen-dosen-dosen lainnya juga.

“Untuk persiapan UAS nanti, sekarang saya sudah mulai mengumpulkan materi-materi dari semua kelas dengan jurusan yang sama. Karena beda dosen sedikit banyak pasti akan berbeda pula materi yang disampaikan,” tutur Efi.

Selain itu, tambahnya, ia juga mulai mengajak teman-temannya untuk belajar bersama dalam kelompok diskusi. Di dalam kelompok ini, mereka bisa saling belajar dan bertanya satu sama lain mengenai hal yang belum dimengerti.

Berbeda dengan Bobby dan Efi, Fera mengaku sampai saat ini belum ada persiapan khusus yang dia lakukan untuk menghadapi UAS karena materi yang disampaikan oleh dosen di kelas pun tidak terlalu banyak.

“Sampai sekarang, saya belum mempersiapkan hal-hal khusus untuk ujian nantinya. Lebih ke memperhatikan saat dosen mengajar di kelas saja,” kata mahasiswi Universitas Bina Nusantara  jurusan Sastra Inggris ini.

Irene Agustine, mahasiswi Institut Ilmu Sosial dan Ilmu Politik (IISIP) mengaku, sedang kelimpungan memenuhi semua deadline tugas prasyarat UAS. Ine bertutur, beberapa dosen memberi tugas untuk membuat makalah, resume seminar dan resume buku sebagai syarat mahasiswa mengikuti UAS. Selain itu, beberapa mata kuliah juga menggelas UAS praktik, misalnya siaran radio, serta membuat koran dan layout media.

“Jadi, meskipun libur seminggu alias minggu tenang, deadline ngerjain tugas-tugas itu wah banget. Kemarin pas ikut merayakan Natal di rumah keluarga, saya masih saja nyicil ngetik tugas di handphone,” ujar Ine.

Selain mencicil mengerjakan berbagai tugas di mana pun dan kapan pun, Ine juga memfotokopi berbagai catatan kuliah yang belum lengkap. Ine berujar, pekan UAS yang dimulai 31 Desember membuat dia dan teman-temannya terpaksa membatalkan rencana liburan ke luar kota.

“Sempat berencana merayakan tahun baru di Anyer sama teman-teman. Eh karena tanggal 31 Desember UAS, mau enggak mau dibatalkan, takut enggak puas liburan karena sambil mikirin UAS juga,” imbuhnya.(rfa)

Bom Rakitan Ditemukan di Pospol Pasar Sentral Poso

Selasa, 25/12/2012 17:30 WIB
173348_bomrakitangothamist
Ilustrasi (gothamist.com)
Jakarta – Bom rakitan yang siap meledak ditemukan di Pos Pengamanan Polisi Pasar Sentral Poso, Sulawesi Tengah pada hari Natal, Selasa (25/12/2012) ini. Bom itu berhasil dijinakkan oleh Tim Gegana.

Informasi yang diperoleh detikcom, bom itu ditemukan di Pospol Lantas Pasar Sentral Poso pukul 06.30 WITA. Awalnya Briptu Hartono tiba di Pospol itu untuk melakukan pengamanan Operasi Lilin.

Briptu Hartono memeriksa sekitar Pospol. Dia kemudian membuka laci meja dan menemukan satu tas laptop berwarna hitam. Briptu Hartono kemudian bertanya kepada rekannya Briptu Sahrul mengenai kepemilikan tas laptop ini.

Namun tak ada anggota Pospol itu yang merasa memiliki tas laptop itu. Nah karena curiga, maka tak ada satu pun anggota yang bertugas di Pospol menyentuh tas dan menjauh dari Pospol itu. Komandan Pospol Bripka Made Surawan melaporkan tas laptop mencurigakan itu ke Polres Poso.

Sekitar pukul 07.10 WITA, satuan penjinak bom dari Satuan Brimob Polda Sulteng tiba di TKP untuk mengamankan tas laptop mencurigakan itu. Tas mencurigakan itu kemudian dijinakkan.

Hasilnya, dalam satu tas laptop bermerek Toshiba warna hitam itu didapati 1 HP Nokia, kabel hitam dan merah, jerigen 5 kg warna merah, paku 13 cm, paku 5 cm, nomor panggilan masuk 4 kali panggilan tak terjawab di HP, 2 detonator, kartu XL, uraian nitrat, kantong kresek merah dan pembungkus detonator.

Kadiv Humas Mabes Polri Irjen Pol Suhardi Alius ketika dikonfirmasi detikcom Polantas Pasar Sentral ini membenarkan penemuan itu.

“Iya, tadi pagi sebelum mengisi Pospam Pasar Sentral Poso dilakukan sterilisasi dan ditemukan ransel mencurigakan. Dan dilakukan pengecekan ternyata bom yang berhasil dijinakkan oleh Tim Gegana,” kata Suhardi dalam pesan tertulis.

“Sedang didalami siapa yang menaruh dan apakah ada kaitan dengan kelompok-kelompok yang dalam penyelidikan aparat,” tandas mantan Wakil Kapolda Metro Jaya ini.

5 Rencana Microsoft di 2013

1059215620X310
Surface Touch Cover, penutup sekaligus keyboard dan touchpad untuk tablet Surface besutan MicrosoftKOMPAS.com – Chief Executive Officer Microsoft Corporation, Steve Ballmer, menyebut perusahaan teknologi yang dipimpinnya tidak sekadar produsen perangkat lunak, tapi bertranformasi menjadi perusahaan perangkat dan layanan.

“Ini (peralihan menjadi perusahaan perangkat dan layanan) berdampak pada bagaimana kami mengelola perusahaan dan menawarkan produk ke pasar baik konsumen personal ataupun bisnis,” kata Ballmer, seperti dikutip Cnet.

Berikut lima perkiraan rencana Microsoft pada 2013 seperti disebut Jay Greene dari Cnet:

1. Tablet Windows 8. Microsoft diprediksi akan membanjiri pasar tablet dunia dengan perangkat bersistem operasi sepenuhnya Windows 8, bukan Windows RT.

Ujian besar pada perangkat baru itu adalah bobot dan kapasitas baterai, yaitu pada Surface Pro yang diperkirakan akan meluncur pada Januari 2013 seharga 899 dollar AS (sekitar Rp 8,63 juta).

2. Smartphone baru. Selain tablet, Microsoft juga diprediksi akan meluncurkan perangkat ponsel pintar (smartphone) baru seiring dengan peningkatan smartphone bersistem Windows Phone di pasar.

Perusahaan yang berbasis di Redmond, AS itu pernah meluncurkan ponsel Kin ONE dan Kin TWO yang berumur dua bulan di pasar pasca peluncuran.

3. Xbox Next
. Microsoft tampaknya tidak akan berhenti pada perangkat permainan digital Xbox, mengingat kesuksesan Xbox 360.

Microsoft diperkirakan akan meluncurkan perangkat bernama “Xbox Next” atau “Xbox 720” pada penyelenggaraan Electronic Entertainment Expo di Los Angeles, Juni 2013.

4. Skype sebagai layanan utama. Layanan percakapan video online Microsoft, Skype, akan dipakai sebagai nama layanan pesan instan Windwos Live Messenger dan Lync, yang ditujukan ke perusahaan-perusahaan.

Microsoft akan lebih ekspansif terhadap pemakaian kata “Skype” pada berbagai layanannya yang berbasis Internet, termasuk Skype untuk aplikasi Windows Phone dan Xbox.

5. Office 15. Produk utama yang akan diluncurkan Microsoft adalah Office 15 pada kuartal pertama 2013.

Produk Office 15 itu akan lebih menyesuaikan perangkat-perangkat berlayar sentuh seperti PC berlayar sentuh dan notebook berlayar sentuh disamping tablet dan smartphone. (ANT)

Indonesia Raih Dua Gelar Juara

Senin, 24 Desember 2012 | 00:06 WIB
2235476620X310
Fran Kurniawan/Shendy Puspa IrawatiJAKARTA, Kompas.com – Tim Indonesia akhirnya memastikan diri merebut dua gelar juara di turnamen India Terbuka GP Gold yang berakhir Minggu (23/12).

Dua gelar di rtaih di nomor tunggal pteri dan ganda campuran. Di nomor taunggal puteri, Lindaweni Fanetri keluar sebagai juara pertama turnamen yang berlangsung di Lucknnow, India tersebut.

Lindaweni memerlukan waktu satu jam 12 menit untuk mengalahkan pemain tuan rumah Sindhu PV 21-15,18-21, dan 21-18 pada babak final.

Sebelumnya, gelar pertama Indonesia diberikan ganda campuran Indonesia pasangan Fran Kurniawan/Shendy Puspa Irwati ini merebut gelar juara setelah mengalahkan pasangan Thailand Nipitphon Puangpuapech/Savitree Amitrapai dengan dua set langsung 21-12 dan 24-22.

Sayangnya gelar ketiga gagal dipersembahkan oleh ganda puteri Komala Dewi/jenna Gozali menghadapi  ganda vThailand Savitree Amitrapai/Sapsiree Taerattanachai, ganda Indonesia tampil gugup dan menyerah mudah 12-21 6-21.

Namun dua gelar ini telah cukup membuat Indonesia meraih gelar terbanyak. Tiga gelar lainnya dibagi rata antara tuan rumah India, Thailand dan Korea Selatan.

 

Sumber :
tournamentsoftware
Editor :
A. Tjahjo Sasongko