Basit bir kronometre yapılışı..gorsel programlama dersi 1.dönem 3.yazılı uygulama 2.soru.
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ışı:
Form1 de Değişken tanımlayalım;
Dim saniye, dakika, saat As Integer
Timer1 yazılacaklar;
saniye = saniye + 1</p></p> If saniye = 60 Then dakika = dakika + 1 saniye = 0 End If If dakika = 60 Then saat = saat + 1 dakika = 0 End If If saat = 24 Then saat = 0 TextBox1.Text = saniye TextBox2.Text = dakika TextBox3.Text = saat
Form1_Load’a yazılacaklar:
saat = 0 dakika = 0 saniye = 0
Button1(Durdur) yazılacaklar;
Timer1.Enabled = False
Button2(Devat et) yazılacaklar;
Timer1.Enabled = True
Button3(Saat olarak ayarla) yazılacaklar;
saat = TextBox3.Text <pre>dakika = TextBox2.Text saniye = TextBox1.Text
Button4(Kronometreyi sıfırla) yazılacaklar;
saat = 0 <pre>dakika = 0 saniye = 0
