Programalama > VISUAL BASIC.NET


Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.