Şanslı Müşteri Çekilişi VB.Net

Şanslı müşteri çekilişi ve müşteri ekleme programı.. gorsel programlama dersi 1.dönem  2.yazılı uygulama  3.soru. 

Yukarıdaki gibi bir program tasarlanacaktır. Soldaki gibi bir form tasarlanarak bir marketten alışveriş yapan müşterilerin ismi bir diziye girilecektir. İsim girme işlemi textboxa yapılacak ve ekle düğmesine tıklayınca isim diziye eklenecektir. Şanslı müşteriyi bulmak için KURA ÇEK düğmesi tıklanacak ve şanslı müşterinin ismi labelde görünecektir. Bu programı tasarlayınız. 

Program 3 label, 2 Button, 1 TextBox,1 Timer tan uluşacak. 

Yapılışı;  

Formun başına Değişken tanuımlayacağız ; 

[code language=”vb”]Dim sayı As Integer
Dim müşteri(100) As String
Dim sayaç As Integer[/code]

Button1(Ekle) yazılacaklar; 

[code language=”vb”]müşteri(sayaç) = TextBox1.Text
sayaç = sayaç + 1 [/code]

Form1yazılacaklar;  

[code language=”vb”]sayaç = 0 [/code]

Button2(Kura Çek) yazılacaklar; 

[code language=”vb”]sayı = Int(Rnd() * sayaç)
Label2.Text = müşteri(sayı)[/code]

PROJEYİ İNDİR