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