求助!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/> MSComm1.CommPort = 1 '设置通信端口号为COM1<br/> MSComm1.Settings = "9600,n,8,1" '设置串口参数<br/> MSComm1.InputMode = 0 '接收文本型数据<br/> MSComm1.PortOpen = True '打开通信端口<br/>End Sub<br/>Private Sub Cmdsend_Click()<br/> MSComm1.Output = Trim(Textsend.Text) '把字符通过串口发送出去<br/>End Sub<br/>Private Sub CmdReceive_Click()<br/> Dim buf As String<br/> buf = Trim(MSComm1.Input)<br/> TextReceive.Text = buf<br/>End Sub<br/>Private Sub Cmdquit_Click()<br/> If MSComm1.PortOpen = True Then MSComm1.PortOpen = False<br/> End '关闭通信端口,停止程序运行<br/>End Sub</font></p>
<p><font face="Verdana"><br/> </p></font><br/>
页:
[1]