求教高手，VB中怎么设置单个位-专业自动化论坛-中国工控网论坛

求教高手，VB中怎么设置单个位点击：1334 | 回复：9

micro2000

精华：1帖
求助：0帖
帖子：46帖 | 581回
年度积分：0
历史总积分：751
注册：2003年10月08日

发表于：2006-05-11 18:04:00

楼主

Host_link协议中好像没有设置位这条指令，只有字，要设置一个位，就必须把这个位的字下传下去，这样会改变其他的位，很麻烦的，请教各位高手有没有更好的办法？

分享到：

邀请回答

回复楼主

DL天天天蓝

精华：0帖
求助：0帖
帖子：1帖 | 51回
年度积分：0
历史总积分：55
注册：2003年1月21日

发表于：2006-05-13 15:16:00

1楼

在VB中你可以把16个位集中起来，用一个字节的高4位代表控制信息，用低4位进行编码，在PLC中有解码指令。比如：在VB中的一个字节中，高4位的每一位用于代表不同设备的开关信息，如0代表关，1代表开，而低4位用于编码PLC中的16个控制位，PLC接收到此字节信息后，对此字节中的低4位进行解码，而高4位的每一位可以直接拿来用，能解码出你要控制的16个位到一个字中，VB字节中的低4位中的编码数值代表PLC中解码字中要置位的位的位置，然后用此字节的高4位控制信息来控制这些位的开和关。

回复引用举报

micro2000

精华：1帖
求助：0帖
帖子：46帖 | 581回
年度积分：0
历史总积分：751
注册：2003年10月08日

发表于：2006-05-17 17:12:00

2楼

虽然。。。。。。，还是要谢谢你

回复引用举报

gongkongedit

精华：1099帖
求助：0帖
帖子：14392帖 | 54470回
年度积分：0
历史总积分：622
注册：2008年9月08日

发表于：2006-06-07 11:20:00

3楼

这是我写的网络通讯的部分代码,原理是一样的,希望能对你有所启发!

组合
'    i = 0
'    If GL1.Index0 Then i = i + 1
'    If GL1.Index1 Then i = i + 2
'    If GL1.Index2 Then i = i + 4
'    If GL1.Index0M Then i = i + 8
'    If GL1.Index1M Then i = i + 16
'    If GL1.Index2M Then i = i + 32
'    If GL1.IndexZD Then i = i + 64
'    If GL1.SQ_Closed0 Then i = i + 128
'    If GL1.SQ_Closed1 Then i = i + 256

分离
'            GL1.Index0 = i  And 1
'            GL1.Index1 = i  And 2
'            GL1.Index2 = i  And 4
'            GL1.Index0M = i  And 8
'            GL1.Index1M = i  And 16
'            GL1.Index2M = i  And 32
'            GL1.IndexZD = i  And 64
'            GL1.SQ_Closed0 = i  And 128
'            GL1.SQ_Closed1 = i  And 256

回复引用举报

ikkoku