TextBox’a Girilen Sayının Rakamlarını Toplama Vb.Net
Soru: textBox’a girilen sayının rakamlarını toplayıp sonucu label3’de gösteren programın kodlarını yazınız.
[code language=”vbnet”]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim deger, gecici As String
Dim toplam As Integer = 0
deger = TextBox1.Text
‘textbox’a girilen sayıyı deger değişkenine aktarıyoruz
For i As Integer = 0 To deger.Length – 1
‘sıfırdan girilen sayının rakam sayısı kadar
‘yani 567 sayısı girildiyse 3 defa for döngüsü çalışılır
‘çünkü 567 üç rakamlı
gecici = deger(i)
‘i.ci rakamı gecici değişkenine aktar
‘toplam değişkenine gecici değişkenindeki sayıyı ekle
toplam = toplam + Val(gecici)
Next
Label3.Text = toplam
‘label3’de toplam değişkenideki değeri göster
End Sub
End Class
[/code]
Eğer sayı yerine harf girildiğinde hata mesajı almamak için try catch veya on resume next kullanabilirsiniz. Detaylı bilgiye https://www.gorselprogramlama.com/hata-yakalama-try-catch-finally-ve-on-error-resume-next-vb-net linkinden ulaşabilisiniz.Veya textBox’a sayı girişini engelleyebilirsiniz.Bununla ilgili örnek link : https://www.gorselprogramlama.com/textboxi-ondalik-basamaga-ayarlama-sadece-sayi-girisi-saglama-vbnet
