用VB模拟交通信号灯

Private Sub Form_Load()

Timer1Interval = 60000

Timer2Interval = 60000

End SubPrivate Sub Timer1_Timer()

MeBackColor = RGB(0, 255, 0)

Timer2Enabled = True

Timer1Enabled = False

End SubPrivate Sub Timer2_Timer()

MeBackColor = RGB(255, 0, 0)

Timer1Enabled = True

Timer2Enabled = False

End Sub

给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。

Dim T As Integer, redT As Integer, greenT As Integer, yellowT As Integer

Private Sub Form_Load()

  For i = 0 To 2

    Shape1(i)BackStyle = 0

  Next i

  redT = 30

  greenT = 30

  yellowT = 3

  Text1Text = ""

  Timer1Interval = 1000

  T = -1

End Sub

Private Sub Timer1_Timer()

  T = T + 1

  If T >= 0 And T < redT Then

    Shape1(0)BackStyle = 1

    Shape1(1)BackStyle = 0

    Shape1(2)BackStyle = 0

    Shape1(0)BackColor = vbRed

    Text1ForeColor = vbRed

    Text1Text = redT - T

  ElseIf T >= redT And T < redT + greenT Then

    Shape1(0)BackStyle = 0

    Shape1(1)BackStyle = 0

    Shape1(2)BackStyle = 1

    Shape1(2)BackColor = vbGreen

    Text1ForeColor = vbGreen

    Text1Text = redT + greenT - T

  ElseIf T >= redT + greenT And T < redT + greenT + yellowT Then

    Shape1(0)BackStyle = 0

    Shape1(1)BackStyle = 1

    Shape1(2)BackStyle = 0

    Shape1(1)BackColor = vbYellow

    Text1ForeColor = vbYellow

    Text1Text = redT + greenT + yellowT - T

  Else

    T = -1

  End If

End Sub

以上就是关于用VB模拟交通信号灯全部的内容，包括:用VB模拟交通信号灯、用VB.NET编写红绿灯程序、啊啊啊啊啊啊知道怎么用VB做红绿灯啊简单的那种就行！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！