Tugas 5 VB I

eri2

source kode

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

Private Sub CmdProses_Click()
Dim S As String
TxtTH.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 = “Manajemen & Komp. Akuntansi”
End If

S = Mid(TxtNPM.Text, 4, 2)
If S = “00” Then
TxtProdi.Text = “Strata Satu”
ElseIf S = “02” Then
TxtProdi.Text = “Diploma Tiga”
ElseIf S = “02” Then
TxtProdi.Text = “Strata Satu”
ElseIf S = “03” Then
TxtProdi.Text = “Diploma Satu”
End If

TxtNU.Text = Right(TxtNPM.Text, 3)

End Sub

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

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

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub TxtNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub

Iklan

TUGAS 4

SOAL QUIS 1 KATEGORI 1

1

SOURCE KODE

Private Sub CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Right(Txtkode.Text, 2)
TxtTB.Text = TH

KB = Mid(Txtkode.Text, 3, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Andra Setiawan”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Desi Istiqomah”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Sandy Fitrajaya”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Tri Indah Sari”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Ernita”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Left(Txtkode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

KATEGORI 2

2

SOURCE KODE
Private Sub CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Mid(Txtkode.Text, 5, 2)
TxtTB.Text = TH

KB = Left(Txtkode.Text, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Fadiya Ulfa”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Nurul Agustina”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Rian Hidayat”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Siti Nur Khotimah”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Winda Erlianti”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Right(Txtkode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

Private Sub Form_Load()

End Sub

KATEGORI 3

3

SOURCE KODE

Private Sub Form_Load()

Cbokode.AddItem “A-SIM-01”

Cbokode.AddItem “I-EDP-02”

Cbokode.AddItem “S-MNJ-03”

Cbokode.AddItem “E-CDR-04”

Cbokode.AddItem “M-RPL-05”

End Sub

Private Sub Cbokode_Click()
Select Case Cbokode.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 CmdBTL_Click()
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub CmdKLR_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
TxtJB.Text = “”
TxtPGR.Text = “”
TxtTB.Text = “”
Txtpenerbit.Text = “”
Txtharga.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JB, PNG, HRG, PNB As String
TH = “20” & Right(Cbokode.Text, 2)
TxtTB.Text = TH

KB = Mid(Cbokode.Text, 3, 3)
If KB = “SIM” Then
KB = “SIM”
JB = “Sistem Informasi Manajemen”
PNG = “Andra Setiawan”
HRG = “75900”

ElseIf KB = “EDP” Then
KB = “EDP”
JB = “Elektronik Data Processing”
PNG = “Desi Istiqomah”
HRG = “62000”

ElseIf KB = “MNJ” Then
KB = “MNJ”
JB = “Manajemen”
PNG = “Sandy Fitrajaya”
HRG = “42000”

ElseIf KB = “CDR” Then
KB = “CDR”
JB = “Corel Draw”
PNG = “Tri Indah Sari”
HRG = “53000”

ElseIf KB = “RPL” Then
KB = “RPL”
JB = “Rekayasa Perangkat Lunak”
PNG = “Ernita”
HRG = “83000”
End If

TxtJB.Text = JB
TxtPGR.Text = PNG
Txtharga.Text = HRG

KOD = Left(Cbokode.Text, 1)
If KOD = “A” Then
KOD = “A”
PNB = “Andi Offset Yogyakarta”

ElseIf KOD = “I” Then
KOD = “I”
PNB = “Indah Surabaya”

ElseIf KOD = “S” Then
KOD = “S”
PNB = “Salemba Empat”

ElseIf KOD = “E” Then
KOD = “E”
PNB = “Elek Media Komputindo”

ElseIf KOD = “M” Then
KOD = “M”
PNB = “Maxicom”
End If
Txtpenerbit.Text = PNB

End Sub

KATEGORI 4

4

SOURCE KODE

Private Sub Cmdbtl_Click()
Txtgol.Text = “”
TxtKS.Text = “”
TxtSTS.Text = “”
TxtTH.Text = “”
TxtJBT.Text = “”
Txtbag.Text = “”
TxtGPK.Text = “”
TxtTJN.Text = “”
TxtTOT.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlg_Click()
Txtnama.SetFocus
Txtnama.Text = “”
TxtNIK.Text = “”
Txtgol.Text = “”
TxtKS.Text = “”
TxtSTS.Text = “”
TxtTH.Text = “”
TxtJBT.Text = “”
Txtbag.Text = “”
TxtGPK.Text = “”
TxtTJN.Text = “”
TxtTOT.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim JBT, BG As String
Dim GP, TJ, TG As Currency

TxtTH.Text = Left(TxtNIK.Text, 4)
Gol = Mid(TxtNIK.Text, 5, 1)
If Gol = “A” Then
Gol = “A”
JBT = “Manager”
GP = “4000000”
TJ = “1025000”

ElseIf Gol = “B” Then
Gol = “B”
JBT = “Ka. Seksi”
GP = “3500000”
TJ = “975000”

ElseIf Gol = “C” Then
Gol = “C”
JBT = “Staff”
GP = “3000000”
TJ = “925000”

End If

ks = Mid(TxtNIK.Text, 7, 1)
If ks = “S” Then
ks = “S”
STS = “Single”

ElseIf ks = “M” Then
ks = “M”
STS = “Menikah”

ElseIf ks = “J” Then
ks = “J”
STS = “Janda”

ElseIf ks = “D” Then
ks = “D”
STS = “Duda”

End If

bag = Right(TxtNIK.Text, 3)
If bag = “KEU” Then
bag = “KEU”
bag = “Accounting”

ElseIf bag = “ADM” Then
bag = “ADM”
bag = “Administrasi”

ElseIf bag = “SDM” Then
bag = “SDM”
bag = “General Affair”

ElseIf bag = “EDP” Then
bag = “EDP”
bag = “IT Unit”

ElseIf bag = “SPM” Then
bag = “SPM”
bag = “Security”
End If

Txtgol.Text = Gol
TxtKS.Text = ks
TxtSTS.Text = STS
TxtJBT.Text = JBT
Txtbag.Text = bag
TxtGPK.Text = GP
TxtTJN.Text = TJ
TxtTOT.Text = Val(TxtGPK.Text) + Val(TxtTJN.Text)

End Sub

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

TUGAS 3

1. Form Huruf Mutu

hurufmutu

Source Code

Private Sub Cbonpm_Click()
Dim nama, jur As String

Select Case Cbonpm.Text
Case “12100001”
nama = “Wahyu”
jur = “Sistem Informasi”
Case “12200002”
nama = “Dedi Irawan”
jur = “Manajemen Informatika”
Case “12300003”
nama = “Guntur”
jur = “Komputer Akuntansi”
Case “12100006”
nama = “Satria”
jur = “Sistem Informasi”
Case “12300007”
nama = “Rani”
jur = “Komputer Akuntansi”
End Select
Txtnama.Text = nama
Txtjur.Text = jur
Txtnquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjur.Text = “”
Txtnquis.Text = “”
Txtntgs.Text = “”
TxtUTS.Text = “”
TxtUAS.Text = “”
TxtNA.Text = “”
TxtHM.Text = “”
End Sub

Private Sub form_load()
Cbonpm.AddItem “12100001”
Cbonpm.AddItem “12200002”
Cbonpm.AddItem “12300003”
Cbonpm.AddItem “12100006”
Cbonpm.AddItem “12300007”
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdproses_Click()
TxtNA.Text = (Val(Txtnquis.Text) + Val(Txtntgs.Text) + Val(TxtUTS.Text) + Val(TxtUAS.Text)) / 4
Select Case TxtNA.Text
Case Is > 80
TxtHM.Text = “A”
Case Is > 70
TxtHM.Text = “B”
Case Is > 60
TxtHM.Text = “C”
Case Is > 50
TxtHM.Text = “D”
Case Is < 50
TxtHM.Text = “E”
End Select
End Sub

Private Sub Txtnquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtntgs.SetFocus
End If
End Sub

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

 

2. Form Property Text

TEXT

Source Code

Private Sub Chkmrg_Click()
Lblnama.FontItalic = Chkmrg.Value
End Sub

Private Sub Chktbl_Click()
Lblnama.FontBold = Chktbl.Value
End Sub

Private Sub Cmdok_Click()
Lblnama.Caption = Txtisi.Text
End Sub

Private Sub Cmdselesai_Click()
End
End Sub

Private Sub OptBr_Click()
Lblnama.ForeColor = vbBlue
End Sub

Private Sub Optmr_Click()
Lblnama.ForeColor = vbRed
End Sub

3. Perhitungan Gaji

GAJI

Source Code

Private Sub Cbogol_Click()
Dim Gaji, pajak, tunjangan, total As Variant
Select Case Cbogol.Text
Case “I”
Gaji = 1500000
tunjangan = 150000
Case “II”
Gaji = 2000000
tunjangan = 200000
Case “III”
Gaji = 2500000
tunjangan = 250000
Case “IV”
Gaji = 3000000
tunjangan = 300000
Case Else
Gaji = 0
tunjangan = 0
End Select
total = Gaji + tunjangan
pajak = total * 0.1
Txtgjp.Text = Gaji
Txttjg.Text = tunjangan
Txtpjk.Text = pajak
TxtTerima.Text = total – pajak
Txtnidn.SetFocus
End Sub

Private Sub Form_load()
Cbogol.AddItem “I”
Cbogol.AddItem “II”
Cbogol.AddItem “III”
Cbogol.AddItem “IV”
End Sub

Private Sub Cmdbatal_Click()
batal
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdlg_Click()
lagi
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If

End Sub

Public Sub lagi()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogol.Text = “”
Txtgjp.Text = “”
Txttjg.Text = “”
Txtpjk.Text = “”
TxtTerima.Text = “”
End Sub

Public Sub batal()
Cbogol.SetFocus
Cbogol.Text = “”
Txtgjp.Text = “”
Txttjg.Text = “”
Txtpjk.Text = “”
TxtTerima.Text = “”
End Sub

4. Form Data Mahasiswa

DATA

Source Code
Private Sub Cmdbtl_Click()
Txtnama.SetFocus
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdlgi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnu.Text = “”
End Sub

Private Sub Cmdpros_Click()
Dim S 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 = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
Txtprodi.Text = “Strata Satu”
ElseIf S = “2” Then
Txtprodi.Text = “Diploma Tiga”
ElseIf S = “3” Then
Txtprodi.Text = “Diploma Empat”
ElseIf S = “4” Then
Txtprodi.Text = “Diploma Dua”
End If
Txtnu.Text = Right(Txtnpm.Text, 3)

End Sub

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

Tugas Pertemuan 2

1. Perkalian Dua Bilangan

Perkalian

Kode Program

Private Sub Command1_Click()

txtagk3.Text = Val(txtagk1.Text) * Val(txtagk2.Text)

End Sub

Private Sub Command2_Click()

txtagk1.SetFocus

txtagk1 = “”

txtagk2 = “”

txtagk3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub txtagk1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtagk2.SetFocus

End If

End Sub

2. Kalkulator

Kalkulator sederhana

Kode Program

Private Sub cmd1_Click()

txtn3.Text = Val(txtn1.Text) + Val(txtn2.Text)

End Sub

Private Sub Cmd2_Click()

txtn3.Text = Val(txtn1.Text) – Val(txtn2.Text)

End Sub

Private Sub Cmd3_Click()

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

End Sub

Private Sub Cmd4_Click()

txtn3.Text = Val(txtn1.Text) / Val(txtn2.Text)

End Sub

Private Sub Cmdkel_Click()

End

End Sub

Private Sub Cmdlg_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txtn3 = “”

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

3. Penghitung Gaji

perhitungan gaji

Kode Program

Private Sub CmdK_Click()

End

End Sub

Private Sub cmdP_Click()

txtGK.Text = Val(txtGP.Text) + Val(txtTJ.Text) – Val(txtPOT.Text)

txtPJ.Text = Val(txtGK.Text) * 0.1

txtGD.Text = Val(txtGK.Text) – Val(txtPJ.Text)

End Sub

Private Sub CmdUL_Click()

txtGP.SetFocus

txtGP = “”

txtTJ = “”

txtPOT = “”

txtGK = “”

txtPJ = “”

txtGD = “”

End Sub

Private Sub txtGP_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtTJ.SetFocus

End If

End Sub

Private Sub txtTJ_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtPOT.SetFocus

End If

End Sub

4. Kasir Mini

Kasir Mini

Kode Program

Private Sub Command1_Click()

txtD.Text = Val(txtHA.Text) * 0.1

txtHK.Text = Val(txtHA.Text) – Val(txtD.Text)

End Sub

Private Sub Command2_Click()

txtHA.SetFocus

txtHA = “”

txtD = “”

txtHK = “”

End Sub

Private Sub Command3_Click()

End

End Sub

5. Font Color & Font Style

Font

Kode Program

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

txtlbl.FontBold = True

Else

txtlbl.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

txtlbl.FontItalic = True

Else

txtlbl.FontItalic = False

End If

End Sub

Private Sub ChkStrike_Click()

If ChkStrike.Value = 1 Then

txtlbl.FontStrikethru = True

Else

txtlbl.FontStrikethru = False

End If

End Sub

Private Sub ChkUnder_Click()

If ChkUnder.Value = 1 Then

txtlbl.FontUnderline = True

Else

txtlbl.FontUnderline = False

End If

End Sub

Private Sub CmdEx_Click()

End

End Sub

Private Sub OptBlue_Click()

txtlbl.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

txtlbl.ForeColor = vbGreen

End Sub

Private Sub optRed_Click()

txtlbl.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

txtlbl.ForeColor = vbYellow

End Sub

Tersangkut Hutang, Kapal Pesiar Steve Jobs ‘Gagal’ Berlayar

oleh Dewi Widya Ningrum
Posted: 24/12/2012 10:20

perahu_steve_job_121224afp

(AFP Foto/Charles Onians)

Liputan6.com, Venus, kapal pesiar supermegah nan minimalis yang merupakan warisan almarhum Steve Jobs, gagal berlayar karena sengketa hutang. Kapal ini tertunda berlayar karena sebagian pembiayaan proyeknya belum dibayar.

Sang desainer Philippe Starck mengklaim bahwa ahli waris Steve Jobs masih berhutang 3 juta Euro. Total proyek pembangunan kapal Venus sendiri mencapai 9 juta Euro. Demikian disebutkan harian surat kabar Belanda Het Financieele Dagblad.

Lantaran sengketa hutang itulah, Starck pun menyita kapal pesiar ‘Venus’ yang memiliki arti Dewi Cinta. Dikutip dari BBC, Senin (24/12/2012), pelabuhan Amsterdam juga sudah mengkonfirmasi bahwa kapal itu tidak diperbolehkan meninggalkan pelabuhan sampai sengketa hutang diselesaikan.

“Kapal ini masih baru, namun masih ada masalah hutang 3 juta euro. Para pihak yang terlibat harus menyelesaikannya dahulu,” kata Jeroen Ranzijn, juru bicara Pelabuhan Amsterdam.

Kapal Venus berukuran panjang 80 meter yang dikelilingi kaca hingga 12 meter. Kapal ini terbuat dari bahan panel alumunium yang merupakan impian Jobs. Kapal Venus pertama kali dicoba di air pada bulan Oktober lalu di galangan kapal di Aalsmeer, Belanda.

Starck berkolaborasi dengan Steve Jobs untuk membangun proyek kapal ini selama lima tahun. Kapal ini dirancang minimalis dan ramping, yang menunjukkan sebuah keanggunan intelijen. Kapal ini bahkan memiliki jendela berukuran tinggi 3 meter.

Selama pembangunan kapal Venus, Jobs turut menyumbangkan ide-ide desainnya. Steve Jobs meninggal karena mengidap kanker pankreas pada tahun 2011 lalu. Sayang ia tak sempat melihat perahunya berlayar di laut. (DEW)

http://tekno.liputan6.com/read/473827/tersangkut-hutang-kapal-pesiar-steve-jobs-gagal-berlayar

Ini Dia, Video Terfavorit 2012 Versi YouTube

Jumat, 21 Desember 2012 08:41 | Ditulis oleh Indah Puspita M |

youtube-logo

Kalau minggu lalu ada daftar pencarian terpopuler Google di Indonesia selama tahun 2012, kini giliran YouTube mengingatkan pengguna internet Indonesia mengenai video, selebritis dan momen-momen menarik di tahun 2012.

Tahun ini, musik merajai video-video terpopular di Indonesia, dengan musik pop Korea seperti “Gangnam Style” melampaui batas-batas negara dan bahasa. Musik lokal pun menjadi tuan rumah di YouTube Indonesia yang juga bisa dinikmati oleh netter-netter dunia.

Bagi YouTube, 2012 adalah tahun yang cukup mengesankan. Pengguna internet telah menonton lebih dari 4 miliar jam video per bulan. Jutaan pencipta video menggunakan sarana saluran YouTube untuk bereksperimen dengan hiburan inovatif, mengeksplorasi hobi dan kepentingan mereka demi meningkatkan kreativitas dan budaya pop secara global.

Lantas video apa saja yang menjadi favorit pencarian di tahun 2012? Penasaran? Ini dia daftarnya.

Top Trending Video YouTube di Indonesia:
PSY – GANGNAM STYLE M/V
Armada – Hargai Aku (Official Video)
NOAH – SEPARUH AKU (Official Video)
Last Child ft. Giselle – Seluruh Nafas Ini #OBTE (OFFICIAL VIDEO)

The Secret State Music – The Biggest Mistake – Official Video
Trio Macan – Iwak Peyek (FULL CLIP)
Zivilia – Aishiteru 2 (HD)
PSY (ft. HYUNA)
BIGBANG – FANTASTIC BABY M/V
COBALAH MENGERTI – Ariel, Uki, Lukman, Reza, David feat Momo Geisha

http://www.infokomputer.com/berita/1-latest-news/5847-ini-dia-video-terfavorit-2012-versi-youtube

Ratusan Polisi & Personel TNI Jaga Lokasi Bentrok di Denpasar

Senin, 24 Desember 2012 10:03 wib

stHRS8g9J3
Foto ilustrasi kerusuhan (Doc. Okezone)

DENPASAR – Situasi di lokasi bentrok di Denpasar, Bali, masih mencekam, pascakeributan antara ormas Padang Sambian Bersatu dan Laskar Bali.

Berdasarkan pantauan, Senin (24/12/2012) siang, satu kompi personel Brimob Polda Bali dan dua SSK Kompi A Yonif Raider 900 masih berjaga di beberapa sudut kawasan Padang Sambian.

Petugas juga menjaga rumah Gung Suma, Dewan Penasihat Laskar Bali, yang dibakar oleh massa. Posko Laskar Bali dan sebuah salon yang dirusak massa juga belum dibersihkan.

Lokasi bentrok di Jalan Buana Raya dan Jalan Mahendradatta juga sempat menarik perhatian warga yang melintas.

Sementara itu, tujuh unit sepeda motor yang dibakar massa saat ini diamankan ke Mapolresta Denpasar. Selain itu ada dua mobil jenis SUV yang dirusak massa, namun tidak diamankan ke mapolres.

Rencananya, siang ini polisi akan memediasi pertemuan ormas Laskar Bali dan Padang Sambian.

Pertikaian dua ormas besar di Bali itu terjadi sejak Minggu, 23 Desember malam hingga dini hari.

Kasubag Humas Polresta Denpasar, AKP Ida Bagus Made Sarjana, mengatakan, dugaan sementara, pertikaian dipicu aksi penutupan toko kembang api milik Paulina oleh massa dari Padang Sambian. Kelompok pemuda tersebut menginginkan tidak ada penjualan kembang api di wilayah mereka sebelum puncak perayaan malam Tahun Baru.

Penutupan toko akhirnya menyulut pro-kontra antara massa LB dan Padang Sambian Bersatu sehingga terjadi ketegangan. Ketegangan berlanjut antarkelompok hingga berujung aksi pembakaran dan perusakan. (ton)

(Slamet Kurniawan/Sindo TV/mbs)

http://news.okezone.com/read/2012/12/24/340/736302/ratusan-polisi-personel-tni-jaga-lokasi-bentrok-di-denpasar

Acer Rencana Jual Tablet Android di Bawah Rp1 Juta

Ahmad Luthfi – Okezone
Minggu, 23 Desember 2012 11:57 wib

Ej4MG2jlGL

TAIPEI – Produsen komputer asal Taiwan, Acer, berencana memasarkan tablet Android ciptaannya dengan banderol yang terjangkau. Harga perangkat dengan sistem operasi “Robot Hijau” itu kabarnya akan dijual dengan harga USD99 (sekira Rp950 ribu).

Dilansir Softpedia, Minggu (23/12/2012), Acer dilaporkan bersiap meluncurkan tablet Android termurah yang mengusung layar sentuh berukuran 7 inci. Perangat anyar besutan Acer ini konon akan mirip dengan Nexus 7 besutan raksasa mesin pencari, Google.

Tablet dengan harga terjangkau dari Acer ini kabarnya akan beredar di kuartal pertama tahun depan.DigiTimes menguatkan informasi tersebut, yang menyebut Acer akan membanderol sekira USD99 (75 euro).

Rumor yang menyeruak mengungkap Acer akan mengemas tablet keluarannya ini dengan prosesor MediaTek. Dengan demikian, biaya produksi tidak akan meroket tinggi, sehingga perangkat bisa dilepas dengan harga rendah.

Meskipun demikian, Acer sendiri belum memberikan penjelasan apapun tentang produk terbaru unggulannya. Kabar ini muncul dari produsen pemasok yang berbasis di Taiwan, yang juga mengungkap bahwa ASUS akan mengusung perangkat sejenis, yang kini sedang dalam tahap pengembangan. (fmh)

 http://techno.okezone.com/read/2012/12/23/57/736036/acer-rencana-jual-tablet-android-di-bawah-rp1-juta

Yamaha Siap Main di Sport 250cc

Septian Pamungkas – Okezone
Senin, 17 Desember 2012 10:32 wib

detail berita

F: Yamaha YZF R4-250 (Motorbeam)

JAKARTA – Yamaha Indonesia menyatakan ketertarikannya melansir motor sport di kelas 250cc, ketimbang menghadirkan motor sport murah seperti yang akan dilakukan kompetitor pada awal tahun depan.

Pernyataan tersebut diungkapkan langsung oleh Executive Vice President Yamaha Indonesia Motor Manufacturing (YIMM) Dyonisius Beti. Menurutnya, Yamaha sudah siap bermain di segmen motor sport kelas 250cc.

“Yamaha lebih tertarik bermain di kelas 250cc. Pokoknya tunggu saja, kalau pasar membutuhkan segmen 250, kita siap,” ungkap Executive Vice President Yamaha Indonesia Motor Manufacturing (YIMM) Dyonisius Beti usai peluncuran Yamaha V-Ixion di Bandung, Jawa Barat.

Sebelumnya, Yamaha sudah menunjukkan keseriusannya untuk menghadirkan motor berkapasitas 250cc lebih dulu di pasar India. Meski belum jelas kepastiannya, Yamaha berencana menghadirkan motor itu pada 2014 mendatang sebab saat ini masih fokus pada penjualan skutik.

“Kami akan fokus pada kategori skuter untuk dua tahun ke depan, tetapi pada 2014 kami akan meluncurkan motor sport 250cc untuk pasarIndia. Disana terdapat pasar yang bagus untuk segmen premium yang kami sasar,” ungkap MD & CEO Yamaha India Hiroyuki Suzuki, seperti dilansir Motorbeam.

Sampai saat ini belum diketahui seperti apa wujud dari motor 250cc tersebut. Apakah nantinya bakal menjadi Yamaha Fazer 250cc atau model yang sama sekali baru yang memiliki garis-garis seperti R15.

Yang pasti, Yamaha 250cc ini dihadirkan untuk melawan dominasi Kawasaki Ninja 250, Honda CBR250 dan Suzuki GW250. (ian)

http://autos.okezone.com/read/2012/12/17/53/733081/yamaha-siap-main-di-sport-250cc

 

Honda Air Blade 2013 Unjuk Gigi

Septian Pamungkas – Okezone

Minggu, 23 Desember 2012 10:01

detail berita

F: Honda Air Blade 2013

HANOI – Konsumen Vietnam akan mendapat kado spesial dipenghujung tahun ini. Betapa tidak, Honda Vietnam berencana untuk melansir Air Blade terbaru pada 30 Desember 2012.

Kabarnya, model anyar ini selain mendapat penyegaran tampilan juga diperkuat teknologi terkini. Penyegaran paling nyata terlihat pada lampu tunggal model lawas dipensiunkan lalu diganti model proyektor kembar. Sementara lampu belakangnya telah menganut tipe LED.

Panel indikator model ini juga mendapat sentuhan baru yang membuatnya terlihat lebih modern. Didalamnya terdapat informasi bahan bakar, jam, odometer dan trip meter.

Sama seperti halnya Vario Techno di Indonesia, Air Blade naik kelas dari 110cc menjadi 125cc. Jantung mekanis tersebut telah mengadopsi teknologi injeksi Honda (PGM-FI) serta idling stop system. Skutik baru ini diklaim lebih hemat 22 persen.

Menariknya, Air Blade terbaru ini diperkuat fitur Intelligent vehicle location system. Fitur ini dapat mempermudah dalam mencari skutik kesayangannya saat berada di tempat parkir yang gelap. Sebab lampu depan motor ini dapat menyala dan klakson bersuara.

Sedikitnya ada tiga tipe yang ditawarkan ke konsumen yakni Standard, Deluxe dan Deluxe Limited. Sementara banderol skutik baru ini berkisar antara Rp17,6 – 18,5 jutaan. (ian)

http://autos.okezone.com/read/2012/12/22/53/735968/honda-air-blade-2013-unjuk-gigi