千家论坛_智能建筑与智能家居技术交流社区

标题: 求助!VB做的串口通信测试不能用. [打印本页]

作者: internet11 时间: 2009-3-1 21:03
标题: 求助!VB做的串口通信测试不能用.

我是新手,用VB做了一个简单的COM口通信测试程序,哪位高手帮我看看怎么不能成功发送接收.

是在一台只有一个COM口的电脑上将2.3脚短接的方法试的,就是不行?也不知为什么.

程序如下:

Private Sub Form_Load()
MSComm1.CommPort = 1                 '设置通信端口号为COM1
MSComm1.Settings = "9600,n,8,1"      '设置串口参数
MSComm1.InputMode = 0                '接收文本型数据
MSComm1.PortOpen = True              '打开通信端口
End Sub
Private Sub Cmdsend_Click()
MSComm1.Output = Trim(Textsend.Text)       '把字符通过串口发送出去
End Sub
Private Sub CmdReceive_Click()
Dim buf As String
buf = Trim(MSComm1.Input)
TextReceive.Text = buf
End Sub
Private Sub Cmdquit_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End                                 '关闭通信端口,停止程序运行
End Sub

[attach]37537[/attach]

欢迎光临千家论坛_智能建筑与智能家居技术交流社区 (http://bbs.qianjia.com/)