18 Agt 2013

Operasi Matematika pada VBNET

Operator Artimatika Jika kalian pernah mencoba Visual Basic 6, mungkin anda biasa membuat kalkul... thumbnail 1 summary

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