1S 动作里的程序

Dim Progressbar,state,progressBar01

Set ProgressBar=HMIRuntime.Screens("WinccMain").ScreenItems("ProgressBar")

Set progressBar01=HMIRuntime.Screens("WinccMain.PinnedPw:Topfloor").ScreenItems("progressBar01")

'面板上的进度条状态显示

If state=0 Then

RandomNumber.Write 0

End If

If state=1 Then

ProgressBar.BackColor    =RGb(255,0,0)

progressBar01.BackColor  =RGb(255,0,0)

End If 

If state=2 Then

ProgressBar.BackColor    =RGb(255,255,0)

progressBar01.BackColor  =RGb(255,255,0)

End If 

If state=3 Then

ProgressBar.BackColor    =RGb(0,128,0)

progressBar01.BackColor  =RGb(0,128,0)

End If