恭喜,你发布的帖子
发布于 2016-06-30 11:40:20
2楼
感谢zhangli0斑竹的指导,刚按照您提供的脚本改了下,能够实现外部变量0变1记录,1变0不记录了,您提供的是VB的脚本,我这个项目中时间的记录是用的VB写的,按照您的这个重新改好的脚本如下:
其中bbsc2为触发全局脚本的外部变量,start_sav是用于实现上升沿的内部变量
Dim flag,time0,time1,time2,time3,time4,time5,time6,time7,time8,time9,time10,time11,time12,time13,time14,time15,time16,time17,time18,time19,time20,time21,time22,time23,time24,time25,time26,time27,time28,time29,time30,time31,time32,time33,time34,time35,time36,time37,time38,time39,time40,time41,time42,time43,time44,time45,time46,time47,time48
flag=Now()
Dim mytag(2)
mytag(0)=HMIRuntime.tags("bbsc2").read
mytag(1)=HMIRuntime.tags("start_sav").read
if mytag(0)=1 and mytag(1)=0 then
time1= HMIRuntime.Tags("lzpltime2_1").Read
HMIRuntime.Tags("lzpltime2_1").Write flag
time2= HMIRuntime.Tags("lzpltime2_2").Read
HMIRuntime.Tags("lzpltime2_2").Write time1
time3= HMIRuntime.Tags("lzpltime2_3").read
HMIRuntime.Tags("lzpltime2_3").Write time2
time4= HMIRuntime.Tags("lzpltime2_4").read
HMIRuntime.Tags("lzpltime2_4").Write time3
time5= HMIRuntime.Tags("lzpltime2_5").read
HMIRuntime.Tags("lzpltime2_5").Write time4
time6= HMIRuntime.Tags("lzpltime2_6").read
HMIRuntime.Tags("lzpltime2_6").Write time5
time7= HMIRuntime.Tags("lzpltime2_7").read
HMIRuntime.Tags("lzpltime2_7").Write time6
time8= HMIRuntime.Tags("lzpltime2_8").read
HMIRuntime.Tags("lzpltime2_8").Write time7
time9= HMIRuntime.Tags("lzpltime2_9").read
HMIRuntime.Tags("lzpltime2_9").Write time8
time10= HMIRuntime.Tags("lzpltime2_10").read
HMIRuntime.Tags("lzpltime2_10").Write time9
time11= HMIRuntime.Tags("lzpltime2_11").read
HMIRuntime.Tags("lzpltime2_11").Write time10
time12= HMIRuntime.Tags("lzpltime2_12").read
HMIRuntime.Tags("lzpltime2_12").Write time11
time13= HMIRuntime.Tags("lzpltime2_13").read
HMIRuntime.Tags("lzpltime2_13").Write time12
time14= HMIRuntime.Tags("lzpltime2_14").read
HMIRuntime.Tags("lzpltime2_14").Write time13
time15= HMIRuntime.Tags("lzpltime2_15").read
HMIRuntime.Tags("lzpltime2_15").Write time14
time16= HMIRuntime.Tags("lzpltime2_16").read
HMIRuntime.Tags("lzpltime2_16").Write time15
time17= HMIRuntime.Tags("lzpltime2_17").read
HMIRuntime.Tags("lzpltime2_17").Write time16
time18= HMIRuntime.Tags("lzpltime2_18").read
HMIRuntime.Tags("lzpltime2_18").Write time17
time19= HMIRuntime.Tags("lzpltime2_19").read
HMIRuntime.Tags("lzpltime2_19").Write time18
time20= HMIRuntime.Tags("lzpltime2_20").read
HMIRuntime.Tags("lzpltime2_20").Write time19
time21= HMIRuntime.Tags("lzpltime2_21").read
HMIRuntime.Tags("lzpltime2_21").Write time20
time22= HMIRuntime.Tags("lzpltime2_22").read
HMIRuntime.Tags("lzpltime2_22").Write time21
time23= HMIRuntime.Tags("lzpltime2_23").read
HMIRuntime.Tags("lzpltime2_23").Write time22
time24= HMIRuntime.Tags("lzpltime2_24").read
HMIRuntime.Tags("lzpltime2_24").Write time23
time25= HMIRuntime.Tags("lzpltime2_25").read
HMIRuntime.Tags("lzpltime2_25").Write time24
time26= HMIRuntime.Tags("lzpltime2_26").read
HMIRuntime.Tags("lzpltime2_26").Write time25
time27= HMIRuntime.Tags("lzpltime2_27").read
HMIRuntime.Tags("lzpltime2_27").Write time26
time28= HMIRuntime.Tags("lzpltime2_28").read
HMIRuntime.Tags("lzpltime2_28").Write time27
time29= HMIRuntime.Tags("lzpltime2_29").read
HMIRuntime.Tags("lzpltime2_29").Write time28
time30= HMIRuntime.Tags("lzpltime2_30").read
HMIRuntime.Tags("lzpltime2_30").Write time29
time31= HMIRuntime.Tags("lzpltime2_31").read
HMIRuntime.Tags("lzpltime2_31").Write time30
time32= HMIRuntime.Tags("lzpltime2_32").read
HMIRuntime.Tags("lzpltime2_32").Write time31
time33= HMIRuntime.Tags("lzpltime2_33").read
HMIRuntime.Tags("lzpltime2_33").Write time32
time34= HMIRuntime.Tags("lzpltime2_34").read
HMIRuntime.Tags("lzpltime2_34").Write time33
time35= HMIRuntime.Tags("lzpltime2_35").read
HMIRuntime.Tags("lzpltime2_35").Write time34
time36= HMIRuntime.Tags("lzpltime2_36").read
HMIRuntime.Tags("lzpltime2_36").Write time35
time37= HMIRuntime.Tags("lzpltime2_37").read
HMIRuntime.Tags("lzpltime2_37").Write time36
time38= HMIRuntime.Tags("lzpltime2_38").read
HMIRuntime.Tags("lzpltime2_38").Write time37
time39= HMIRuntime.Tags("lzpltime2_39").read
HMIRuntime.Tags("lzpltime2_39").Write time38
time40= HMIRuntime.Tags("lzpltime2_40").read
HMIRuntime.Tags("lzpltime2_40").Write time39
time41= HMIRuntime.Tags("lzpltime2_41").read
HMIRuntime.Tags("lzpltime2_41").Write time40
time42= HMIRuntime.Tags("lzpltime2_42").read
HMIRuntime.Tags("lzpltime2_42").Write time41
time43= HMIRuntime.Tags("lzpltime2_43").read
HMIRuntime.Tags("lzpltime2_43").Write time42
time44= HMIRuntime.Tags("lzpltime2_44").read
HMIRuntime.Tags("lzpltime2_44").Write time43
time45= HMIRuntime.Tags("lzpltime2_45").read
HMIRuntime.Tags("lzpltime2_45").Write time44
time46= HMIRuntime.Tags("lzpltime2_46").read
HMIRuntime.Tags("lzpltime2_46").Write time45
time47= HMIRuntime.Tags("lzpltime2_47").read
HMIRuntime.Tags("lzpltime2_47").Write time46
time48= HMIRuntime.Tags("lzpltime2_48").read
HMIRuntime.Tags("lzpltime2_48").Write time47
end if
HMIRuntime.tags("start_sav").write mytag(0)
以上脚本可实现48行数据的记录,外部变量触发。
请填写推广理由:
分享
只看
楼主