首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

只有一个串口能自己与自己通信吗解决方案

2012-02-08 
只有一个串口能自己与自己通信吗有一个串口1我从发数据到串口1,又想从串口1中取回发送的消息,下面这样些对

只有一个串口能自己与自己通信吗
有一个串口1 我从发数据到串口1,又想从串口1中取回发送的消息,下面这样些对吗???或者这个逻辑对不对呢,谢谢!


Private Sub Form_Load()
  MSComm1.CommPort = 1 '设置通信端口号为COM1
  MSComm1.Settings = "9600,n,8,1" '设置串口参数
  MSComm1.InputMode = 0 '接收文本型数据
  MSComm1.PortOpen = True '打开通信端口1
End Sub
'把字符通过串口发送出去
'启动定时器
Private Sub Cmdsend_Click()
  MSComm1.Output = Trim(Textsend.Text)
  Timer1.Enabled = True
End Sub
'接收字符
Private Sub Timer1_Timer()
  Dim buf$

  buf = Trim(MSComm1.Input) '将缓冲区内的数据读入buf变量中
  If Len(buf) = 0 Then '判断缓冲区内是否存在数据
  TextReceive.Text = ""
  Else
  TextReceive.Text = buf
  End If
End Sub
'停止程序运行
Private Sub Cmdquit_Click()
  Unload Me
End Sub
'关闭通信端口,
Private Sub Form_Unload(Cancel As Integer)
  MSComm1.PortOpen = False
  MSComm2.PortOpen = False
End Sub


[解决办法]
没有实际串口都可以,下载一个虚拟串口工具,虚拟一对串口就可以了
[解决办法]
把DB9的2脚3脚短接试试看
[解决办法]
顶2楼,硬件上对接2脚与3脚就行了.

热点排行