RT，小弟由于刚接触VB不久，用VB6.0与FX2N通讯，向PLC的D写入值老是不对，不知道是不是格式不对，我是利用MSComm控件通讯的。。。outstring = Chr(&O2) + "1" + CStr(qiuhe) + "02" + CStr(xieru) + Chr(&O3) + hejiaoyan

回复3楼，为什么我把"0000"改成0001实际写进去的数据是256，改成0002写进去的数据是512,0000是需要写进去的数据的16进制数据还是其他的关系？

谢谢你呀，昨天通过你这个代码和我自己的结合找出了这个规律，现在还有个问题请教下，怎样把动态的text.text赋给一个变量，意思就是通过一个函数比如说date（P），p是text的下标，然后把textp。text赋给一个变量，能实现吗？

嗯，真的非常感谢你呀，还有个问题困扰了我好久了
Private Sub Timer2_Timer()
MSComm1.InBufferCount = 0  '设置读缓冲区为空
MSComm1.OutBufferCount = 0  '设置写缓冲区为空
outstring1 = Chr(&O2) + "0" + "0080" + "02" + Chr(&O3) + SUM_check1("0080", "02")
MSComm1.Output = outstring1
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 8
End Sub
把这个放在timer事件里面进行扫描，但是我用其他按钮的单击事件比如说
MSComm1.Output = Chr(&O2) + "7" + "0008" + Chr(&O3) + SUM_check2(7, "0008")
经常出现timer事件卡死，不知道是不是在使用单击事件的时候跟
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 8
产生死循环，但是没有这个释放控制权的又无法正常扫描状态，指导下。。。