Programımız için 1 textbox , 2 button ve 4 label oluşturuyoruz. Şekildeki gibi olucak :
Öncelikle tcne(9) şeklinde bir dizi oluşturuyoruz.Bu dizilerin amacı fazladan değiş ken yazmayı kısaltmak için kullanıyoruz.
[code language=”vb”]
Dim tcno(9) as integer
[/code]
Sonrada button1 ‘in clic’ıne bir sayaç oluşturucağız.
[code language=”vb”]
If i < 10 Then
tcno(i) = TextBox1.Text
i = i + 1
Label4.Text = i
End If
If i = 10 Then
TextBox1.Enabled = False
End If
[/code]
Sonrada formumuzun loadına i=0 yazıcağız. Bunun amacı i değişkenini 0 ‘a eşitliyoruz.
Daha sonrada button2’nin içine şu kodları yazıyoruz:
[code language=”vb”]
Dim a As Byte
Randomize()
a = Int(Rnd() * 9)
Label1.Text = tcno(a)
a = Int(Rnd() * 9)
Label2.Text = tcno(a)
a = Int(Rnd() * 9)
Label3.Text = tcno(a)
[/code]
Bu kodlardaki amaç programımıza giriş yapılan 10 adet TC kimlik numarasından rastgele seçim yapabilmesi için randomize komutunu kullanıcağız.Ve labellerimize yazdıracağız.Bu program çalıştığızamandaki görüntüsü:
