visual basic yardımm

hasan92
07-04-2012, 12:49   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: Nis 2012

 

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 .

k.emrebeyaz
23-05-2012, 03:57   |  #2  
Taze Üye
Teşekkür Sayısı: 0
1 mesaj
Kayıt Tarihi:Kayıt: May 2012

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