Kalkulator Sederhana Visual Basic

Operator Aritmatika Visual Basic

Pada tutorial kali ini akan dibahas bagaimana cara membuat kalkulator sederhana dengan menggunakan operator hitungan yang terdapat di visual basic.

Operator hitungan pada visual basic tidak jauh berbeda dengan operator aritmatika pemgrograman lain pada umunya. Berikut perhatikan tabel di bawah ini:

Operator	Operasi	Contoh Penggunaan
+	Penjumlahan	Hasil = 1 + 1
-	Pengurangan	Hasil = 1 – 1
*	Perkalian	Hasil = 1 * 2
/	Pembagian	Hasil = 2 / 1
^	Pangkat	Hasil = 2 ^ 2
Sqr	Akar	Hasil = Sqr(2)
Mod	Sisa Pembagian	Hasil = 5 Mod 2
\	Div (Pembagian Bulat)	Hasil = 5 \ 2

Bagi Anda yang belum pernah mempelajari bahasa pemrograman Mod adalah sisa pembagian dari dua bilangan, misalnya 5 Mod 2 akan menghasilkan nilai 1 karena 5 dibagi 2 akan menghasilkan bilangan desimal. Agar tidak desimal maka 5 dikurangkan nilai tertentu hingga hasilnya menjadi bilangan bulat. Hasil pengurangan tadi itulah yang disebut sisa pembagian.

Sedangkan Div (Pembagian Bulat) merupakan pembagian biasa yang meniadakan koma/ desimal hasil dari pembagian.

Oke! Untuk sementara pelajari operator aritmatika tersebut dengan membuat sebuah program sederhana menggunakan contoh penggunaan di atas.

Silahkan jalankan aplikasi visual basic dan buat 1 CommandButton dalam 1 Form seperti gambar berikut.

Klik dua kali pada bagian Command1 sehingga muncul lembar kerja coding dan ketikan salah satu contoh penggunaan di atas.

Misal:

Hasil = 1 + 1

Tambahkan perintah MsgBox untuk memunculkan isi dari variable Hasil.

Contoh :

Hasil = 1 + 1

MsgBox Hasil

Jalankan Program dengan tekan F5 pada Keyboard atau tekan tombol Start. Klik pada tombol Command1, perhatikan angka berapa yang muncul!

Jika Anda sudah mengerti, coba-cobalah dengan mengganti angka atau menggunakan contoh penggunaan yang lain. Jangan lupa tetap cantumkan MsgBox pada coding untuk menampilkan variable di kotak pesan.

Kalkulator Sederhana

Langkah berikutnya kita akan memanfaatkan fungsi dari Operator Aritmatika Visual Basic untuk membuat sebuah kalkulator sederhana.

Siapkan project baru dengan cara klik File – New Project.

Buat 3 buah Label, 3 buah TextBox, 9 buah CommandButton. Susun dan ubah Properties dari objek menjadi seperti berikut.

Name Asli Objek	Properties	Perubahan Properties
Label1	Caption	Angka 1
	AutoSize	TRUE
Label2	Caption	Angka 2
	AutoSize	TRUE
Label3	Caption	Hasil
	AutoSize	TRUE
Text1	Name	TxtAngka1
	Text	Kosongkan
Text2	Name	TxtAngka2
	Text	Kosongkan
Text3	Name	TxtHasil
	Text	Kosongkan
Command1	Name	CmdPenjumlahan
	Caption	+
Command2	Name	CmdPengurangan
	Caption	-
Command3	Name	CmdPerkalian
	Caption	*
Command4	Name	CmdPembagian
	Caption	/
Command5	Name	CmdPangkat
	Caption	^
Command6	Name	CmdAkar
	Caption	Sqr
Command7	Name	CmdMod
	Caption	Mod
Command8	Name	CmdDiv
	Caption	Div
Command9	Nama	CmdKeluar
	Caption	Keluar

Anda bisa merubah Font pada objek sehingga tampak lebih menarik.

Tampilan Susunan Aplikasi

Klik dua kali pada CmdPenjumlahan dan ketikan coding seperti di bawah ini

TxtHasil = TxtAngka1 + TxtAngka2

Maksud dari coding di atas adalah menaruh jumlah dari TxtAngka1 + TxtAngka2 ke TxtHasil.

Coba jalankan dengan tekan F5.

Entry angka pada Angka 1 dan Angka 2, kemudian tekan tombol + .

Perhatikan apa yang terjadi!

Angka yang keluar bukanlah hasil penjumlahan tapi gabungan dari Angka 1 dan Angka 2. Kenapa begitu?

Dikarenakan visual basic membaca inputan yang terdapat pada TextBox bukan sebagai Angka melainkan sebagai String/ Text sehingga pada saat perintah dieksekusi yang terjadi adalah gabungan dari dua buah string.

Sekarang tambahkan Val( … ) pada Angka 1 dan Angka 2, seperti berikut:

TxtHasil = Val(TxtAngka1) + Val(TxtAngka2)

Jalankan Aplikasi dengan tekan F5 dan lihat hasilnya.

Lengkapi coding untuk tombol pengurangan, perkalian dan lainnya. Untuk tombol keluar gunakan perintah End untuk menutup aplikasi.

Private Sub CmdAkar_Click()

    TxtHasil = Sqr(TxtAngka1)

End Sub

Private Sub CmdDiv_Click()

    TxtHasil = TxtAngka1 \ TxtAngka2

End Sub

Private Sub CmdKeluar_Click()

    End

End Sub

Private Sub CmdMod_Click()

    TxtHasil = TxtAngka1 Mod TxtAngka2

End Sub

Private Sub CmdPangkat_Click()

    TxtHasil = TxtAngka1 ^ TxtAngka2

End Sub

Private Sub CmdPembagian_Click()

    TxtHasil = TxtAngka1 / TxtAngka2

End Sub

Private Sub CmdPengurangan_Click()

    TxtHasil = TxtAngka1 - TxtAngka2

End Sub

Private Sub CmdPenjumlahan_Click()

    TxtHasil = TxtAngka1 + TxtAngka2

End Sub

Private Sub CmdPerkalian_Click()

    TxtHasil = TxtAngka1 * TxtAngka2

End Sub

Silahkan download contoh lengkap coding kalkulator sederhana visual basic disini.