Forma 2 textbox , 1 label, 2 buton ekliyoruz.Program Alt programlarla yapılmıştır Sub,Function

Private Sub btntopla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntopla.Click
topla()
End Sub
Sub topla()
If txtsayi1.Text = "" And txtsayi2.Text = "" Then
MsgBox("Deger Giriniz")
Else
lblgoster.Text = txtsayi1.Text + +txtsayi2.Text

End If
End Sub

Private Sub btncikar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncikar.Click
cikar()
End Sub
Sub cikar()
If txtsayi1.Text = "" And txtsayi2.Text = "" Then
MsgBox("Deger Giriniz")
Else
lblgoster.Text = txtsayi1.Text - txtsayi2.Text

End If
End Sub

Private Sub btncarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncarp.Click
carp()
End Sub
Sub carp()
If txtsayi1.Text = "" And txtsayi2.Text = "" Then
MsgBox("Deger Giriniz")
Else
lblgoster.Text = txtsayi1.Text * txtsayi2.Text

End If
End Sub

Private Sub btnbol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbol.Click
bol()
End Sub
Sub bol()
If txtsayi1.Text = "" And txtsayi2.Text = "" Then
MsgBox("Deger Giriniz")
Else
lblgoster.Text = txtsayi1.Text / txtsayi2.Text

End If
End Sub

Tüm forumdan rastgele konular:

  • » Makina Mühendisleri ve Makinacılar için...
  • » 13 yaşındaki çocuk IŞİD'i anlattı
  • » Alevilerin izlemesi gereken yol
  • » Anneler Gününüz kutlu olsun....
  • » Meclis'te seviye dibe vurdu!
  • » Kozmetİk Kanunu
  • » 19 Mucizesi Ne Olabilir?
  • » işte TRT'nin 'evetçi' programları
  • » Şahkulu Akademisinde dersler devam...
  • » AvrasyaTürk radyosundan istek yapalım

Aynı kategoriden rastgele konular:

  • » WEB BROWSER // Basit bir internet...
  • » Text'dekı Yazıları Buyuk Harfe Veya...
  • » Ay İsimlerini Yazdırma
  • » Faktöriyel Bulma İşlemi
  • » 4 İşlem
  • » Ürün Tutarı Hesaplayan Program.
  • » GetSchemaTable
  • » Girilen Sayıyı Yazıya Çevirme
  • » String Fonksiyonları ve Kullanımı ( Bol...
  • » Değişken Sorma