Ş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 ; 

  

Dim sayı As Integer
Dim müşteri(100) As String
Dim sayaç As Integer

Button1(Ekle) yazılacaklar; 

müşteri(sayaç) = TextBox1.Text
sayaç = sayaç + 1 

  

Form1yazılacaklar;  

sayaç = 0 

Button2(Kura Çek) yazılacaklar; 

sayı = Int(Rnd() * sayaç)
Label2.Text = müşteri(sayı)

 

PROJEYİ İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.