Tugas Visual Basic 1, Tugas Ke 4

Nama : Desi Retnosari
Kelas : Twitter12
MK : Visual Basic

Program Ke 1

Source Code :

Private Sub Command1_Click()
Dim S As String
Text5.Text = "20" & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = "1" Then
Text3.Text = "Sistem Informasi"
ElseIf S = "2" Then
Text3.Text = "Manajemen Informatika"
ElseIf S = "3" Then
Text3.Text = "Tehnik Informatika"
ElseIf S = "4" Then
Text3.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(Text2.Text, 4, 2)
If S = "01" Then
Text4.Text = "Strata Satu"
ElseIf S = "02" Then
Text4.Text = "Diploma Tiga"
ElseIf S = "03" Then
Text4.Text = "Diploma Empat"
ElseIf S = "04" Then
Text4.Text = "Diploma Dua"
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

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

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Program 2

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Yati Nur Oktavia”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Imam Tarmizi”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Valentina Mariana Adiwiyanti”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Riyan Suhandi”
Text5.Text = 53000
ElseIf S = “RLP” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Sinta Umpu Singa”
Text5.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Right(Combo1.Text, 2)
If S = “01″ Then
Text3.Text = “2001″
ElseIf S = “02″ Then
Text3.Text = “2002″
ElseIf S = “03″ Then
Text3.Text = “2003″
ElseIf S = “04″ Then
Text3.Text = “2004″
ElseIf S = “05″ Then
Text3.Text = “2005″
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “A-SIM-01″
Combo1.AddItem “I-EDP-02″
Combo1.AddItem “S-MNJ-03″
Combo1.AddItem “E-CDR-04″
Combo1.AddItem “M-RLP-05″
End Sub

Program 3

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 1, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Fadiya Ulfa”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Nurul Agustina”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Rian Hidayat”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Siti Nur Khotimah”
Text5.Text = 53000
ElseIf S = “RPL” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Winda Erlianti”
Text5.Text = 83000
End If
S = Right(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Mid(Combo1.Text, 5, 2)
If S = “09″ Then
Text3.Text = “2009″
ElseIf S = “10″ Then
Text3.Text = “2010″
ElseIf S = “11″ Then
Text3.Text = “2011″
ElseIf S = “12″ Then
Text3.Text = “2012″
ElseIf S = “13″ Then
Text3.Text = “2013″
End If
End Sub

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

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

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “SIM-09-A”
Combo1.AddItem “EDP-10-I”
Combo1.AddItem “MNJ-11-S”
Combo1.AddItem “CDR-12-E”
Combo1.AddItem “RPL-13-M”
End Sub

Program 4

Source Code :

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
Text4.Text = S

S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000″
Text8.Text = “1025000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000″
Text8.Text = “975000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000″
Text8.Text = “925000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If

S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
txtAdi2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(txtAdi11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
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 = “”
Text10.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 = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Tugas Pemrograman Visual Basic I (Program Ke-10)

01 Mar

 

 

 

 

 

 

Rate This

 

 

NAMA          : DESI RETNOSARI
NPM            : 12100674
KLS             : TWITTER 12
TUGAS        : PROGRAM KE-10

KODE PROGRAM :

Private Sub Form_Load()
CboNPM.AddItem “12100661″
CboNPM.AddItem “12100662″
CboNPM.AddItem “12100663″
CboNPM.AddItem “12100664″
CboNPM.AddItem “12100665″
End Sub

Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661″
Nama = “EKA ISTIANA DEWI”
Jurusan = “Sistem Informasi”
Case “12100662″
Nama = “ERIS PUTRI WAHYUNI”
Jurusan = “Manajemen Informatika”
Case “12100663″
Nama = “DEFIRA AYU WIDYA MUSTIKA”
Jurusan = “Teknisi Komputer”
Case “12100664″
Nama = “FESUS FERIYANTO”
Jurusan = “Operator Komputer”
Case “12100665″
Nama = “GAGA JERTA MAHENDRA”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
End Sub

Private Sub TxtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXtTugas.SetFocus
End If
End Sub

Private Sub TXtTugas_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 TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA

Select Case TxtNA.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
TxtHurufMutu.Text = HurufMutu
End If
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA

Select Case TxtNA.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
TxtHurufMutu.Text = HurufMutu
End Sub

Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

KODE PROGRAM :

Private Sub Form_Load()
CboNPM.AddItem “12100661″
CboNPM.AddItem “12100662″
CboNPM.AddItem “12100663″
CboNPM.AddItem “12100664″
CboNPM.AddItem “12100665″
End Sub

Private Sub CboNPM_Click()
Dim Nama, Jurusan, HurufMutu As String
Select Case CboNPM.Text
Case “12100661″
Nama = “DESI RETNOSARI”
Jurusan = “Sistem Informasi”
Case “12100662″
Nama = “DEWI AYU”
Jurusan = “Manajemen Informatika”
Case “12100663″
Nama = “M FAHMI FAUZI”
Jurusan = “Teknisi Komputer”
Case “12100664″
Nama = “RIDHO JUWANDA”
Jurusan = “Operator Komputer”
Case “12100665″
Nama = “RINA PWANDU”
Jurusan = “Programmer”
End Select
TxtQuis.SetFocus
TxtNama.Text = Nama
TxtJurusan.Text = Jurusan
TxtQuis.SetFocus
End Sub

Private Sub TxtQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXtTugas.SetFocus
End If
End Sub

Private Sub TXtTugas_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 TxtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNA.SetFocus
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA

Select Case TxtNA.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
TxtHurufMutu.Text = HurufMutu
End If
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim HurufMutu As String
Quis = Val(TxtQuis.Text)
Tugas = Val(TXtTugas.Text)
UTS = Val(TxtUTS.Text)
UAS = Val(TxtUAS.Text)
NA = (Quis + Tugas + UTS + UAS) / 4
TxtNA.Text = NA

Select Case TxtNA.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
TxtHurufMutu.Text = HurufMutu
End Sub

Private Sub CmdBatal_Click()
CboNPM.SetFocus
CboNPM = “”
TxtNama = “”
TxtJurusan = “”
TxtQuis = “”
TXtTugas = “”
TxtUTS = “”
TxtUAS = “”
TxtNA = “”
TxtHurufMutu = “”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Makin Mewah, Harga CX-9 Justru Turun Rp10 Juta

VIVAnews – Meningkatnya pasar mobil SUV (Sport Utility Vehicle) nasional, langsung respon PT Mazda Motor Indonesia (MMI) dengan meluncurkan generasi terbaru Mazda CX-9.

Untuk memberikan persaingan, MMI melakukan penambahan baik pada bagian interior, eksterior maupun riset.

Menariknya, meski banyak penambahan, MMI malah menurunkan harga Mazda CX-9 dari Rp808 juta –versi lawas menjadi Rp799,9 juta.

“Sekarang jadi 799,9 juta. Versi terdahulunya Rp808 juta,” kata Astrid Ariani Wijana, Manager Marketing PT MMI, usai peluncuran New Mazda CX-9 di Jakarta, Kamis 31 Januari 2013.

Sales Manager MMI, Haryanto Djayaputra, mengatakan penurunan harga merupakan salah satu strategi Mazda Indonesia untuk mengambil pasar SUV premium.

Lebih lanjut, Haryanto menyatakan, penurunan harga hampir 10 juta tersebut dipastikan dapat menjadi nilai lebih CX-9 di kelasnya.

Tidak terlalu berbeda dengan tahun lalu, MMI menargetkan penjualan New Mazda CX-9 di tahun 2013 sebanyak 15 unit per bulan.

Bagi konsumen yang ingin membeli SUV dengan kapasitas 7 penumpang itu, bisa mulai memesan pada bulan ini dan akan mendapatkannya pada Februari 2013.

Haryanto menambahkan, sebelum diluncurkan mobil yang diimpor utuh dari Jepang itu telah banyak dipesan konsumen. “Sudah ada 25 unit yang inden. Rencananya tiga bulan ke depan Mazda CX-9 tidak ada kenaikan harga,” kata dia.

Kepala BNP2TKI Laporkan @Triomacan2000 ke Polda Metro Jaya

VIVAnews – Kepala Badan Nasional Penempatan dan Perlindungan Tenaga Kerja Indonesia (BNP2TKI) Mohammad Jumhur Hidayat akhirnya menempuh jalur hukum atas fitnah yang dilontarkan oleh akun Twitter Triomacan2000. Jumhur secara resmi mengadukan akun anonim tersebut ke Polda Metro Jaya.

“Kapolda Metro Jaya untuk menindaklanjuti pemberitaan tersebut karena dapat mencemarkan nama baik Kepala BNP2TKI dan institusi BNP2TKI,” kata Jumhur dalam surat aduan yang diterima VIVAnews, Jumat 1 Februari 2013.

Dalam surat bernomor B/15/KA/I/2013 dengan lima lembar lampiran tersebut, Jumhur juga menyinggung soal pemerasan yang diterimanya begitu Triomacan2000 menyerang. Jumhur meminta penegak hukum untuk menindak yang bersangkutan.

“Ada seseorang yang tidak dikenal identitasnya telah melakukan pemerasan,” ujarnya.

Selain ditujukan ke Kapolda Metro Jaya, surat tertanggal 31 Januari 2013 tersebut juga ditembuskan ke Komisi IX DPR RI (membidangi kependudukan, kesehatan, tenaga kerja dan transmigrasi), Kapolri, Waka Polri, Irwasum Polri, dan Kaba Reskrim Polri.

Seperti diketahui, akun TrioMacan2000 menuding ada korupsi di lingkungan BNP2TKI.

Dalam kicauan-kicauannya, TrioMacan2000 menyebut nama Jumhur dan dua adiknya terlibat praktik mafia TKI, mulai dari pemalsuan dokumen (usia dan identitas calon TKI), korupsi asuransi, sampai pemerasan TKI yang akan berangkat dan baru kembali ke Tanah Air.

Jumhur sudah membantah tuduhan-tuduhan tersebut sebelumnya. “Saya sudah lihat tuduhan- tuduhan yang dituliskan olehnya. Saya tegaskan itu fitnah yang cukup keji dan tidak berdasar,” ucapnya.

Julian Assange Maju ke Pemilihan Senator Australia

VIVAnews – Pendiri Wikileaks, Julian Assange, masuk dalam bursa pencalonan senator Australia yang akan berlangsung tahun ini. Rencana tersebut diumumkan melalui Twitter Wikileaks.

Seperti dilaporkan The Telegraph, Rabu 30 Januari 2013, twit Wikileaks itu berbunyi: “Australia, Julian Assange memastikan ikut serta dalam Pemilihan Umum 2013 dan mencalonkan diri sebagai senator Australia.” Perdana Menteri Australia Julia Gillard mengatakan pemilu akan digelar 14 September 2013.

Niat Assange ikut dalam bursa senat sesungguhnya sudah diutarakan sejak tahun lalu, ketika dia masih berada di Kedutaan Besar Ekuador di London dalam rangka meminta suaka untuk menghindari ekstradisi ke Swedia. Ketika itu pemerintah Inggris menolak menjamin pria 41 tahun itu untuk dapat keluar dari Inggris dengan selamat.

Menurut harian Australia, The Age, Assange bahkan akan mendaftarkan Wikileaks sebagai partai yang akan mengusungnya nanti ke Komisi Pemilihan Australia. Untuk dapat terpilih sebagai anggota Senat Australia, maka  Assange harus dapat meraih sebanyak 500 suara.

Namun jika Assange terpilih sebagai senator tetapi posisinya masih berada di Inggris, maka orang lain akan dinominasikan untuk mengisi posisi Assange tersebut. Assange sendiri sampai saat ini masih berada di luar Australia.

Sosok Julian Assange sendiri tergolong populer di Australia. Situs yang dibuat Assange, Wikileaks, sempat membuat Amerika Serikat kebakaran jenggot pada tahun 2010 karena mempublikasikan ratusan dokumen rahasia milik AS terkait perang Irak dan Afghanistan. Ratusan isi surat kawat diplomatik AS pun ikut dibocorkan Wikileaks. Hal ini membuat malu pemerintah AS.

Assange tak pelak menjadi sosok yang paling dicari oleh AS, hingga dia ditemukan bersembunyi di Kedutaan Besar Ekuador di Inggris. Namun pada tahun 2012, Assange terjerat kasus kekerasan seksual yang membuatnya terancam diekstradisi ke Swedia.

Beredar kabar bahwa setelah Assange berhasil diekstradisi, pemerintah Swedia akan menyerahkannya kepada AS untuk diinterogasi seputar aksi-aksi Wikileaks yang membocorkan ratusan telegram diplomatik AS. (kd)

Ledakan di Perusahaan Minyak Meksiko, 14 Tewas

VIVAnews – Sebuah ledakan dahsyat terjadi di kantor pusat perusahaan minyak Meksiko, Pemex, Kamis waktu setempat. Ledakan yang terjadi di lantai dasar itu menewaskan belasan orang dan melukai sekitar 100 orang lainnya.

Seperti diberitakan Reuters, ledakan itu memicu kegaduhan di kota Mexico City. Puing-puing dan kaca bertebaran hingga ke jalan, ratusan orang panik berlarian ke luar gedung.

Menteri Dalam Negeri Miguel Angel Osorio Chong mengatakan bahwa ledakan menewaskan sedikitnya 14 orang. Polisi dan pemadam kebakaran dibantu anjing pelacak masih terus menyusuri TKP, dikhawatirkan jumlah korban akan bertambah.

Pihak Pemex mengatakan, sebelum ledakan terjadi, para penghuni telah dievakuasi karena listrik mati. Sesaat kemudian, ledakan terjadi.

Menurut laporan media di Meksiko, insiden itu terjadi akibat mesin yang meledak di dalam gedung. Namun, seorang tim medis yang enggan disebutkan namanya mengatakan, ledakan kemungkinan karena kebocoran gas.

Beberapa orang di lokasi mengatakan ledakan berasal dari gedung sebelah. Hingga saat ini belum bisa dipastikan apa penyebab ledakan di gedung setinggi lebih dari 50 lantai tersebut.

Ini bukan kali pertama Pemex ditimpa musibah. Insiden serupa terjadi September tahun lalu di fasilitas gas alam di utara Mexico, menewaskan 30 orang. Tahun 1984, lebih dari 300 orang tewas saat pabrik gas alam di pinggiran Mexico City meledak. (sj)

BlackBerry10 Muncul, Saham RIM Malah Anjlok

VIVAnews – Research In Motion, yang kini berubah nama menjadi BlackBerry, baru saja meluncurkan dua produk berbasis sistem operasi BlackBerry 10 di New York, AS, dini hari tadi.

Kedua produk yang tertunda lama itu adalah BlackBerry Z10 dan BlackBerry Q10. Ini diharapkan menjadi momentum yang tepat bagi RIM untuk lepas landas dan kembali melawan rival-rivalnya yang semakin kuat.

Namun, setelah kemunculan OS BlackBerry10, serta kedua produk perdananya, saham BlackBerry justru anjlok 12 persen. Jatuhnya nilai saham RIM mensinyalir bahwa para investor merasa skeptis terhadap dua produk BlackBerry akan mampu “mencuri” pengguna perangkat Apple dan Google Android.

Memang momen peluncuran BlackBerry Z10 dan BlackBerry Q10 menjadi pertaruhan hidup dan mati bagi perusahaan asal Kanada itu. Seperti diketahui, penjualan BlackBerry terus merosot. Setidaknya dalam satu tahun terakhir, penjualan perangkat BlackBerry anjlok hingga 36,4%, dibandingkan tahun 2011.

CEO BlackBerry Thorsten Heins dan tim dipaksa memutar otak agar perusahaan yang dibinanya kembali mencatat untung.

Sayang, presentasi Heins di peluncuran BlackBerry10 tadi malam gagal mengesankan para investor. Nilai saham RIM pun tidak tertolong.

“Saya pikir upaya ini tidak mampu mendongkrak nilai saham BlackBerry,” kata Roger Entner, analis Recon Analytics, Kamis 31 Januari 2013. “Setidaknya (BlackBerry10) tidak cukup untuk membuat orang beralih dari Apple iOS atau Android.” (eh)

Legenda F1 Sarankan Hamilton Tinggalkan Gaya Hidup Glamor

VIVAnews – Legenda balap mobil Formula 1, Sir Jackie Stewart mengingatkan pembalap baru tim Mercedes, Lewis Hamilton untuk menghindari kehidupan glamor jika ingin terus sukses di F1.

Seperti diketahui, Hamilton sudah lebih dulu berkenalan dengan selebriti dunia sejak berpacaran dengan penyanyi Nicole Scherzinger. Banyak pihak mengatakan jika kehidupan Hamilton diatur oleh Nicole.

“Jika saya menjadi Lewis, saya tidak akan meninggalkan McLaren. Tapi dia sudah 28 tahun dan seharusnya dia tahu apa yang dia lakukan. Dia harus berhati-hati untuk tidak terbuai dengan statusnya sebagai selebriti ketimbang pembalap F1. Hal tersebut bisa memabukkan,” ujar Stewart seperti dilansir The Sun.

“Lewis harus lebih konsisten dalam membalap dan lupakan isu-isu yang ada di sekitarnya. Dia tidak boleh diganggu, pikirannya hanya boleh diisikan dengan kegiatan yang ada di sekitar sirkuit.”

Meski statusnya sudah menajdi Juara Dunia, titu tidak menjadi jaminan bagi Hamilton untuk menjadi anak emas Mercedes. Stewart berpendapat jika dia akan terus diawasi oleh bos Mercedes, Ross Brawn.

“Faktor Ross Brawn sangatlah penting. Dia tahu apa yang harus dia lakukan. Dan Lewis harus bisa bekerja sama dengannya dan bergantung kepadanya dan di saaat yang bersamaan dia harus tampil bagus.”

Pria Skotlandia tersebut yakin jika Hamilton bisa melakukan hal yang disarankannya, bukan tidak mungkin dia akan menjadi salah satu kandidat Juara Dunia di musim 2013.

BOPI Temukan Pelanggaran Terkait Tewasnya Petinju Muda Indonesia

VIVAnews – BOPI telah menemukan satu pelanggaran dalam pertandingan tinju yang menewaskan Tubagus Setia Sakti, pekan lalu. Haryo Yuniarto selaku ketua BOPI menyatakan telah terjadi rangkap jabatan antara match maker (pengatur pertandingan) dengan promotor.

Menurut Haryo, harusnya rangkap jabatan tersebut tidak boleh terjadi. Karena fungsi promotor adalah menjadi pengawas secara keseluruhan. Dan apabila pelanggaran tersebut masih terjadi, maka di situ muncul kecurigaan, salah satunya adalah terjadinya konflik kepentingan.

“Sejauh ini ada satu pelanggaran yang saya temukan yaitu rangkap peran match maker atau penata tanding dengan promotor. Harus jabatan tersebut dipisah karena tugas promotor adalah mengawasi secara keseluruhan. Ada rangkap peran maka bisa jadi di sana ada conflict of interest,” kata Haryo.

Haryo melanjutkan, pihak saat ini masih terus mendalami kasus meninggalnya Tubagus. Sedangkan untuk sanksi, menurutnya yang paling mungkin dilakukan oleh BOPI adalah mencabut lisensi mereka-mereka yang dianggap  bertanggung jawab.

“Ini yang sekarang kita dalami dengan memanggil orang-orangnya untuk kita mintai keterangan.  Mengenai sanksi, yang biasa kita lakukan adalah mencabut lisensi. Dengan begitu karir mereka akan tamat,” kata Haryo lagi.

Soal usia Tubagus yang masih 17 tahun dan sudah masuk dalam kategori petinju profesional, Haryo memberikan penjelasan. “Jadi mekanisme pemain profesional bisa didapatkan dari dua sumber. Pertama dari amatir dengan jenjang serta aturan-aturan yang sudah disepakati sebelumnya,” kata Haryo.

“Kedua adalah yang ditemukan oleh sasana-sasana. Nah Sakti ini  dipertandingkan di lingkup kejuaraan-kejuaraan KTPI. Pada saat pemberiaan izin, kabid pengawasan sudah mengatakan usianya masih 17 tahun apakah dimungkinkan dia menjadi juara, namun berdasarkan keterangan dari promotor dia memang sudah berada di ranking satu nasional. Jadi tak ada alasan lagi bagi dia untuk menunda atau menunggu umur,” jelas Haryo.

Tubagus diketahui  menghembuskan napas terakhir usai bertanding dengan Ical Tobida dalam pertandingan tinju di TVRI, Sabtu 26 Januari 2013 malam. Nyawanya  tidak tertolong setelah mendapat perawatan intensif di Rumah Sakit UKI. (sj)