Trafik Işığı VB.Net

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

isik

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;

[code language=”vb”]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[/code]

Button2 yazılacaklar;

[code language=”vb”]Timer1.Enabled = False[/code]

Button3 yazılacaklar;

[code language=”vb”]sayac = 25[/code]

Button3 yazılacaklar;

[code language=”vb”]Timer1.Enabled = True [/code]

PROJEYİ İNDİR

Yorumlar 14

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir