កូដម៉ាស៊ីនគិតលេខប្រើតាមកម្មវិធី Visual Studio (Basic)

Public Class Form1

    Dim op As String

    Dim n,result As Double

----------------------------------------------  

    Private Sub btn7_Click()

        txtnum.Text = txtnum.Text & 7

    End Sub

----------------------------------------------

    Private Sub btn8_Click()

        txtnum.Text = txtnum.Text & 8

    End Sub

----------------------------------------------

    Private Sub btn9_Click()

        txtnum.Text = txtnum.Text & 9

    End Sub

----------------------------------------------

    Private Sub btn4_Click()

        txtnum.Text = txtnum.Text & 4

    End Sub

----------------------------------------------

    Private Sub btn5_Click()

        txtnum.Text = txtnum.Text & 5

    End Sub

----------------------------------------------

    Private Sub btn6_Click()

        txtnum.Text = txtnum.Text & 6

    End Sub

----------------------------------------------

    Private Sub btn1_Click()

        txtnum.Text = txtnum.Text & 1

    End Sub

----------------------------------------------

    Private Sub btn2_Click()

        txtnum.Text = txtnum.Text & 2

    End Sub

----------------------------------------------

    Private Sub btn3_Click()

        txtnum.Text = txtnum.Text & 3

    End Sub

----------------------------------------------

    Private Sub btn0_Click()

        txtnum.Text = txtnum.Text & 0

    End Sub

----------------------------------------------

    Private Sub btndot_Click()

        txtnum.Text = txtnum.Text & "."

    End Sub

----------------------------------------------

    Private Sub btnsum_Click()

        op = "+"

        n = txtnum.Text

        txtnum.Text = ""

    End Sub

----------------------------------------------

    Private Sub btnsub_Click()

        op = "-"

        n = txtnum.Text

        txtnum.Text = ""

    End Sub

----------------------------------------------

    Private Sub btnmuti_Click()

        op = "*"

        n = txtnum.Text

        txtnum.Text = ""

    End Sub

----------------------------------------------

    Private Sub btndiv_Click()

        op = "/"

        n = txtnum.Text

        txtnum.Text = ""

    End Sub

----------------------------------------------

    Private Sub btnequal_Click()

        If op = "+" Then

            result = n + txtnum.Text

        ElseIf op = "-" Then

            result = n - txtnum.Text

        ElseIf op = "*" Then

            result = n * txtnum.Text

        ElseIf op = "/" Then

            result = n / txtnum.Text

        End If

        txtnum.Text = result

    End Sub

----------------------------------------------

    Private Sub Button1_Click()

        txtnum.Text = ""

    End Sub

----------------------------------------------

    Private Sub Button2_Click()

        Me.Close()

    End Sub

----------------------------------------------

    Private Sub Form1_Load()

        txtnum.Focus()

    End Sub

End Class