MEMBUAT KALKULATOR MINI DENGAN VISUAL BASIC

Disini saya akan menjelaskan cara bagaimana membuat aplikasi kalkulator mini dengan menggunakan bahasa visual basik....
penulis memakai aplikasi IDE visual Studio 2010....
langsung saja penulis tujukan langkah-langkahnya:

1. buat project baru pada IDE Visaul Studio, pilih kategori windows dan windows form application
2. buat tampilan aplikasi dengan tampilan sebagai berikut :

tampilan aplikasi di atas menggunakan 1 label, 4 textbox dan 6 button sedangkan garisnya penulis menggunakan lineShape......
pengaturan toolbox2 yang kita pakai tinggal kita setting pada bagian properties.....
ganti nama variable toolbox dengan nama berikut :
    -  textbox1 --> angka1
    -  textbox2 --> operasi
    -  textbox3 --> angka2
    -  textbox4 --> hasil
    -  button1 -->  plus
    -  button2 --> min
    -  button3 -->  kali
    -  button4 -->  bagi
    -  button5 --> reset
    -  button6 -->  samadengan
jadikan enable textbox2 dan textbox4 pada properties menjadi false....itu berguna agar user tidak bisa merubah isi dari textbox.......

3. klik dua kali pada button plus, min, kali dan bagi lalu masukan program di bawah ini :
    a. button plus
        operasi.Text = "+"
    b. button min
        operasi.Text = "-"
    c. button kali
        operasi.Text = "x"
    d. button bagi
        operasi.Text = "/"
program itu berguna untuk memberikan isi pada textbox operasi.

4. klik 2 kali pada button reset lalu masukan program berikut :
          angka1.Clear()
          angka2.Clear()
          operasi.Clear()
          hasil.Clear()
program di atas berguna untuk menghapus isi pada textbox....

5. klik dua kali pada button samadengan dan masuka program berikut :
 Dim a, b, c As Integer
        a = angka1.Text
        b = angka2.Text
        If operasi.Text.Equals("+") Then
            c = a + b
            hasil.Text = c
        ElseIf operasi.Text.Equals("-") Then
            c = a - b
            hasil.Text = c
        ElseIf operasi.Text.Equals("x") Then
            c = a * b
            hasil.Text = c
        ElseIf operasi.Text.Equals("/") Then
            c = a / b
            hasil.Text = c
        End If
program di atas menggunakan fungsi if majemuk yang jika kondisi terpenuhi maka program di dalam fungsi if akan dijalankan.

oke cukup disini tutorial dari penulis....kalo da yang kurang jelas silakan di komen pada kolom komentar.............
sampai jumpa di postingan berikutnya.......... bye bye
        

Symantec: Lima Juta Perangkat Android Terkena Virus Counterclank

Symantec baru baru ini membuat sebuah laporan yang menyatakan bahwa jumlah perangkat Android yang telah terinfeksi kini sudah mencapai 5 juta unit. Jenis virus yang paling banyak menyerang adalah Counterclank. Program jahat ini memiliki kemampuan untuk mengunduh file khusus, dan mengirimkan informasi korbannya kepada sang pemilik virus tanpa diketahui.

Dalam situs resminya, Symantec  menyatakan bahwa Counterclank menyerang melalui aplikasi yang dibuat oleh tiga developer berbeda yakni, iApps 7 inc, Ogre Games, dan redmicapps. Sebenarnya virus ini bukanlah jenis baru, ini merupakan pengembangan dari virus Tonclank yang sudah terdeteksi Juni 2011 lalu dengan modus penyerangan serupa.

Counterclank saat ini masih ada di beberapa game dan aplikasi di Android market. Belum diketahui secara pasti berapa jumlah perangkat yang telah terinfeksi, namum jumlahnya tidak kurang dari lima juta unit.