怎么通过分钟的变化将用户归档表格控件自动增加记录。我看例子上有个全局脚本:Option Explicit
Function action
Dim riqi
Dim riqijiu
Dim shijian
Set shijian=HMIRuntime.Tags("shijian")
shijian.Read
Set riqijiu = HMIRuntime.Tags("riqijiu")
Dim MyID1
Set MyID1 = HMIRuntime.Tags("MyID1")
Dim flag
Set flag = HMIRuntime.Tags("flag")
MyID1.Read
flag.Read
If flag.Value =1 Then
riqi=CStr(Hour(Now))&"-"&CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))
riqijiu.Read
riqijiu.Write ""&riqi&""
Dim UA_test_ID
Set UA_test_ID = HMIRuntime.Tags("@UA_test_ID")
Dim UA_test_Job
Set UA_test_Job = HMIRuntime.Tags("@UA_test_Job")
UA_test_ID.Read
UA_test_ID.Write -1
UA_test_Job.Read
UA_test_Job.Write 6
End if
End Function
但是做了没有成功。。谁能详细的给个正确的
问题补充:
怎么通过分钟的变化将用户归档表格控件自动增加记录。这段脚本怎么写
最佳答案
基本上不需要写什么脚本,这段脚本就可以拿来用,关键是再正确的源代码如果脱离了实际的环境也是毫无意义的,比如变量、用户归档等等,另外代码是需要调试的。
建议你在原有项目上做修改,分钟的变化可以将全局脚本触发周期改为周期触发,周期1分钟,同时将If flag.Value =1 Then条件去除即可。
提问者对于答案的评价:
哦。。在看看
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc270538.html