[Script]
//智能行人过街路灯系统 高一(19)班刘黎可制作
//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

可执行文件如下
【暂未上传】
源文件如下
智能行人过街路灯系统v1.0 高一19刘黎可制作.Q

Last modification:November 27th, 2019 at 02:30 pm
如果觉得我的文章对你有用,请随意赞赏~