Papatyam Forum - Tekil Mesaj gösterimi - hesap makinesi
Konu Başlıkları: hesap makinesi
Tekil Mesaj gösterimi
Alt 29 March 2008, 14:49   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart hesap makinesi

hesap makinesi

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının toplamı" & " " & a + b)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının farkı" & " " & a - b)

End Sub

Private Sub Button3_Click(ByVal sender A System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının çarpımı" & " " & a * b)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a As Integer, b As Integer
a = TextBox1.Text
b = TextBox2.Text
MsgBox("İki sayının bölümü" & " " & a / b)

End Sub
end class



Alıntı ile Cevapla