Bu programda ilk önce 2 button 3 textbox 4 label eklyoruz aşağıda görüldüğü gibi yerleştiriyoruz.

Bu programın amacı internet üzerinden randevu almayı sağlamaktır. Eğer 10 dakika içinde bir işlem yapılmazsa program kendini kitler. Ve kayıt olabilmek içinde güvenlik metninin girilmesi gerekir.

Dim a, b As Integer
Dim s, g, u As Integer
Dim z() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z"}

İlk önce değişkenlerimizi tanımlıyoruz..

Timer1.Interval = 1000
Timer1.Enabled = True
Randomize()
s = Int(Rnd() * 10)
g = Int(Rnd() * 10)
u = Int(Rnd() * 23)
Label4.Text = s & z(u) & g

Daha sonra formun içine gerekli olan bilgileri aktarıyoruz…

a = a + 1
If a = 59 Then
b = b + 1
a = 0

End If
If b = 10 Then Button2.Enabled = False
Label5.Text = a

Daha sonra timer1.tickine dakika ayarlarını yapıyoruz…

Randomize()
s = Int(Rnd() * 10)
g = Int(Rnd() * 10)
u = Int(Rnd() * 23)
Label4.Text = s & z(u) & g

En son olarakta bu verileri aktardıktan sonra programımızı çalıştırmaya başlıyoruz…

Program çalıştıktan sonraki yüzünü aşşağıda görebilirsiniz…

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.