串口通信初步-两台电脑串口通信.doc

　　 经过小小的改动，将自己电脑接出来的串口线同另一台电脑串口相接,从自己的电脑上USB接出一根串口线，将串口线上的2，3，5针脚分别接到另外一台电脑主机的3，2，5针脚，注意，23,32,55.如下图： 检测所接USB串口线使用的端口，上节有讲，此处略去，为端口COM5,后面要用到。 硬件连好了，启动VB,创建如下界面: 对窗体的设置，将borderstyle属性设为1（不可调整窗体大小，及最大化和最小化）： 对控件的属性设置，选择控件，F4即可定位到属性面板： 时钟控件 ： 仅设置interval值为100，单位为毫秒，即每隔0.1秒发生一次该事件，其它属性不做设置： 文本框： 为能使得文本多行显示，将，multiline属性改为true（支持换行），scrollbars属性选择2（垂直滚动条），如下： 按钮： 仅将其default属性改为true，支持enter键操作，即enter键可触发按钮事件： 在右下角窗体布局窗口（如下），鼠标右击白色区域，在弹出菜单中选择“启动位置”——“窗体中心”，使得程序运行时，程序窗体在窗体中心显示： 具体代码及其解释如下： Dim i As String 全局变量，用作回车换行Private Sub Command1_Click() 发送按钮事件 MSC1.Output = T1.Text T2.Text = T2.Text + i + 自己： + i + T1.Text 将发送的信息显示在接收信息文本框 T1.Text = 将发送文本框清空End SubPrivate Sub Form_Load() 加载窗体 i = Chr(13) + Chr(10) 回车换行以i表示，使用方便 MSC1.PortOpen = True 打开串口End Sub Private Sub Timer1_Timer() 时钟事件，每隔0.1秒发生一次检测 If MSC1.InBufferCount 0 Then 如果接收缓冲区不为空，即有数据 T2.Text = T2.Text + i + 对方： + i + MSC1.Input 接收数据，显示在接收信息的文本框 End IfEnd Sub 最后，分别将comm控件的端口设置为1和5从而生成两个exe文件，端口5的那个供自己电脑使用，因为USB串口线使用的是端口5，另外一台电脑使用的是默认串口COM1,所以commport属性为1. 将对方.exe文件发送到另一台电脑，打开电脑进行测试，编辑消息，可点击发送按钮，也可使用enter键发送消息，结果如下： 至此，PC间简单通信成功！