关于wincc的一段vb脚本

《关于wincc的一段vb脚本》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、关于WINCC的一段VB脚本　　脚本内容如下：OptionExplicit　　Functionaction　　Dimflag　　Dimstep1　　Dimflag1　　flag1=HMIRuntime.Tags(“gz_flag”).Read　　Ifflag1=1Then　　HMIRuntime.Tags(“Instruction7”).Write7　　flag=HMIRuntime.Tags(“Instruction7”).Read　　Ifflag=7Then　　　　Do　　flag=HMIRuntime.Tags

2、(“Instruction7”).Read　　LoopWhileflag=0　　EndIf　　step1=HMIRuntime.Tags(“A1_11_GZ”).Read　　Ifstep10Then　　HMIRuntime.Tags(“A1_15_GZ”).Write1　　EndIf　　EndIf　　EndFunction　　哪位能逐行的给注释一下。　　　　　　最佳答案　　　　　　　　　　　　　　　　　　　　OptionExplicit　　Functionaction　　Dimflag　　Dimstep1　　Dimf

3、lag1//dim定义变量　　flag1=HMIRuntime.Tags(“gz_flag”).Read//把gz_flag的值赋值给flag1　　Ifflag1=1Then　　HMIRuntime.Tags(“Instruction7”).Write7//如果flag1=1则Instruction7=7　　flag=HMIRuntime.Tags(“Instruction7”).Read//把Instruction7赋值给flag　　Ifflag=7Then如果flag=7执行下面的dowhileloop循环语句　

4、　　　Do//当flag=0时一直执行dowhileloop循环　　flag=HMIRuntime.Tags(“Instruction7”).Read　　LoopWhileflag=0　　EndIf　　step1=HMIRuntime.Tags(“A1_11_GZ”).Read//step1=A1_11_GZ　　Ifstep10Then//如果step1不等于0则A1_15_GZ=1　　HMIRuntime.Tags(“A1_15_GZ”).Write1　　EndIf　　EndIf　　EndFunction　　你的　

5、　flag1=HMIRuntime.Tags(“gz_flag”).Read　　Ifflag1=1Then　　HMIRuntime.Tags(“Instruction7”).Write7　　flag=HMIRuntime.Tags(“Instruction7”).Read　　Ifflag=7Then　　　　Do　　flag=HMIRuntime.Tags(“Instruction7”).Read　　LoopWhileflag=0　　EndIf　　这段程序有问题，1、如果gz_flag=1那么Instruction7被

6、你赋值为7则Instruction7肯定等于7，flag也等于7，下面的判断是否等于7就没有用了　　2、如果flag=7那么dowhileloop只执行一次，而且还是读取Instruction7，flag还是=7，所以这个dowhileloop是没有用的，如果flag=0，那么if的条件不满足，dowhileloop也就不会执行。