Programalama > VISUAL BASIC.NET

Public Class Form1
    Dim s2 As Integer
    Dim s1 As Integer
    Private Sub btnCarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarp.Click
        s1 = txtS1.Text
        s2 = txtS2.Text
        MsgBox("çarpma işleminin sonucu " & s1 * s2)
    End Sub

    Private Sub btnTopla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTopla.Click
        MsgBox("toplama işleminin sonucu " & s1 + s2)
    End Sub

    Private Sub btnCikar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikar.Click
       MsgBox("çıkarma işleminin sonucu " & s1 - s2)
    End Sub

    Private Sub btnBol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBol.Click
        MsgBox("bölme işleminin sonucu " & s1 / s2)
    End Sub
End Class

desperado
desperado_kopuk@hotmail.com