TextBox’a Girilen Sayının Tek ve Çift Rakamlarını Toplama Vb.Net
Soru: textBox’a girilen sayının tek ve çift rakamlarını ayrı ayrı toplayıp sonucu label3 ve label4′de gösteren programın kodlarını yazınız.
[code language=”Vb”]
Public Class Form1
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim deger As String
Dim tektoplam As Integer = 0, cifttoplam As Integer = 0, gecici As Integer
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 = Val(deger(i).ToString())
If (gecici Mod 2) = 1 Then tektoplam += gecici
‘eğer gecici değişkenin ikiye bölümünden kalan 1 ise yani tek ise gecici değişkeninin değerini tektoplam’a ekle
If (gecici Mod 2) = 0 Then cifttoplam += gecici
‘eğer gecici değişkenin ikiye bölümünden kalan o ise yani çift ise gecici değişkeninin değerini cifttoplam’a ekle
Next
label3.Text = tektoplam
‘label3’de tektoplam değişkenideki değeri göster
label4.Text = cifttoplam
‘label4’de cifttoplam değişkenideki değeri göster
End Sub
End Class
[/code]
