Merhaba Arkadaşlar,
Bu sefer girilen 2 sayı arasındaki sayıların toplamını bulduran programımızı ve kodlarımızı paylaşıp ve nasıl yapılacağını anlatıcam.
Formumuza 1 Button 2 Textbox 1 Label ekliyoruz.Ve Button1 e tıklayıp kodlarımızı yapıştırıyoruz
Dim can1, mose1, a, b, sonuc As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Kullanılacak Formul (n(n+1)/2)-(n(n+1)/2)
can1 = Val(TextBox1.Text)
mose1 = can1 * (can1 + 1) / 2
a = Val(TextBox2.Text)
b = a * (a + 1) / 2
sonuc = mose1 - b
Label1.Text = sonuc
End Sub
Bu işlemi yaparken n.(n+1)/2 Formulumuzu kullandık 2. sayımızdan 1.sayımıza kadar olan sayıları çıkarttık.Olayımız bu kadar.Kodlarıda incelediğinizde daha iyi anlarsınız zaten
Program Resmi :
Bu kodlarımız Örnek 10 ile 15 arasındaki sayı toplamında 11+12+13+14+15 i buluyor. Eğer 10 uda eklemek isterseniz kodlarda Şu kısmı :
sonuc = mose1 - b
sonuc = mose1 - b + a
Yukarıdaki gibi yaparsan o sayımızıda eklemiş oluruz.
Kaynak Dosya :
Her hangi sorunda konu altından sorabilirsiniz