RSS

Tekrarlanmayan sayı üretme

17 Nis

Tekrarlanmayan sayı üretme
Bu dersimizde birbirinden farklı, tekrarlanmayan 1 -10 arasında 5 sayı üretelim.

Formumuza 5 textbox ve 1 button ekliyoruz.

Arkasından butonun içine şu kodları ekliyoruz


TextBox1.Text = CInt(Rnd(1) * (10))

        TextBox2.Text = CInt(Rnd(1) * (10))
        If TextBox2.Text = TextBox1.Text Then
            Do Until TextBox1.Text <> TextBox2.Text
                TextBox2.Text = CInt(Rnd(1) * (10))
            Loop
        End If

        TextBox3.Text = CInt(Rnd(1) * (10))
        If TextBox3.Text = TextBox1.Text Or TextBox3.Text = TextBox2.Text Then
            Do Until TextBox3.Text <> TextBox2.Text And TextBox3.Text <> TextBox1.Text
                TextBox3.Text = CInt(Rnd(1) * (10))
            Loop
        End If

        TextBox4.Text = CInt(Rnd(1) * (10))
        If TextBox4.Text = TextBox1.Text Or TextBox4.Text = TextBox2.Text Or TextBox4.Text = TextBox3.Text Then
            Do Until TextBox4.Text <> TextBox1.Text And TextBox4.Text <> TextBox2.Text And TextBox4.Text <> TextBox3.Text
                TextBox4.Text = CInt(Rnd(1) * (10))
            Loop
        End If

        TextBox5.Text = CInt(Rnd(1) * (10))
        If TextBox5.Text = TextBox1.Text Or TextBox5.Text = TextBox2.Text Or TextBox5.Text = TextBox3.Text Or TextBox5.Text = TextBox4.Text Then
            Do Until TextBox5.Text <> TextBox1.Text And TextBox5.Text <> TextBox2.Text And TextBox5.Text <> TextBox3.Text And TextBox5.Text <> TextBox4.Text
                TextBox5.Text = CInt(Rnd(1) * (10))
            Loop
        End If


Kolay gelsin.

Kaynak dosyayı indirmek için tıklayın

 
Yorum yapın

Yazan: 17 Nisan 2011 in Genel

 

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

 
%d blogcu bunu beğendi: