在一个画面对象的显示属性中，有这样一段VBS脚本，有些地方不太懂，请帮忙解释一下，谢谢
Dim HH
HH=Minute(Time)
If HMIRuntime.Tags(
问题补充：
Dim HH
HH=Minute(Time)
If HMIRuntime.Tags("Registed").Read And HMIRuntime.Screens("START").ScreenItems("SW").Visible Then
'If 1=1 Then
HMIRuntime.Tags("ThisDay").Write Date
HMIRuntime.Tags("ThisTime").Write Time
'HMIRuntime.Trace vbCrLf & "ThisDay=" & Date &";ThisTime=" & Time
'HH=Hour(HMIRuntime.Tags("ThisTime").read(0))
If HMIRuntime.Tags("ThisHour").read(1) <> -1 And _
HMIRuntime.Tags("ThisHour").read(0) <> HH Then
'MsgBox("Add a new record!" & HH)
HMIRuntime.Trace vbCrLf & "Add a new record!"
HMIRuntime.Trace vbCrLf & "ThisDay=" & Date &";ThisTime=" & Time
HMIRuntime.Tags("@UA_Boiler_ID").Write -1
HMIRuntime.Tags("@UA_Boiler_Job").Write 6
End If
Else
If HMIRuntime.Tags("ThisHour").read(1) <> -1 Then
HMIRuntime.Screens("Start").ScreenItems("SW").PictureName="Z0-注册.PDL"
End If
End If
HMIRuntime.Tags("ThisHour").Write HH
代码不知为什么不能显示
最佳答案
Dim HH '定义一个变量HH
HH=Minute(Time) '当前时间的分钟赋值给HH
If HMIRuntime.Tags( '如果 变量 。。。。内容不完整
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc265404.html
微信扫一扫 
支付宝扫一扫 