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…
