Trafik Işıkları Kodu

Visual Basicte trafik ışıkları yapma…3 button,1 groupbox ve 1tane timer.

Burada 3 button , 1 groupbox ve 1 tane timer kullanacağız resimdede göründüğü buttonların arka plan rengi belirli bir saniye yanıp daha sonra diğer buttona geçiyor ve hangi buttona geliyorsa groupbox ta o buttonun ne anlama geldiği yazıcak..

yapmaya başlayalım..

Timer1_Tick yazılacak Kodlar;

1234567891011121314151617181920212223242526272829 sayac = sayac + 1
If sayac > 45 Then sayac = 0

Select Case sayac
Case 0 To 20 : Button1.BackColor = Color.FromArgb(255, 0, 0)
Button2.BackColor = Color.Empty
Button3.BackColor = Color.Empty
GroupBox1.Text = "DUR"
Button1.Text = 20 - sayac
Button2.Text = (" ")
Button3.Text = (" ")

Case 21 To 25 : Button2.BackColor = Color.FromArgb(255, 255, 0)
Button1.BackColor = Color.Empty
Button3.BackColor = Color.Empty
GroupBox1.Text = "HAZIRLAN"
Button2.Text = 25 - sayac
Button1.Text = (" ")
Button3.Text = (" ")
Case 26 To 45 : Button3.BackColor = Color.FromArgb(0, 255, 0)
Button1.BackColor = Color.Empty
Button2.BackColor = Color.Empty
GroupBox1.Text = "GEÇ"
Button3.Text = 45 - sayac
Button1.Text = (" ")
Button2.Text = (" ")

End Select

Form1_Load yazılacak kod;

1sayac = 0