m ve n tamsayıları arAsında 5 ile veya 7 ile tam bölünebilen tamsayıların kaç tane olduğunu hesaplayan program yazınız?
arkadaşlar yardım edebilecek olan var mı sabahtan beri uğraşıyorum .
Sanırım aradığın şey bu :
Öncelikle 1 adet buton 2 adet textbox ve 4 adet label ekliyoruz.
(Kod kısmını okursan neyin neden yapıldığı anlatılmaktadır.)
Public Class Form1
Dim m As Integer
Dim n As Integer
Dim s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Bir hata oluştuğunda programın kapanmaması için yazılan kod
On Error Resume Next
'tekrar giriş yapıldığına labeldeki eski değeri silmek için yazılan kod
Label1.Text = ""
'textboxa sadece sayı girebilmek için yazılan kod
If Not IsNumeric(TextBox1.Text) Then
MsgBox("Bu kısma sayı girmelisiniz")
End If
'textboxa sadece sayı girebilmek için yazılan kod
If Not IsNumeric(TextBox2.Text) Then
MsgBox("Bu kısma sayı girmelisiniz")
End If
'birinci sayıyı ikinci sayıdan küçük almamak için yazılan kod
If m < n Then
MsgBox("ilk sayı son sayıdan küçük olamaz")
End If
'birinci sayıyı 0 dan küçük almamak için yazılan kod
If m < 0 Then
MsgBox("ilk sayı sıfırdan küçük olamaz")
End If
'girilen sayıları değişkenlere eşitliyoruz
m = TextBox1.Text
n = TextBox2.Text
' bu ksımda döngü kullanıyoruz.Mantığımız şu şekilde : m yi her seferinde 1 artırıyoruz.artırdığımız m ler
'5e ve ya 7e bölündüğünde 0 veriyorsa tam bölünüyor diyoruz.Eğer 0 ise sayacımızı 1 artırıyoruz.En sonunda da
'sayacımızı label3e yazdırıyoruz...
For i = m To n
m = m + 1
If m Mod 5 = 0 Or m Mod 7 = 0 Then
s = s + 1
End If
Next
Label3.Text = s
End Sub
End Class
Kaynak dosya için link -----> http://qfs.mobi/f139237
Umarım işine yarar