Visual Basic Rastgele Sayı Üretme

Visual Basic programı gelişim aşamasında   karşımıza visual basic rastgele sayı üretme nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte  programda 6 adet rastgele sayı üretme hesabını kolayca yapabileceksiniz.

Rastgele Sayı Üretme

Kodlamasını yapacağımız bütün programlarda işimize yarayacak önemli kodlardan birisi de random sayılardır.  Hemen her kriptolama işleminde veya oyun kodlama aşamasında rastgele sayı üretme karşımıza çıkar. Peki random sayı nasıl üretilir ? Bilgisayar sayıyı gerçekten random mu üretir yoksa bir algoritması mı var ? 

Öncelikle bilmemiz gerekenlerden birisi bilgisayar çıktılarının determinist olacağıdır. Çıktının ne olacağı, hangi anda ne yapılacağının muhakkak bir kaynağı vardır. Yani bilgisayarlar random sayı üretemez. Ancak random sayıyı üretme aşamasında birçok kaynak ve başvurulan yöntem varsa bu sayıyı tahmin etmek neredeyse imkansızdır.  Çıkacak sayıyı, algoritmayı bilmeyenlerin önceden öngöremeyişi nedeniyle, karmaşık bir algoritma sonunda bir sayısal değer verilen üretilen sayıya  rasgele sayı (random number) denilir.

Aşağıda verilen kodlar sayesinde visual basic dilinde altı adet rastgele sayı üretebileceksiniz. 

 

Visual Basic Rastgele Sayı Üretme Kodları

Private Sub Button1_Click(sender As Object, e As EventArgs) 
Handles Button1.Click 
ListBox1.Items.Clear() 
Dim sayi, i As Integer Randomize() 
For i = 1 To 6 sayi = Int(Rnd() * (100 - 0) + 0) 
ListBox1.Items.Add(sayi) 
Next i 
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.
Diğer örneklere de göz atabilirsiniz:
Visual Basic Basit Hesap Makinesi
Girilen Sayının Kuvvetini ve Faktöriyelini Hesaplama

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

Bir cevap yazın

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

Makale Hizmeti