Membuat Kalkulator Riil VB(dot)Net

Disini saya ingin berbagi ilmu mengenai kalkulator riil atau kalkulator yang sangat efektif dalam Virtual Basic atau disebut VB.Net.Tetapi disini saya belum menambahkan cos sin atau tan.Hanya cuma plus minum bagi dan kali saja.Mungkin di lain waktu akan saya share lagi kalkulator yang lebih lengkap dan banyak sehingga namanya bukan kalkulator riil lagi tetapi kalkulator sangat riil.Kalian pasti sudah tau cara membuat form-form nya.Saya hanya sekedar memberi ilmu dalam nya saja atau codingannya.
Okeyyy langsung saja codingan yang pertama untuk tombol 1 sampai 0.

Public Class Form1 (Untuk membuat Form Button 1 sampai 0)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 1
        Else
            TextBox1.Text = TextBox1.Text & 1
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 2
        Else
            TextBox1.Text = TextBox1.Text & 2
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 3
        Else
            TextBox1.Text = TextBox1.Text & 3
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 4
        Else
            TextBox1.Text = TextBox1.Text & 4
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 5
        Else
            TextBox1.Text = TextBox1.Text & 5
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 6
        Else
            TextBox1.Text = TextBox1.Text & 6
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 7
        Else
            TextBox1.Text = TextBox1.Text & 7
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 8
        Else
            TextBox1.Text = TextBox1.Text & 8
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 9
        Else
            TextBox1.Text = TextBox1.Text & 9
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If TextBox1.Text = 0 Then
            TextBox1.Text = 0
        Else
            TextBox1.Text = TextBox1.Text & 0
        End If
    End Sub
End Class
















Ini untuk menentukan operasi tambah, kurang, kali, dan bagi.Perhatikan simbolnya saja "..."
       
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Angka2 = TextBox1.Text
        If simbol = "+" Then
            hasil = Angka1 + Angka2
        ElseIf simbol = "-" Then
            hasil = Angka1 - Angka2
        ElseIf simbol = "*" Then
            hasil = Angka1 * Angka2
        ElseIf simbol = "/" Then
            hasil = Angka1 / Angka2
        End If
        TextBox1.Text = hasil
    End Sub
  
  
    Lalu selanjutnya ini untuk codingan button tombol sama dengan ( = )
    TextBox1.Text = 0

Cukup sekian sampai disini, kurang lebihnya mohon maaf dan semoga berguna untuk belajar yah.Salam mahasiswa!! :)

Dont forget guys.. ;)
Follow me on twitter: @deaprantika @nogatasbrig