conn

　　首　页　::　总经理致辞　::　资质证书　::

注册用户,可享有更多通行权利及信息

	☆ 如有技术问题,请在线或Mail至：fa@lggz.com,我们将尽快回覆您！
:	Private Sub CmdSend_Click() Dim Command As String Rem 打开串口 If MSComm1.PortOpen = False Then MsgBox "串口２false open!" If MSComm1.PortOpen = True Then MSComm1.Settings = "9600,e,7,2" Rem 校验码 StrIn = "000000503" & Chr(3) Dim ii As Integer, temp As Integer temp = Asc(Left$(StrIn, 1)) For ii = 2 To Len(StrIn) temp = Asc(Mid$(StrIn, ii, 1)) Xor temp Next ii BccResult = Chr$(temp) Command = Chr(2) & "000000503" & Chr(3) & BccResult MSComm1.Output = Command Text1.Text = Command Rem 接受响应帧 receiveframe.Text = MSComm1.Input Label1.Caption = CStr(MSComm1.InBufferCount) End If End Sub 请批阅，附例子程序，谢谢！ email:shh175@sohu.com
ALAN :	发送程序没有问题,接收程序前要加约50ms延时,不然数据还未发送回来无法显示,最好采用事件驱动接收. 重点要检查RS232/RS485转换器及接线是否正确,上述发送程序经测试可以使用.

地址：广州市体育东路３３号天盛大厦南梯７０７室
电话：020-85267788(20条线) 　传真:020-85267077
网　　址:http://www.zxlo.com
Mail：fa@lggz.com