Dim i%, G%, Y%, R%
Dim TimerCount, OnTimer
Private Sub Form_Load() '给图像框图加载图像
Image1.Picture = LoadPicture(App.Path + "\E067a.ico") '使用的相对路径
Image2.Picture = LoadPicture(App.Path + "\E067b.ico")
Image3.Picture = LoadPicture(App.Path + "\E067c.ico")
Image4.Picture = LoadPicture(App.Path + "\E067d.ico")
G = 10 '绿灯时间
Y = 3 '黄灯时间
R = 6 '红灯时间
i = 0 '设置最先显示绿灯
End Sub
Private Sub Timer1_Timer()
If Time < #11:00:00 PM# And Time > #12:30:00 AM# Then '在普通时段的时间控制
Select Case i
Case 0
Image1.Picture = Image2.Picture: i = 1 '轮流显现绿灯、黄灯、红灯
Timer1.Interval = G * 1000
OnTimer = Time
TimerCount = DateAdd("s", G, OnTimer)
Case 1
Image1.Picture = Image3.Picture: i = 2 '变量i用来作标记使用
Timer1.Interval = Y * 1000
OnTimer = Time
TimerCount = DateAdd("s", Y, OnTimer)
Case 2
Image1.Picture = Image4.Picture: i = 0
Timer1.Interval = R * 1000
OnTimer = Time
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余1页未读,立即下载