Yukarıdaki gibi bir kronometre tasarlanacaktır. Durdur ile duracak , devam et tıklanınca devam edecektir. Saat olarak ayarlamak için önce durdur tıklanacak ardından textboxlara saat bilgisi girilecek ve saat olarak ayarla düğmesine tıklanınca kronometre saat gibi çalışmaya devam edecektir. Kronometreyi sıfırlamak için kroanometreyi sıfırla düğmesi tıklanacaktır.
Program 1timer, 4 Button, 3 Textbox, 3 labelden oluşuyor.
Yapılışı:
Kod:
Form1 de Değişken tanımlayalım;
1
Dim saniye, dakika, saat As Integer
Timer1 yazılacaklar;
Form1_Loada yazılacaklar:
?
1
2
3
saat = 0
dakika = 0
saniye = 0
Button1(Durdur) yazılacaklar;
?
1
Timer1.Enabled = False
Button2(Devat et) yazılacaklar;
?
1
Timer1.Enabled = True
Button3(Saat olarak ayarla) yazılacaklar;
?
1
2
3
saat = TextBox3.Text
<pre>dakika = TextBox2.Text
saniye = TextBox1.Text
Button4(Kronometreyi sıfırla) yazılacaklar;
?
1
2
3
4
saat = 0
<pre>dakika = 0
saniye = 0