Visual Basic Birbirinden Farklı Random Sayı Üretme

Visual Basic programı gelişim aşamasında  zaman zaman karşımıza visual basic  birbirinden farklı random sayı üretme olup olmadığı nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte  birbirinden farklı random sayı üretme hesabını kolayca yapabileceksiniz.

 

Visual Basic Birbirinden Farklı Random Sayı Üretme

 Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Button1.Text = Int(Rnd(1) * (9) + 1)

        Button2.Text = Int(Rnd(1) * (9) + 1)

        If Button2.Text = Button1.Text Then


            Do Until Button1.Text <> Button2.Text


                Button2.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If

        Button3.Text = Int(Rnd(1) * (9) + 1)


        If Button3.Text = Button1.Text Or Button3.Text = Button2.Text Then


            Do Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text


                Button3.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If

        Button4.Text = Int(Rnd(1) * (9) + 1)


        If Button4.Text = Button1.Text Or Button4.Text = Button2.Text Or Button4.Text = Button3.Text Then


            Do Until Button4.Text <> Button1.Text And Button4.Text <> Button2.Text And Button4.Text <> Button3.Text


                Button4.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If



        Button5.Text = Int(Rnd(1) * (9) + 1)


        If Button5.Text = Button1.Text Or Button5.Text = Button2.Text Or Button5.Text = Button3.Text Or Button5.Text = Button4.Text Then


            Do Until Button5.Text <> Button1.Text And Button5.Text <> Button2.Text And Button5.Text <> Button3.Text And Button5.Text <> Button4.Text


                Button5.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If




        Button6.Text = Int(Rnd(1) * (9) + 1)


        If Button6.Text = Button1.Text Or Button6.Text = Button2.Text Or Button6.Text = Button3.Text Or Button6.Text = Button4.Text Or Button6.Text = Button5.Text Then


            Do Until Button6.Text <> Button1.Text And Button6.Text <> Button2.Text And Button6.Text <> Button3.Text And Button6.Text <> Button4.Text And Button6.Text <> Button5.Text


                Button6.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If


        Button7.Text = Int(Rnd(1) * (9) + 1)


        If Button7.Text = Button1.Text Or Button7.Text = Button2.Text Or Button7.Text = Button3.Text Or Button7.Text = Button4.Text Or Button7.Text = Button5.Text Or Button7.Text = Button6.Text Then


            Do Until Button7.Text <> Button1.Text And Button7.Text <> Button2.Text And Button7.Text <> Button3.Text And Button7.Text <> Button4.Text And Button7.Text <> Button5.Text And Button7.Text <> Button6.Text


                Button7.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If

        Button8.Text = Int(Rnd(1) * (9) + 1)


        If Button8.Text = Button1.Text Or Button8.Text = Button2.Text Or Button8.Text = Button3.Text Or Button8.Text = Button4.Text Or Button8.Text = Button5.Text Or Button8.Text = Button6.Text Or Button8.Text = Button7.Text Then


            Do Until Button8.Text <> Button1.Text And Button8.Text <> Button2.Text And Button8.Text <> Button3.Text And Button8.Text <> Button4.Text And Button8.Text <> Button5.Text And Button8.Text <> Button6.Text And Button8.Text <> Button7.Text


                Button8.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If

        Button9.Text = Int(Rnd(1) * (9) + 1)


        If Button9.Text = Button1.Text Or Button9.Text = Button2.Text Or Button9.Text = Button3.Text Or Button9.Text = Button4.Text Or Button9.Text = Button5.Text Or Button9.Text = Button6.Text Or Button9.Text = Button7.Text Or Button9.Text = Button8.Text Then


            Do Until Button9.Text <> Button1.Text And Button9.Text <> Button2.Text And Button9.Text <> Button3.Text And Button9.Text <> Button4.Text And Button9.Text <> Button5.Text And Button9.Text <> Button6.Text And Button9.Text <> Button7.Text And Button9.Text <> Button8.Text


                Button9.Text = Int(Rnd(1) * (9) + 1)


            Loop


        End If
    End Sub
End Class

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Visual Basic ile ilgili kavramlara ek olarak, Visual Basic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır. Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

Örnek Programlar

VİSUAL BASİC KAÇ GÜNDÜR YAŞADIĞIMIZI BULAN PROGRAM

3 ADET SAYIDAN EN BÜYÜĞÜNÜ VE EN KÜÇÜĞÜNÜ BULMA VİSUAL BASİC

VİSUAL BASİC MÜKEMMEL SAYI

 

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.

Makale Hizmeti