建立一个16位的wincc二进制位变量*,然后将S7的变量A,B,C。。。的值0/1按顺序放到*中，放完后了再和固定值比对，每个位数值不对都对应一个文字输出。用脚本怎么编了？
问题补充：
思路是这样的吧S7变量A,B,C等按顺序排列放入WINCC变量中成一个01110111.。。。。的数或字符串，然后与固定值11111111比较，第四位和第八位不同则分别同时输出两个文本。不一个个比较是因为变量多了后太庞大了。
最佳答案
在wincc中我习惯用字符串代替二进制变量，因为不然的话可能涉及到wincc与PLC数据类型匹配的问题，而且，字符串函数可以帮助我们直观快速地实现要求。
把PLC中的开关量（0/1）读回来，在脚本中用cstr变成字符串。
针对你的问题，如果你plc中是一连串的点，可以直接按字（八位）读上来，再换成二进制字符串。
如果你是在wincc中创建了一连串按规律命名的变量与plc变量相对应，比如在wincc中的变量A1-A10 对应你plc的A,B,C...十个变量，那么
dim i
dim strBin
strBin = ""
For i = 1 to 10 Step 1
strBin = Cstr(HMIRuntime.Tags("A"&cstr(i)),Read)&strBin
Next
''到此得到了你想要的二进制的字符串形式，如果strBin在下文中再无用了，那完全可以不建立这个变量。
For i = 1 to 10 Step 1
if Mid(strBin,i,1)<>Mid(你的固定值,i,1) then
Select Case i
Case 10 A1（A）不同时的文本
Case 9 A2（B）不同时的文本
...
End select
end if
Next
------------------------------------------------------------------------------------------------------------------------
以下是我程序中用到的一小段代码，节选的，主要用于讨论思路，dim什么的就省了。
For i = 3 To 14 Step 1
idec = Int(HMIRuntime.Tags ("I"&CStr(i)).Read) ''读八位开关量回来
ibinstr = ""
Do While idec > 0 ''转为二进制字符串
ibinstr = CStr(idec Mod 2) & ibinstr
idec = idec \ 2
Loop
If Len (ibinstr) <> 8 Then ''补全八位
ibinstr = Left ("00000000",8 - Len (ibinstr)) & ibinstr
End If
binstrL = Right (ibinstr,4)
binstrH = Left (ibinstr,4)
''这里是对两个四位串操作，省略了
IGDSTR = Mid (binstrH,1,1)&Mid(binstrL,1,1)&IGDSTR ''获取每个四位串中的第一位
Next
Dim tc
tc = 0
For i = 1 To 24 Step 1
If Mid(IGDSTR,i,1) = "1" Then
tc = tc + 1 ''统计字符串中有多少个''"1"
End If
Next
提问者对于答案的评价：
希望多交流
最佳答案作者回复:
的确，如果变量较多，批量读回来统一处理的话，会耗费较长时间，而脚本运行系统不能并发处理，这就有可能在处理这些变量的时候，别的脚本本该触发的，却没动作，造成不可预知的错误。
关键变量，还是按位从PLC中直接读为好。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc263273.html
微信扫一扫 
支付宝扫一扫 