Trafik Işıkları

[Linkleri görebilmek için üye olun veya giriş yapın.]

Verilen saniyelere göre yeşil, sarı ve kırmızı ışıkları yanan trafik lambası. Eklenecek nesneler; shape1(yeşil), shape2(sarı), shape3(kırmızı) Text1, Text2,Text3, Timer1, Timer2, Timer3, Command1 (Timer'ların Interval özelliğini 1000 yapıyoruz) (Shape' lerin shape özelliğini Circle seçiyoruz) NOT: Shape' lerin renklerini beyaz veya siyah yapın, butona tıklandığında renk değiştiriyor..

Dim a, b, c
Private Sub Command1_Click()
i = 0
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Timer1.Enabled = True
End Sub


Private Sub Form_Load()
i = 0
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 1
If i = a Then
Shape1.BackColor = &HFFFFFF
Timer1.Enabled = False
Timer2.Enabled = True
i = 0
Else
Shape1.BackColor = &HC000&
End If
End Sub

Private Sub Timer2_Timer()
Static i
i = i + 1
If i = b Then
Shape2.BackColor = &HFFFFFF
Timer2.Enabled = False
Timer3.Enabled = True
i = 0
Else
Shape2.BackColor = &HFFFF&
End If
End Sub

Private Sub Timer3_Timer()
Static i
i = i + 1
If i = b Then
Shape3.BackColor = &HFFFFFF
Timer3.Enabled = False
i = 0
Else
Shape3.BackColor = &HFF&
End If
End Sub