Tekrarlanmayan sayı üretme

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

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.

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

hocam güzel olmuş eline sağlık :D Bu konuyla bi alakası yok ama bişey sormak istiyorum. Form a müzik eklediğimizde Url giriyoruz ya.Programı çalıştırdığımda bilgisyarımdaki müzik dosyasını kaynak olarak kullanarak çalıyo.Bi süre sonra ben o müziği bilgisyarımdan sildiğimde çalışmıyo.Programla iç içe olacak şekilde nasıl yapabiliriz?

Yukarı Git