Hastane e-randevu Programı örnek VB.net

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.

[code lang=”vbnet”]
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"}
[/code]

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

[code lang=”vbnet”]
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
[/code]

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

[code lang=”vbnet”]
a = a + 1
If a = 59 Then
b = b + 1
a = 0

End If
If b = 10 Then Button2.Enabled = False
Label5.Text = a
[/code]

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

[code lang=”vbnet”]
Randomize()
s = Int(Rnd() * 10)
g = Int(Rnd() * 10)
u = Int(Rnd() * 23)
Label4.Text = s & z(u) & g
[/code]

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…