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.
Dim tcno(9) as integer
Sonrada button1 ‘in clic’ıne bir sayaç oluşturucağız.
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
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:
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)
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ü:
