Random Nedir? Nasıl Seçim Yaptırılır?

Öncelikle Random şudur ki;
belirttiğiniz aralıklarda sistem size bir sayı verir..
Örn şimdi yapacağımız fonksiyonda bir örnek;

Kod:

MSGBOX RandomSayi("20","30"),"Random Deneme","Kuflu"

Bize 20 ile 30 arasında farklı sayılar verecektir..
Ne işimize yarar?
Basit olarak örnek vermek gerekirse mesela forumlara kayıt olurken gelen captha oluşturabilirsiniz..

Kod:

Public Function RandomSayi(ByVal EnDusuk As Long, ByVal EnYuksek As Long) As Integer
  RandomSayi = Int((EnYuksek - EnDusuk + 1) * Rnd) + EnDusuk 
End Function

Şimdi captha nasıl yaparız onu birazcık açayım..
Deneme olarak yapalım küçük bir şey..
diziler oluşturalım.

Dim harfler(1 to 29) as string
Form_Load()
----------------------
harfler(1)="A"
harfler(2)="B"
...

Function Captha()
Dim S1,S2,S3,S4 as integer
S1= RandomSayi("1","29")
S2= RandomSayi("1","29")
S3= RandomSayi("1","29")
S4= RandomSayi("1","29")
Msgbox harfler(S1) & Harfler(S2) & Harfler(S3) & Harfler(S4)
End Function
mesela S1="1" olursa harfler dizisinden 1'i seçer ve A yazar


Alıntıdır.