Hastane Kayıt - Randevu Programı Örneği

Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere Hastane kayıt- randevu alma program örneğini aktaracağız. Hastane randevusu nasıl alınır?  İnternet üzerinden hastane randevusu nasıl alınır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.

Hastane Randevu Alma

Kullanılması Gerekenler

Hastane kayıt- randevu alma program örneğinde kullanılması gerekenler sırası ile şunlardır:

2 adet Button, 3 adet TextBox ve 4 adet Label bu programda kullanılması gerekenlerdir.

Kod Alanı

Bu örnek programımız internet üzerinden hastane randevusu alma programları ile aynıdır. Program açıldıktan sonra 10 dakika içinde herhangi bir işlem yapılmazsa program kendini kitlemektedir. Bu yüzden kayıt olabilmek için güvenlik metninin girilmesi gerekmektedir.

Programımıza başlarken ilk olarak değişkenlerimizi atıyoruz. Atadığımız değişkenleri programımızın içerisinde tanımlıyoruz. Timerımızı ayarlıyoruz 10 dakika çalışmasa programı kitle diye. Güvenlik metnini rastgele sayılar atarak ayarlıyoruz.  Yenilemek için güvenlik metnini kullanıyoruz. Başvura başlayınca verileri kaydediyoruz. 

Sql bağlantısı kullanıldığı zaman bu program kullanışlı olabilir. Sadece sql değil herhangi bir veri tabanı bağlantılı program ile hastane randevu programımız çalışabilmektedir. Bu tip programlar güncel hayatımızda kullanabildiğimiz programların kolaylaştırılmış örnekleridir. Eğer bu örnekleri kavrayabilirseniz ileride sizlerde güncel hayatınızda kullanabileceğiniz programlar üretebilirsiniz. Denemekten çekinmeyin. Dene kaybet dene kodlama öğrenmenin temel mottosudur. 

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"}

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

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

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

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

0 Yorumlar