Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Tek-Çift Sayıları Toplama

Tek-Çift Sayıları Toplama

Merhaba;
Kullanıcının gireceği iki aralık arasındaki tek, çift veya bütün sayıları toplayacak programı yapalım. Örneğimiz için aşağıdaki formu oluşturalım.

 

resim16

Ve daha sonra Button1_Click(Topla)’e tıklıyoruz ve aşağıdaki kodları yazıyoruz.


Dim İlk, Son, top, i As İnteger 'değişken kullanarak tanımladık İlk = Val(TextBox1.Text) 'TextBox lara sayı yazacağımız için başında Val'ı kullandık Son = Val(TextBox2.Text) If RadioButton1.Checked And RadioButton2.Checked Then ' her ikiside işaretli ise bütün sayıları topla For i = İlk To Son 'for döngüdür ilk ve son sayıları aralarında toplar top = top + i Next End If If RadioButton1.Checked And Not RadioButton2.Checked Then If İlk Mod 2 = 0 Then 'mod bölmede kalanı verir 'Başlangıç Çift ise tek yap İlk = İlk + 1 End If For i = İlk To Son Step 2 top = top + i Next End If If Not RadioButton1.Checked And RadioButton2.Checked Then ' RadioButton2 işaretli RadioButton1 değilse çift sayıları If İlk Mod 2 <> 0 Then 'Başlangıç tekse çift yap İlk = İlk + 1 End If For i = İlk To Son Step 2 top = top + i Next End If MsgBox(top) 'sonucu MsgBox'a yazdırdık End Sub End Class

resim23

Görüldüğü gibi programımız bu şekilde çalışmaktadır.

 






Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=