Perhitungan Aritmatika Sederhana pada VB menggunakan DIM

Assalmualaikum Warahmatullahi Wabarakatu
Bismilahirrahmanirrahiim
Sebelum kita memulai mengerjakan sesuatu ada baiknya kita berdoa terlebih dahulu agar apa yang kita kerjakan dapat berkah dari allah SWT, Aamiin.

Pada kesempatan kali ini saya akan membagi informasi mengenai proses perhitungan aritmatika sederhana (tambah,kurang,bagi,kali) dengan mudah. Proses perhitungan ini dilakukan dengan menggunakan dim maksudnya variabel hitungan yang dilakukan pada textbox1, textbox2 dll disimpan pada suatu variabel. Untuk lebih jelasnya langsung saja

Pertama : Buatlah desain form seperti ini

Kedua : Masukan script perhitungan.
1. Pertambahan 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = a + b
        TextBox3.Text = c

    End Sub

2. Pengurangan
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = a - b
        TextBox3.Text = c
    End Sub

3. Perkalian
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = a * b
        TextBox3.Text = c
    End Sub

4. Pembagian
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        c = a / b
        TextBox3.Text = c
    End Sub

Pada contoh pembagian diatas menggunakan type data integer, sehingga hasil yang dihasilkan berupa bilangan bulat. Apabila anda ingin hasilnya kome atau pecahan. Masukan script berikut
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a, b, c As Double
        a = TextBox1.Text
        b = TextBox2.Text
        c = a / b
        TextBox3.Text = c
    End Sub

Sekian informasi yang bisa saya bagikan mengenai perhitungan aritmatika sederhana, anda bisa mengembangkannya lagi seperti pangkat akar modulus dan lainnya.
Terimakasih sudah mengunjungi blog ini. Great Say!!!!!