[Script]
//智能行人过街路灯系统 高一（19）班Nico制作
//20191124 v1.0

Event Form1.buttonStart.Click
Form1.status.Caption = "东西方向通行中，不可过街"
Form1.prgress.Value = 0
Form1.lightW.Picture = "Attachment:\car_red.jpg"
Form1.lightE.Picture = "Attachment:\car_red.jpg"
Form1.lightN.Picture = "Attachment:\car_red.jpg"
Form1.lightS.Picture = "Attachment:\car_red.jpg"
End Event

Event Form1.buttonGo.Click
Form1.status.Caption = "南北方向通行中，可过街"
Form1.lightW.Picture = "Attachment:\car_red.jpg"
Form1.lightE.Picture = "Attachment:\car_red.jpg"
Form1.lightN.Picture = "Attachment:\car_green.jpg"
Form1.lightS.Picture = "Attachment:\car_green.jpg"
call go()
End Event

Function go()
For i = 1 To 10
Delay 500
Form1.prgress.Value = i*10
Next
Form1.lightW.Picture = "Attachment:\car_green.jpg"
Form1.lightE.Picture = "Attachment:\car_green.jpg"
Form1.lightN.Picture = "Attachment:\car_red.jpg"
Form1.lightS.Picture = "Attachment:\car_red.jpg"
Form1.status.Caption = "东西方向通行中，不可过街"
Form1.prgress.Value = 0
End Function

Event Form1.buttonEnd.Click
Form1.status.Caption = "状态栏"
Form1.prgress.Value = 0
Form1.lightW.Picture = "Attachment:\car_red.jpg"
Form1.lightE.Picture = "Attachment:\car_red.jpg"
Form1.lightN.Picture = "Attachment:\car_red.jpg"
Form1.lightS.Picture = "Attachment:\car_red.jpg"
End Event

Event Form1.aboutIn.Click
// Form1.Close
Form2.Show
End Event

Event Form2.aboutOut.Click
// Form1.Show
Form2.Close
End Event