Kalkulator Sederhana Dalam VB

Dalam program ini, kita akan membuat sebuah kalkulator sederhana. Program ini berada di form 2, dan masih satu project dengan program yang di atas. Kita buat desain form seperti gambar berikut :

Disini kita tidak memakai tombol, hanya 4 buah label, dan 4 buah textbox. Setelah itu, masukkan kodingan seperti dibawah ini :

Kodingan kita masukkan pada textbox3, disini eventnya adalah keypress, dan tombol yang dipakai adalah keyascii = 13 yaitu enter, jadi bila kita tekan enter pada textbox3, program ini akan berjalan.

Pertama kita deklarasikan 2 buah variabel yaitu bil1 dan bil2 yang bertipe data integer. Kemudian kita masukkan bil1 pada textbox1 dan bil2 pada textbox2. Setelah itu, kita gunakan select case untuk menentukan input pada textbox3 dan apa yang akan terjadi pada textbox4 jika input tersebut dimasukkan. Disini kita ada 4 case, yaitu :

Case “+”

Maka bil1 dan bil2 akan dijumlahkan.

Case “-“

Maka bil1 akan dikurangi bil2

Case “*”

Maka bil1 akan dikalikan dengan bil2

Case “/”

Maka bil1 akan dibagi dengan bil2

Dan hasilnya akan ditampilkan di textbox4. Jadi, pada textbox3 hanya 4 karakter diatas yang bisa diinput yaitu +,-,*, dan / . selain daripada itu, program tidak akan meresponnya. Untuk menjalankan program ini, Bila kita jalankan maka form1 akan muncul, kemudian kita klik tombol next, maka form1 akan hilang dan program ini akan muncul :

Kita masukkan di bilangan1 80, dan bilangan2 80, lalu kita masukkan operator tambah (+) kemudian tekan enter, maka hasilnya :

80 + 80 = 160. Maka di textbox4 akan muncul hasil dari 80 ditambah 80 yaitu 160. Program akan berjalan sesuai operator yang kita masukkan. Apakah +,-,* atau +.

Terima Kasih…..