[Unforgiven]

Kodlar:

Public Class Form1
    Private IslemSecildi As Boolean = False
    Private Sayi As Double
    Private Islem As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button0.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
        If Not IslemSecildi Then
            txtSayi.Text &= sender.Text
        Else
            txtSayi.Text = sender.Text
            IslemSecildi = False
        End If
    End Sub

    Private Sub btnCarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarp.Click, btnBol.Click, btnCikar.Click, btnTopla.Click
        Islem = sender.Text
        Try
            Sayi = txtSayi.Text
            IslemSecildi = True
        Catch ex As Exception
            MsgBox("Sayı düzgün formatta girilmedi")
        Finally
            txtSayi.Text = ""
            txtSayi.Focus()
        End Try
    End Sub

    Private Sub btnEsit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsit.Click
        Select Islem
            Case "*"
                Sayi *= txtSayi.Text
            Case "/"
                Sayi /= txtSayi.Text
            Case "-"
                Sayi -= txtSayi.Text
            Case "+"
                Sayi += txtSayi.Text
        End Select
        txtSayi.Text = Sayi
    End Sub

    Private Sub btnTemizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTemizle.Click
        Sayi = 0
        IslemSecildi = False
        txtSayi.Text = ""
        txtSayi.Focus()
    End Sub
End Class

 

[omeryetim]

Arkadaşımız Çok Güzel ellerine sağlık.

 

[Collapse]

Hortun böylesi..

 

[Apprehension]

Arkadaşımız Çok Güzel ellerine sağlık.

bu hort bir harika dostum