| Dim B(100) |
| B(0) = 1 |
| B(1) = 2 |
| B(2) = 3 |
| B(3) = 4 |
| B(4) = 5 |
| B(5) = 6 |
| B(6) = 7 |
| B(7) = 8 |
| B(8) = 9 |
| B(9) = 10 |
| B(10) = 21 |
| B(11) = 22 |
| B(12) = 23 |
| B(13) = 24 |
| B(14) = 25 |
| B(15) = 26 |
| B(16) = 27 |
| B(17) = 28 |
| B(18) = 29 |
| B(19) = 20 |
| B(20) = 21 |
| B(21) = 22 |
| B(22) = 23 |
| B(23) = 24 |
| B(24) = 25 |
| B(25) = 26 |
| B(26) = 27 |
| B(27) = 28 |
| B(28) = 29 |
| B(29) = 30 |
| B(30) = 31 |
| B(31) = 32 |
| B(32) = 33 |
| B(33) = 34 |
| B(34) = 35 |
| B(35) = 36 |
| B(36) = 37 |
| B(37) = 38 |
| B(38) = 39 |
| B(39) = 40 |
| B(40) = 41 |
| B(41) = 42 |
| B(42) = 43 |
| B(43) = 44 |
| B(44) = 45 |
| |
| Dim P(50) |
| P(0) = SmartTags("Tag_1") |
| P(1) = SmartTags("Tag_2") |
| P(2) = SmartTags("Tag_3") |
| P(3) = SmartTags("Tag_4") |
| P(4) = SmartTags("Tag_5") |
| P(5) = SmartTags("Tag_6") |
| P(6) = SmartTags("Tag_7") |
| P(7) = SmartTags("Tag_8") |
| P(8) = SmartTags("Tag_9") |
| P(9) = SmartTags("Tag_10") |
| P(10) = SmartTags("Tag_11") |
| P(11) = SmartTags("Tag_12") |
| P(12) = SmartTags("Tag_13") |
| P(13) = SmartTags("Tag_14") |
| P(14) = SmartTags("Tag_15") |
| P(15) = SmartTags("Tag_16") |
| P(16) = SmartTags("Tag_17") |
| P(17) = SmartTags("Tag_18") |
| P(18) = SmartTags("Tag_19") |
| P(19) = SmartTags("Tag_20") |
| P(20) = SmartTags("Tag_21") |
| P(21) = SmartTags("Tag_22") |
| P(22) = SmartTags("Tag_23") |
| P(23) = SmartTags("Tag_24") |
| P(24) = SmartTags("Tag_25") |
| P(25) = SmartTags("Tag_26") |
| P(26) = SmartTags("Tag_27") |
| P(27) = SmartTags("Tag_28") |
| P(28) = SmartTags("Tag_29") |
| P(29) = SmartTags("Tag_30") |
| P(30) = SmartTags("Tag_31") |
| P(31) = SmartTags("Tag_32") |
| P(32) = SmartTags("Tag_33") |
| P(33) = SmartTags("Tag_34") |
| P(34) = SmartTags("Tag_35") |
| P(35) = SmartTags("Tag_36") |
| P(36) = SmartTags("Tag_37") |
| P(37) = SmartTags("Tag_38") |
| P(38) = SmartTags("Tag_39") |
| P(39) = SmartTags("Tag_40") |
| P(40) = SmartTags("Tag_41") |
| P(41) = SmartTags("Tag_42") |
| P(42) = SmartTags("Tag_43") |
| P(43) = SmartTags("Tag_44") |
| P(44) = SmartTags("Tag_45") |
| |
| Dim W(100) |
| W(0) = SmartTags("盘纸加热温度上限报警计数") |
| W(1) = SmartTags("融胶器温度上限报警计数") |
| W(2) = SmartTags("胶管温度上限报警计数") |
| W(3) = SmartTags("胶泵温度上限报警计数") |
| W(4) = SmartTags("预加热温度上限报警计数") |
| W(5) = SmartTags("接缝喷嘴温度上限报警计数") |
| W(6) = SmartTags("烟枪温度上限报警计数") |
| W(7) = SmartTags("盘纸加热温度下限报警计数") |
| W(8) = SmartTags("融胶器温度下限报警计数") |
| W(9) = SmartTags("胶管温度下限报警计数") |
| W(10) = SmartTags("胶泵温度下限报警计数") |
| W(11) = SmartTags("预加热温度下限报警计数") |
| W(12) = SmartTags("接缝喷嘴温度下限报警计数") |
| W(13) = SmartTags("烟枪温度下限报警计数") |
| W(14) = SmartTags("KF紧急停机计数") |
| W(15) = SmartTags("KF电机过载计数") |
| W(16) = SmartTags("KF上胶未启动计数") |
| W(17) = SmartTags("KF空气压力计数") |
| W(18) = SmartTags("KF冷却风压力计数") |
| W(19) = SmartTags("KF油压低计数") |
| W(20) = SmartTags("KF分烟轮联锁计数") |
| W(21) = SmartTags("KF刀头联锁计数") |
| W(22) = SmartTags("KF接纸保护计数") |
| W(23) = SmartTags("AF紧急停机计数") |
| W(24) = SmartTags("AF电机过载计数") |
| W(25) = SmartTags("AF橡胶轮安全罩联锁计数") |
| W(26) = SmartTags("AF增塑剂液位计数") |
| W(27) = SmartTags("AF电子流量计数") |
| W(28) = SmartTags("主电机伺服报警计数") |
| W(29) = SmartTags("1#辊伺服报警计数") |
| W(30) = SmartTags("2#辊伺服报警计数") |
| W(31) = SmartTags("3#辊伺服报警计数") |
| W(32) = SmartTags("计量泵伺服报警计数") |
| W(33) = SmartTags("跑条计数") |
| W(34) = SmartTags("飞花选项计数") |
| W(35) = SmartTags("甘油溢出报警计数") |
| W(36) = SmartTags("下游机停机计数") |
| W(37) = SmartTags("有指令不运行计数") |
| W(38) = SmartTags("出口堵塞计数") |
| W(39) = SmartTags("盘纸变频报警计数") |
| W(40) = SmartTags("甘油流量异常计数") |
| W(41) = SmartTags("电位器置为0计数") |
| W(42) = SmartTags("甘油高温报警计数") |
| W(43) = SmartTags("甘油低温报警计数") |
| W(44) = SmartTags("开合门伺服报警计数") |
| |
| Dim U(100) |
| U(0) = SmartTags("盘纸加热温度上限报警时间") |
| U(1) = SmartTags("融胶器温度上限报警时间") |
| U(2) = SmartTags("胶管温度上限报警时间") |
| U(3) = SmartTags("胶泵温度上限报警时间") |
| U(4) = SmartTags("预加热温度上限报警时间") |
| U(5) = SmartTags("接缝喷嘴温度上限报警时间") |
| U(6) = SmartTags("烟枪温度上限报警时间") |
| U(7) = SmartTags("盘纸加热温度下限报警时间") |
| U(8) = SmartTags("融胶器温度下限报警时间") |
| U(9) = SmartTags("胶管温度下限报警时间") |
| U(10) = SmartTags("胶泵温度下限报警时间") |
| U(11) = SmartTags("预加热温度下限报警时间") |
| U(12) = SmartTags("接缝喷嘴温度下限报警时间") |
| U(13) = SmartTags("烟枪温度下限报警时间") |
| U(14) = SmartTags("KF紧急停机时间") |
| U(15) = SmartTags("KF电机过载时间") |
| U(16) = SmartTags("KF上胶未启动时间") |
| U(17) = SmartTags("KF空气压力时间") |
| U(18) = SmartTags("KF冷却风压力时间") |
| U(19) = SmartTags("KF油压低时间") |
| U(20) = SmartTags("KF分烟轮联锁时间") |
| U(21) = SmartTags("KF刀头联锁时间") |
| U(22) = SmartTags("KF接纸保护时间") |
| U(23) = SmartTags("AF紧急停机时间") |
| U(24) = SmartTags("AF电机过载时间") |
| U(25) = SmartTags("AF橡胶轮安全罩联锁时间") |
| U(26) = SmartTags("AF增塑剂液位时间") |
| U(27) = SmartTags("AF电子流量时间") |
| U(28) = SmartTags("主电机伺服报警时间") |
| U(29) = SmartTags("1#辊伺服报警时间") |
| U(30) = SmartTags("2#辊伺服报警时间") |
| U(31) = SmartTags("3#辊伺服报警时间") |
| U(32) = SmartTags("计量泵伺服报警时间") |
| U(33) = SmartTags("跑条时间") |
| U(34) = SmartTags("飞花选项时间") |
| U(35) = SmartTags("甘油溢出报警时间") |
| U(36) = SmartTags("下游机停机时间") |
| U(37) = SmartTags("有指令不运行时间") |
| U(38) = SmartTags("出口堵塞时间") |
| U(39) = SmartTags("盘纸变频报警时间") |
| U(40) = SmartTags("甘油流量异常时间") |
| U(41) = SmartTags("电位器置为0时间") |
| U(42) = SmartTags("甘油高温报警时间") |
| U(43) = SmartTags("甘油低温报警时间") |
| U(44) = SmartTags("开合门伺服报警时间") |
| |
| Dim I |
| Dim TIME1 |
| Dim TIME2 |
| Dim TIME3 |
| Dim G1 |
| |
| If SmartTags("Mark._160") > 0 Then |
| I = SmartTags("Mark._160") - 1 |
| End If |
| |
| If SmartTags("Mark._160") = B(I) Then |
| P(I) = 1 |
| TIME1 = Timer |
| W(I) = W(I) + 1 |
| Else |
| P(I) = 0 |
| End If |
| |
| If SmartTags("Mark._160") = 0 And B(I) = I + 1 Then |
| TIME2 = Timer |
| If TIME2 > TIME1 Then |
| TIME3 = TIME2 - TIME1 |
| ElseIf TIME2 < 36000 And TIME1 > 79200 Then |
| TIME3 = TIME2 - TIME1 + 86400 |
| End If |
| U(I) = U(I) + DateAdd("S" , TIME3 , "00:00:00") |
| End IfCOPY |
发表于 2021-1-7 11:44
|