[Statuss]

Public Class Form1
    Dim degisiklik As Boolean
    Dim sayac, sayi, islem, toplam As Double
Form1_Load
        sayac = 1
        TextBox1.Text = ""
    End Sub
Button15_Click
        If degisiklik = True Then
            TextBox1.Text = TextBox1.Text + "0"
        End If
    End Sub
Button16_Click
        If degisiklik = True Then
            TextBox1.Text = TextBox1.Text + "00"
        End If
    End Sub
Button6_Click
        TextBox1.Text = TextBox1.Text + "1"
        degisiklik = True
    End Sub
Button7_Click
        TextBox1.Text = TextBox1.Text + "2"
        degisiklik = True
    End Sub
Button8_Click
        TextBox1.Text = TextBox1.Text + "3"
        degisiklik = True
    End Sub
Button9_Click
        TextBox1.Text = TextBox1.Text + "4"
        degisiklik = True

    End Sub
Button10_Click
        TextBox1.Text = TextBox1.Text + "5"
        degisiklik = True

    End Sub
Button11_Click
        TextBox1.Text = TextBox1.Text + "6"
        degisiklik = True

    End Sub
Button12_Click
        TextBox1.Text = TextBox1.Text + "7"
        degisiklik = True

    End Sub
Button13_Click
        TextBox1.Text = TextBox1.Text + "8"
        degisiklik = True

    End Sub
Button14_Click
        TextBox1.Text = TextBox1.Text + "9"
        degisiklik = True

    End Sub

    Button17_Click
        TextBox1.Clear()
        degisiklik = False
        sayac = 1
    End Sub
Button1_Click
        islem = 1
        sayi = TextBox1.Text
        TextBox1.Clear()
        TextBox1.Text = ""
        degisiklik = False
    End Sub

Button3_Click
        islem = 4
        sayi = TextBox1.Text
        TextBox1.Clear()
        TextBox1.Text = ""
        degisiklik = False

    End Sub

    Button2_Click
        islem = 3
        sayi = TextBox1.Text
        TextBox1.Clear()
        TextBox1.Text = ""
        degisiklik = False

    End Sub
Button4_Click
        islem = 2
        sayi = TextBox1.Text
        TextBox1.Clear()
        TextBox1.Text = ""
        degisiklik = False

    End Sub
Button5_Click
        degisiklik = False
        Select Case (islem)
            Case 1
                toplam = CDbl(sayi) + CDbl(TextBox1.Text)
            Case 2
                toplam = CDbl(sayi) * CDbl(TextBox1.Text)
            Case 3
                toplam = CDbl(sayi) / CDbl(TextBox1.Text)
            Case 4
                toplam = CDbl(sayi) - CDbl(TextBox1.Text)
        End Select
        TextBox1.Text = toplam
    End Sub
TextBox1_KeyPress
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("Sayısal değer giriniz.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Hata")
            TextBox1.Clear()
        End If
    End Sub
End Class

Visual Basic
Kolaygelsin