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 IfWah,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
If Me.op.Text = "*" Then
Me.hasil.Text = CInt(nilai1.Text) * CInt(nilai2.Text)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
Label: tutorial Visual basic
