Operasi Matematika pada VBNET

Operator Artimatika
Jika kalian pernah mencoba Visual Basic 6, mungkin anda biasa membuat kalkulator sederhana ( dan itu juga terjadi karena tugas dari kampus hahaha). Oke sekarang anda pasti mengenal :
X = kali
/ = bagi
- = Kurang
+ = Tambah
Sebelumnya saya akan mengulangi matematika dasar, apakah anda pernah dengar KABATAKU ?
KABATAKU adalah prioritas operator aritmatika yaitu KALI BAGI TAMBAH KURANG
Kasus :
S=4-6x7
Berapakah hasil S ?
Jawaban : S= 4 – (6x7)
        S= 4 – 42
        S= -38 (minus tiga delapan)
Namun bagaimanapun sudah mempelajari matematika dasar, masih banyak juga orang menghitung operator dari awal 4-6 = -2x7 = -14
Oke, sekarang kita mulai membuat aplikasi kalkulator sangaaaat sederhana pada visual basic net.
Buatlah interface/desain form seperti ini
 
Keterangan :
1 = TextBox
2 = ComboBox
3 = Label

Ada 3 textbox di sini, buatlah namenya secara berbeda dan mudah diingat :
Contoh : nilai1, nilai2 , hasil

Begitu juga pada combobox, contoh name op
Lalu tambahkan properties Items pada Combobox , isi dengan lambang operator

Beberapa operator aritmatika yang dikenal pada sebuah pemrograman :
* = Kali
/ = bagi
+ = tambah
- = kurang
^ = pangkat
mod = pembagi

Pengkodeaan

Klik 2x pada combobox, lalu tulislah kode di bawah ini pada event op_SelectedIndexChanged

If nilai1.Text <> vbNullString And nilai2.Text <> vbNullString Then

            If Me.op.Text = "*" Then

                Me.hasil.Text = CInt(nilai1.Text) * CInt(nilai2.Text)

            ElseIf Me.op.Text = "/" Then

                Me.hasil.Text = CInt(nilai1.Text) / CInt(nilai2.Text)

            ElseIf Me.op.Text = "+" Then

                Me.hasil.Text = CInt(nilai1.Text) + CInt(nilai2.Text)

            ElseIf Me.op.Text = "-" Then

                Me.hasil.Text = CInt(nilai1.Text) - CInt(nilai2.Text)

            End If



End If

Wah,banyak if nya ya? Tidak apa-apa yang penting kita di sini belajar sebuah logika pemrograman hehe.
Jalankan Program dengan menekan F5 lalu isi nilai1 dan nilai2 dan pilih operatornya, setelah memilih operator maka akan didapatkan perhitungannya pada komponen TextBox hasil

Sekarang mari kita diskusikan source codenya :
Format IF sebuah logika pemrograman, kalau dibahasakan Jika(IF) proses_benar maka(THEN) lakukan_proses_lain Selesai(END IF). Apabila ada logika banyak jika bisa dipakai (ELSEIF)

If nilai1.Text <> vbNullString And nilai2.Text <> vbNullString Then

Kode <> adalah nilai TIDAK SAMA , vbNullString adalah String(karakter) Kosong.

If Me.op.Text = "*" Then

Jika ComboBox op adalah karakter * (bintang) maka

Me.hasil.Text = CInt(nilai1.Text) * CInt(nilai2.Text)

Lakukan operasi perkalian dan outputkan pada komponen TextBox hasil.

Apa itu CInt ? ini bukan CINTA loh tapi Singkatan Dari Convert To Interger, banyak cara untuk mengkonversikan tipe data,seperti :
CDbl = konversi ke Double
CStr = konversi ke String
CBool = konversi ke Boolean
Dan banyak lagi

Jika program tersebut dibahasakan ke Bahasa Indonesia :
JIKA nilai1 tidak kosong dan nilai2 tidak kosong MAKA
    JIKA teks operator adalah kali MAKA
        Lakukan perkalian
    DAN_JIKA teks operator adalah bagi MAKA
        Lakukan pembagian
    DAN_JIKA teks operator adalah tambah MAKA
        Lakukan penambahan
DAN_JIKA teks operator adalah kurang MAKA
        Lakukan pengurangan
    SELESAI_LOGIKA_HITUNG
SELESAI_LOGIKA_CEK_NILAI

sumber :  http://www.ilmuprogrammer.com/2013/08/v-behaviorurldefaultvmlo.html#.Uoo56ifDueY