Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.1
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Check1_Click()
End Sub
Private Sub Chebold_Click()
‘Membuat teks tebal
If Chebold.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check3_Click()
End Sub
Private Sub Check4_Click()
End Sub
Private Sub Cheitalic_Click()
‘Membuat teks tebal
If Cheitalic.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Chestikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikeout = True
Else
Label1.FontStrikeout = False
End If
End Sub
Private Sub Chestrikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub
Private Sub Cheunderline_Click()
‘Membuat teks bergaris bawah
If Cheunderline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub optblue_Click()
‘Membuat teks berwarna biru
Label1.ForeColor = vbBlue
End Sub
Private Sub optgreen_Click()
‘Membuat teks berwarna hijau
Label1.ForeColor = vbGreen
End Sub
Private Sub optred_Click()
‘Membuat teks berwarna merah
Label1.ForeColor = vbRed
End Sub
Private Sub optyellow_Click()
‘Membuat teks berwarna kuning
Label1.ForeColor = vbYellow
End Sub
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Acer Iconia B1-A71 (IBN Live)
Taipei – Acer tampaknya tak ingin melewatkan pasar tablet murah. Perusahaan asal Taiwan ini kabarnya akan merilis tablet yang harganya bersahabat di kantong, sekitar USD 99 atau Rp 1 jutaan.
Baru-baru ini beredar bocoran GLBenchmark yang menguak spesifikasi Acer Iconia B1-A71. Ketika dirilis nanti, tablet ini akan bersaing dengan Asus yang kabarnya memiliki nama kode ME172V.
Acer Iconia B1-A71 disebut-sebut telah disahkan oleh Federal Communications Commission. Diyakini, tablet dengan layar 7 inch tersebut akan menampakkan diri di ajang Consumer Electronics Show 2013 di Las Vegas, Amerika Serikat Januari mendatang.
Berdasarkan informasi GLBenchmark, Acer Iconia B1-A71 akan menggunakan Android Jelly Bean, mengusung layar dengan resolusi 1025 x 600 pixel dan dibekali kamera 1,3 megapixel.
Dari sisi dapur pacu, seperti dilansir IBN Live dan dikutip detikINET, Minggu (23/12/2012), prosesor dual-core 1,2GHz diklaim akan menjadi otaknya. Untuk memori internal, tersedia kapasitas 16GB.
Selain itu, belum ada keterangan lebih mendetail mengenai spesifikasinya. Acer sendiri belum memberikan respons atau pernyataan resmi atas laporan ini.
London – Vendor elektronik asal Taiwan HTC berencana membuat tablet dengan sistem operasi Windows. Ini akan menjadi tablet 7 inch pertama berbasis Windows RT.
Selain tablet 7 inch, HTC juga akan membuat versi 12 inch. Kedua jenis tablet ini, seperti disebutkan sumber internal yang menolak disebutkan identitasnya, bisa juga digunakan untuk ‘halo-halo’ alias menelepon.
Dilansir Telegraph dan dikutip detikINET, Minggu (23/12/2012), langkah ini akan menempatkan Microsoft selaku si pembesut OS Windows kian bersaing ketat dengan Apple dan Google di pasar tablet.
HTC kabarnya akan merilis kedua tabletnya ini di 2013. Jika benar, tablet 7 inch Windows RT bisa menantang produk lain yang sejenis, yakni iPad mini, Kindle Fire dan Nexus 7.
Laporan lain yang dilansir Bloomberg menyebutkan, HTC juga sempat mempertimbangkan untuk membuat tablet Windows 8. Namun niat tersebut urung lantaran harganya akan mahal, yakni di kisaran USD 1.000.
Untuk diketahui, Windows RT adalah OS terbaru Microsoft yang dirancang untuk perangkat dengan chip ARM. Penamaan jenis-jenis OS Windows ini memang memunculkan kebingungan. Microsoft pun sampai perlu melakukan training khusus bagi karyawan agar bisa menjelaskan dengan baik ke consumer.
Lumia 920 (ist)
Jakarta – Beberapa produsen ponsel sedang berjuang mengembalikan kejayaannya. Seperti Nokia, Research in Motion, ataupun HTC. Bagaimana peluang ketiganya di masa depan?
RIM dan Nokia belakangan ini mendapat kabar baik, yaitu naiknya harga saham mereka seiring sentimen yang bagus terkait peluncuran produk barunya. Namun menurut prediksi seorang analis, itu hanya sementara saja.
Jeff Kvaal, analis Barclays Capital Wireless menilai bukan berarti nasib Nokia atau RIM akan seterusnya cerah. Harga saham memang naik menjelang atau di saat peluncuran produk baru, namun kemudian turun dengan cepat. Hal ini sudah beberapa kali terjadi sebelumnya.
“Melihat sejarah, baik Palm dan Nokia harga sahamnya naik menjelang rilis produk baru, kala itu rilis N8 di tahun 2010 dan Palm Pre di 2009. Dalam kedua kasus, harga saham menurun sesudah peluncuran,” katanya seperti dikutip detikINET dari BGR, Jumat (21/12/2012).
Lalu bagaimana dengan HTC? Vendor asal Taiwan ini dilaporkan mengembangkan ponsel jagoan terbarunya dengan kode nama M7. Kvall memprediksi ponsel ini memang akan melesat sesaat, sebelum disikut oleh kedatangan Samsung Galaxy S IV.
Adapun Research in Motion (RIM) dinilai harus melakukan langkah signifikan untuk bangkit, dengan membuat konsumen yang sudah memilih Android atau iOS tergoda beralih ke BlackBerry 10. Tidak sekadar hanya berjualan produk. Bagaimana menurut Anda?
Jakarta – Masalah di perangkat dengan sistem operasi (OS) Android kerap membuat pengguna menantikan update terbaru untuk memperbaikinya. Namun vendor perangkat sendiri punya jadwal berbeda-beda saat merilis update tersebut.
User interface yang berbeda-beda di berbagai perangkat Android, salah satunya membuat vendor perangkat tertentu membutuhkan waktu lebih lama untuk merilis update.
Pembuat smartphone atau tablet pun harus terlebih dahulu menyerahkan update mereka ke operator untuk pengujian lebih lanjut. Proses ini sendiri bisa memakan waktu hingga berbulan-bulan.
Alhasil, beberapa di antara smartphone atau tablet Android ada yang masih bertahan menggunakan OS versi lama. Nah, sebuah survei yang dilakukan ArsTechnica, mengungkapkan urutan vendor tercepat dan terlambat dalam merilis update Android.
Di peringkat pertama rupanya diduduki HTC. Waktu rilis update vendor asal Taiwan ini rata-rata adalah 4,8 bulan, disusul kemudian Samsung di posisi kedua dengan rata-rata 6,9 bulan.
Motorola dan LG, seperti dilansir ars Technica dan dikutip detikINET, Senin (24/12/2012), dinilai lambat akan kebutuhan update OS Android. Rata-rata waktu update Motorola adalah 8,6 bulan sedangkan LG 11,8 bulan.
Iran – Tepatnya pada 16 Desember 2012 kemarin, lembaga Computer Emergency Readiness Team (CERT) Iran menemukan sebuah virus baru yang amat berbahaya. Program jahat ini akan secara otomatis menghapus data di hardisk secara permanen.
Sample virus itu pun kemudian dikirimkan ke salah satu produsen antivirus, Sophos, untuk dianalisa. Dan hasilnya, ternyata program jahat ini memiliki beberapa komponen program untuk mendukung aksinya.
Virus tersebut menyebar dengan nama GrooveMonitor.exe dalam format rar. Saat calon korban mengekstrak file tersebut, maka akan ditemukan tiga file utama yakni uboot.exe, jucheck.exe dan SLEEP.EXE.
File Juboot.exe dan jucheck.exe akan mendeskripsikan diri mereka sebagai bagian update dari komponen Java. Sedangkan SLEEP.EXE merupakan aplikasi yang dibuat untuk mengaktifkan virus pada waktu yang sudah ditentukan.
Saat file jucheck.exe aktif, maka ia akan menghapus file induknya yakni GrooveMonitor.exe dan Juboot.exe, setelah itu virus ini akan mencocokkan data sebagai berikut:
10-December-2012 to 12-December-2012
21-January-2013 to 23-January-2013
06-May-2013 to 08-May-2013
22-July-2013 to 24-July-2013
11-November-2013 to 13-November-2013
3-February-2014 to 5-February-2014
5-May-2014 to 7-May-2014
11-August-2014 to 13-August-2014
2-February-2015 to 4-February-2015
Setelah melewati semua pemeriksaan data dan menemukan kecocokan, maka dalam waktu 50 menit virus akan secara otomatis menghapus semua data dalam hardisk berlabel D:, E:, F:, G:, H: dan I:.
Namun menurut CERT Iran yang dikutip detikINET, Selasa (18/12/2012), virus ini disinyalir hanya menyerang komputer dari instansi atau negara tertentu. Namun tetap saja, ada kemungkinan virus ini menyebar luas di kalangan pengguna komputer lainnya.
Novriyansyah Stmik Pringsewu 