|
求助!VB做的串口通信测试不能用. Post By:2009-3-1 21:03:00
我是新手,用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 |
阿莫论坛20周年了!感谢大家的支持与爱护!!
一只鸟敢站在脆弱的枝条上歇脚,它依仗的不是枝条不会断,而是自己有翅膀,会飞。
|