Bu fonksiyon, belirlenen iki sayı arasından rastgele bir sayı seçmek için kullanılan bir fonksiyondur.
Peki Bu Fonksiyon Nasıl Kullanılır ?
1 Adet Button
1 Adet Textbox
Public Class Form1
Function RastgeleFonksiyonu(ByVal Küçük As Integer, ByVal Büyük As Integer)
On Error Resume Next
Static xRastgele As Random = New Random()
Return xRastgele.Next(Küçük, Büyük)
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsgBox("SonBilgi.Net - Random Fonksiyonu", 64, "SONBİLGİ.NET")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = RastgeleFonksiyonu(0, 101)
End Sub
End Class
0,101 Olarak seçtik, Bunun anlamı en düşük değer 0, En yüksek değer 100.
Eğer 0,100 seçmiş olsaydık, En düşük değer 0, En yüksek değer 99 olacaktı.