Program Aritmatika Pada VB.net

Assalamu’alaikum Wr Wb

Selamat datang kembali di sibukngoding.com. Pada kesempatan kali ini saya akan memberikan sebuah materi yang berkaitan tentang Visual Basic net atau VB.net. Pada artikel sebelumnya, kita telah membahas tentang Tipe data pada VB.net, nah untuk kali ini saya memberikan materi tentang program aritmatika pada VB.net

Mungkin teman-teman sudah belajar yang namanya aritmatika. Yaa.. itu merupakan materi matematika. Aritmatika terdiri dari penjumlahan, pengurangan, perkalian dll. Pada bahasa pemrograman VB.net, simbol operasi aritmatika dijabarkan sebagai berikut :

Simbol Aritmatik	Operasi	Ekspresi Visual Basic
Penjumlahan	+	a + b
Pengurangan	–	a – b
Perkalian	*	a * b
Pembagian	/	a / b
Modulus (Sisa bagi)	Mod	a Mod b
Pemangkatan (kuadrat)	^	a^b
Bilangan Negatif	–	-a
Unary Positif	+	+b

Agar lebih paham, kita coba aplikasikan ke dalam sebuah program di vb.net. Silahkan teman-teman buat project baru di visual studio, untuk punya saya pakai yang versi 2008. Bagi yang belum faham cara membuat project baru di Visual studio, silahkan lihat materi saya sebelumnya disini.

Setelah itu buat form seperti dibawah ini:

Untuk  Propertis pada komponennya sperti tabel di bawah ini:

Tool Control	Propertis	Value
Form1	Name	Frmaritmatika
	Text	Program Aritmatika
Label1	Text	Angka 1
	Name	Label1
Label2	Text	Angka 2
	Name	Label2
Label3	Text	Hasil
	Name	Label3
Textbox1	Name	Txtangka1
	Text	0
Textbox2	Name	Txtangka2
	Text	0
Textbox3	Name	Txthasil
	Text	0
Botton1	Name	Btjumlah
	Text	+
Botton2	Name	Btkurang
	Text	-
Botton3	Name	Btkali
	Text	X
Botton4	Name	Btbagi
	Text	/
Botton5	Name	Btmod
	Text	Mod
Botton6	Name	Btpangkat
	Text	a^b
Botton7	Name	Btbersih
	Text	Clear
Botton8	Name	Btkeluar
	Text	Close

Untuk penulisan linsting programnya, silahkan masuk ke view code dengan cara klik view code di bagian solution explorer

Setelah itu akan masuk ke jendela view code

Buat dulu 3 variabel dan letakkan di bawah public class seperti dibawah ini

Public angka1,angka2, hasil as integer

Karena variabel nanti digunakan disetiap blok program sama, maka saya buat variabel global. Untuk teman-teman bisa pakai variabel local dengan menambahkan variabel disetiap blok program. Untuk penjelasan lebih lanjut tentang variabel global dan variable local, bisa dipelajari disini.

Setelah kita buat variabel, selanjutnya kita masukkan source code disetiap tombol yang akan di jalankan dengan event click

Untuk btjumlah dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 + angka2

Untuk btkurang dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 - angka2

Untuk btkali dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 * angka2

Untuk btbagi dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 / angka2

Untuk btmod dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 mod angka2

Untuk btpangkat dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 ^ angka2

Untuk btpangkat dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        txthasil.Text = angka1 ^ angka2

Untuk btbersih dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        txtangka1.Text = "0"

        txtangka2.Text = "0"

        txthasil.Text = "0"

        txtangka1.Focus()

Untuk btkeluar dengan event click, silahkan masukkan sorce codenya seperti dibawah ini

        Close()

Untuk source Code akhirnya  adalah seperti berikut:

Public Class frmaritmatika

    Public angka1, angka2, hasil As Integer

    Private Sub btjumlah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btjumlah.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 + angka2
    End Sub

    Private Sub btkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkurang.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 - angka2
    End Sub

    Private Sub btkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkali.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 * angka2
    End Sub

    Private Sub btbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbagi.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 / angka2
    End Sub

    Private Sub btmod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmod.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 Mod angka2
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        angka1 = txtangka1.Text
        angka2 = txtangka2.Text
        txthasil.Text = angka1 ^ angka2
    End Sub

    Private Sub btbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbersih.Click
        txtangka1.Text = "0"
        txtangka2.Text = "0"
        txthasil.Text = "0"
        txtangka1.Focus()
    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        Close()
    End Sub
End Class

Setelah itu kita coba run dengan mengeklik tombol run diatas:

Maka hasilnya seperti di bawah ini:

Silahkan dicoba dengan memasukkan angka yang akan di operasikan, setelah itu klik tombol operasi yang ingin dicoba. Bisa penjumlahan, pengurangan, perkalian dll. Jika keluar hasilnya sesuai yang diharapkan, maka selamat program anda berhasil. Jika masih eror, bisa ditanyakan lewat kolom komentar nanti insya Allah saya bantu.

Bagi yang ingin source kodenya untuk dipelajari, silahkan hubungi saya nanti insya Allah saya kirimkan email. Gratiss. Demikian dari saya semoga bermanfaat. Silahkan dipelajari lebih lanjut. Jika ada yang kurang paham, bisa ditanyakan lewat kolom komentar. Tetap kunjungi web sibuk ngoding untuk mendapatkan artikel laiinya. Sesibuk sibuknya anda ngoding, jangan lupa ibadahnya.

Terimakasih atas kunjungannya, selamat belajar, tetap semangant dan jangan mudah menyerah.