Private Sub Form_Load()
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.InBufferSize = 35
MSComm1.OutBufferSize = 22
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
end sub
Private Sub Command5_Click()
strPreSend = txtCode(05:指令读） + StationCode（02:目标站地址） +
Objectaddress（0800xxxx:v寄存器地址） + bytes（xx:字节数）
strVerify = SumConvert(strPreSend)
strVerify = Right(strVerify, 2)
strSend = strsendfirst（67：起始字符g) + strPreSend + strVerify(xx:检验） + strsendend（47：结束字符G）
MSComm1.Output = strSend
timedelay 2000
strRead = MSComm1.Input
strRead = Mid(strRead, 2, Len(strRead))
strRead = Trim(strRead)
end sub
那位高手指点一下，不知为什么总是没有反馈信息，可能是没能与PLC通
不知错到哪里，那位做过自由口通讯，请指点！
谢谢！
