Gorsel Programlama

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
dakika = TextBox2.Text
saniye = TextBox1.Text

Button4(Kronometreyi sıfırla) yazılacaklar;

    saat = 0
dakika = 0
saniye = 0

PROJEYİ İNDİR