internet11 发表于 2009-3-1 21:03:00

求助!VB做的串口通信测试不能用.

<p><font face="Verdana">我是新手,用VB做了一个简单的COM口通信测试程序,哪位高手帮我看看怎么不能成功发送接收.</font></p>
<p>是在一台只有一个COM口的电脑上将2.3脚短接的方法试的,就是不行?也不知为什么.</p>
<p><font face="Verdana">程序如下:</font></p>
<p><font face="Verdana">Private Sub Form_Load()<br/>&nbsp; MSComm1.CommPort = 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置通信端口号为COM1<br/>&nbsp; MSComm1.Settings = "9600,n,8,1"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '设置串口参数<br/>&nbsp; MSComm1.InputMode = 0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '接收文本型数据<br/>&nbsp; MSComm1.PortOpen = True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '打开通信端口<br/>End Sub<br/>Private Sub Cmdsend_Click()<br/>&nbsp; MSComm1.Output = Trim(Textsend.Text)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '把字符通过串口发送出去<br/>End Sub<br/>Private Sub CmdReceive_Click()<br/>&nbsp; Dim buf As String<br/>&nbsp; buf = Trim(MSComm1.Input)<br/>&nbsp; TextReceive.Text = buf<br/>End Sub<br/>Private Sub Cmdquit_Click()<br/>&nbsp; If MSComm1.PortOpen = True Then MSComm1.PortOpen = False<br/>&nbsp; End&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '关闭通信端口,停止程序运行<br/>End Sub</font></p>
<p><font face="Verdana"><br/>&nbsp;</p></font><br/>
页: [1]
查看完整版本: 求助!VB做的串口通信测试不能用.