2台单片机互相通讯的功能 -- 工作因为vb更精彩-- 编程爱好者博客

小弟初学vb，要实现一个2台单片机互相通讯的功能，现在已经实现了可以发送的功能，但是接受功能不能实现，希望大家看看我的程序错在哪里？谢谢各位大侠

Option Explicit

Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
MSComm1.Output = Text1.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Mscomm1_Oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text = MSComm1.Input
MSComm1.InBufferCount = 0
End Select
End Sub

作者：jily
专家分：1520

会员信息

发短消息

所属BLOG

发表时间：2005-9-23 9:31:00

　第 1 楼

Private Sub Mscomm1_Oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text =Text2.Text + MSComm1.Input'这里要这么写，不然看不到接收内容
MSComm1.InBufferCount = 0
End Select
End Sub

博客介绍

正文

2台单片机互相通讯的功能2005-09-23 17:58:00

评论