Membuat Aplikasi Kalkulator v2 dengan Visual Basic

Berikut kode programnya :

Public Class Form1
    Dim satu, tiga As Double
    Dim dua As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        RadioButton1.Select()
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If

        TextBox1.Text = TextBox1.Text & 0
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 1
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Strings.InStr("0123456789" & Chr(8), e.KeyChar) = 0 Then
            e.KeyChar = Chr(0)
        End If
        If e.KeyChar = Chr(13) Then
            TextBox1.Clear()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Text = TextBox1.Text & "∅"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Text = TextBox1.Text & "∅"
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 2
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 3
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 4
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 5
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 6
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 7
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 8
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If TextBox1.Text = "∅" Then
            TextBox1.Clear()
        End If
        TextBox1.Text = TextBox1.Text & 9
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = Len(TextBox1.Text) - 1
        If TextBox1.Text = 0 Then
            TextBox1.Clear()
            TextBox1.Text = "∅"
        End If
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        TextBox1.Text = TextBox1.Text & "."
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        TextBox2.Text = TextBox2.Text & TextBox1.Text
        TextBox2.Text = TextBox2.Text & " + "
        satu = Val(TextBox1.Text)
        dua = "+"
        TextBox1.Clear()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        TextBox2.Text = TextBox2.Text & TextBox1.Text
        TextBox2.Text = TextBox2.Text & " - "
        satu = Val(TextBox1.Text)
        dua = "-"
        TextBox1.Clear()
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        TextBox2.Text = TextBox2.Text & TextBox1.Text
        TextBox2.Text = TextBox2.Text & " * "
        satu = Val(TextBox1.Text)
        dua = "*"
        TextBox1.Clear()
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox2.Text = TextBox2.Text & TextBox1.Text
        TextBox2.Text = TextBox2.Text & " / "
        satu = Val(TextBox1.Text)
        dua = "/"
        TextBox1.Clear()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text & "-"
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = TextBox1.Text & "%"
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        tiga = Val(TextBox1.Text)
        TextBox2.Text = TextBox2.Text & TextBox1.Text
        If dua = "*" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox1.Text = satu * tiga
        ElseIf dua = "/" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox1.Text = satu / tiga
        ElseIf dua = "+" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox1.Text = satu + tiga
        ElseIf dua = "-" Then
            TextBox1.Clear()
            TextBox2.Clear()
            TextBox1.Text = satu - tiga
        End If
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        TextBox2.Text = TextBox2.Text & "("
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        TextBox2.Text = TextBox2.Text & ")"
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class

Hasil :

Wasalam,,