回复:用C脚本实现数据堆栈

迷失的梨

  • 帖子

    232
  • 精华

    3
  • 被关注

    21

论坛等级:奇侠

注册时间:2010-03-26

黄金 黄金 如何晋级?

发布于 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行数据的记录,外部变量触发。

有志者事竟成~~~
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32574条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。