威纶通触摸屏宏指令如何编写时间限制？时间到停机要密码 - 工控编程吧

上传

点击文件名下载附件
界面上可以设置到期时间，实际使用时，可以不用精确到分秒。
这里仅是练手学习，可以参考，修改使用。
同时当前触摸屏的系统显示也在界面上显示出来。

后台有运行一宏指令，每隔200毫秒会检测设置时间与系统是否一至，相同则表示时间到。
执行置位相同寄存器来表示期限到。
宏内是直接将年，月，日，时，分，秒进行对比，也可以考虑使用时间戳来试试。
时间到后，会在界面点亮指示灯LB0。

具体使用如下：
第二行显示的是当前屏上的时间，如2020， 10， 25， 23， 15，00；(年，月，日，时，分，秒)
要测试的话，可设置第一行的程序到期时间，如2020， 10， 25， 23， 15，30.
这样30秒到点后，程序锁定。
在最后一行输入密码(预留有6组，分别对年月日时分秒延期，具体看宏1)，
如111111，点击应用，程序会延长10秒，后到期再停止。

宏指令如下：
macro_command main()
bool bOn=false
GetData(bOn, "Local HMI", LB, 0, 1)
if bOn == true then
return
end if
//
short nY,nM,nD,nHour,nMinute,nSecond
GetData(nY, "Local HMI", RW, 0, 1)
GetData(nM, "Local HMI", RW, 1, 1)
GetData(nD, "Local HMI", RW, 2, 1)
GetData(nHour, "Local HMI", RW, 3, 1)
GetData(nMinute, "Local HMI", RW, 4, 1)
GetData(nSecond, "Local HMI", RW, 5, 1)
//本机时间获取
short nY1,nM1,nD1,nHour1,nMinute1,nSecond1
GetData(nY1, "Local HMI", LW, 9022, 1)
GetData(nM1, "Local HMI", LW, 9021, 1)
GetData(nD1, "Local HMI", LW, 9020, 1)
GetData(nHour1, "Local HMI", LW, 9019, 1)
GetData(nMinute1, "Local HMI", LW, 9018, 1)
GetData(nSecond1, "Local HMI", LW, 9017, 1)
//并显示(可删除不用)
SetData(nY1, "Local HMI", LW, 10, 1)
SetData(nM1, "Local HMI", LW, 11, 1)
SetData(nD1, "Local HMI", LW, 12, 1)
SetData(nHour1, "Local HMI", LW, 13, 1)
SetData(nMinute1, "Local HMI", LW, 14, 1)
SetData(nSecond1, "Local HMI", LW, 15, 1)
//如果时间到则置位相关寄存器
if nY1==nY then
if nM==nM1 then
if nD==nD1 then
if nHour==nHour1 then
if nMinute==nMinute1 then
if nSecond==nSecond1 then
bOn=true
SetData(bOn, "Local HMI", LB, 0, 1)
SetData(bOn, "FATEK FB/FBs/B1/B1z Series", M, 8034, 1)
return
end if
end if
end if
end if
end if
end if
end macro_command

宏设置了每200毫秒执行一次，代码使用时注意进行设置。

时间到后，灯点亮，程序进入锁定状态。
可以在界面上输入密码，点击应用，来解锁。
密码在解锁的宏里面使用了6组，可以分别对年，月，日，时，分，秒进行累加。
进行时间的延长处理。
宏代码如下：

macro_command main()
int nSecret=0
short nTemp=0
//不需要延期，则直执行。
bool bOn=true
GetData(bOn, "Local HMI", LB, 0, 1)
if bOn == false then
return
end if
//
GetData(nSecret, "Local HMI", LW, 0, 1)
//第一组密码对，秒数增加
if nSecret==111111 then
GetData(nTemp, "Local HMI", RW, 5, 1)
nTemp = nTemp+10
if nTemp>60 then
nTemp = nTemp-10
end if
SetData(nTemp, "Local HMI", RW, 5, 1)
bOn = false
end if
//第二组密码对，分数增加
if nSecret==222222 then
GetData(nTemp, "Local HMI", RW, 4, 1)
nTemp = nTemp+1
if nTemp>60 then
nTemp = nTemp-1
end if
SetData(nTemp, "Local HMI", RW, 4, 1)
bOn = false
end if
//第三组密码对，时数增加
if nSecret==333333 then
GetData(nTemp, "Local HMI", RW, 3, 1)
nTemp = nTemp+1
if nTemp>24 then
nTemp = nTemp-1
end if
SetData(nTemp, "Local HMI", RW, 3, 1)
bOn = false
end if
//第四组密码对，日数增加
if nSecret==444444 then
GetData(nTemp, "Local HMI", RW, 2, 1)
nTemp = nTemp+1
if nTemp>29 then
nTemp = nTemp-1
end if
SetData(nTemp, "Local HMI", RW, 2, 1)
bOn = false
end if
//第五组密码对，月数增加
if nSecret==555555 then
GetData(nTemp, "Local HMI", RW, 1, 1)
nTemp = nTemp+1
if nTemp>24 then
nTemp = nTemp-1
end if
SetData(nTemp, "Local HMI", RW, 1, 1)
bOn = false
end if
//第六组密码对，年数增加
if nSecret==666666 then
GetData(nTemp, "Local HMI", RW, 0, 1)
nTemp = nTemp+1
SetData(nTemp, "Local HMI", RW, 0, 1)
bOn = false
end if
//
SetData(bOn, "FATEK FB/FBs/B1/B1z Series", M, 8034, 1)
SetData(bOn, "Local HMI", LB, 0, 1)
end macro_command

代码功能，仅是根据问题来编写，仅供参考。
例程下载地址：
(, 下载次数: 17)