Gorsel Programlama

Tek Lambalı Trafik Işığı hazılama.. gorsel programlama dersi 1.dönem  2.yazılı uygulama  1.soru.

Yukarıdaki gibi tek lambalı bir trafik ışığı tasarlanacaktır. Kırmızı ve yeşil ışık 20 sn yanacak sarı ışık ise 5 sn yanacaktır. Işığı durdurmak için durdur , yeniden çalıştırmak için de çalıştır düğmesi kullanılacaktır. Çalıştır düğmesine tıklanınca sistem kaldığı yerden çalışmaya devam edecektir. Yayaların beklememesi için yeşil ışık düğmesi tıklanacak ve doğrudan yeşil ışık yanacaktır.

Programda 4 Button,1 Timer ,1 label

Yapılışı;

Timerı Etkileştirdikten sonra timer şu kodlar yazılacak;

If sayac > 45 Then sayac = 0
sayac = sayac + 1
Select Case sayac
Case 1 To 20 : Button1.BackColor = Color.Red
Button1.Text = 21 - sayac
Label1.Text = "DUR"
Case 21 To 25 : Button1.BackColor = Color.Yellow
Button1.Text = 26 - sayac
Label1.Text = "BEKLE"
Case 25 To 45 : Button1.BackColor = Color.FromArgb(0, 255, 0)
Button1.Text = 46 - sayac
Label1.Text = "GEÇ" '
End Select

Button2 yazılacaklar;

Timer1.Enabled = False

Button3 yazılacaklar;

sayac = 25

Button3 yazılacaklar;

 Timer1.Enabled = True 

PROJEYİ İNDİR