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

《串口通信初步-两台电脑串口通信》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、串口通信初步经过小小的改动，将自己电脑接出来的串口线同另一台电脑串口相接,从自己的电脑上USB接出一根串口线，将串口线上的2，3，5针脚分别接到另外一台电脑主机的3，2，5针脚，注意，2>>>3,3>>>2,5>>>5.如下图：检测所接USB串口线使用的端口，上节有讲，此处略去，为端口COM5,后面要用到。硬件连好了，启动VB,创建如下界面:对窗体的设置，将borderstyle属性设为1（不可调整窗体大小，及最大化和最小化）：对控件的属性设置，选择控件，F4即可定位到属性面板：时钟控件：仅设置interval值为100，单位为毫秒，即每隔0.1秒发生一次该事件，其它属性不做设置：文本框：

2、为能使得文本多行显示，将，multiline属性改为true（支持换行），scrollbars属性选择2（垂直滚动条），如下：按钮：仅将其default属性改为true，支持enter键操作，即enter键可触发按钮事件：在右下角窗体布局窗口（如下），鼠标右击白色区域，在弹出菜单中选择“启动位置”——“窗体中心”，使得程序运行时，程序窗体在窗体中心显示：具体代码及其解释如下：DimiAsString'全局变量，用作回车换行PrivateSubCommand1_Click()'发送按钮事件MSC1.Output=T1.TextT2.Text=T2.Text+i+"自己："+i+T1.Text

3、'将发送的信息显示在接收信息文本框T1.Text=""'将发送文本框清空EndSubPrivateSubForm_Load()'加载窗体i=Chr(13)+Chr(10)'回车换行以i表示，使用方便MSC1.PortOpen=True'打开串口EndSubPrivateSubTimer1_Timer()'时钟事件，每隔0.1秒发生一次检测IfMSC1.InBufferCount<>0Then'如果接收缓冲区不为空，即有数据T2.Text=T2.Text+i+"对方："+i+MSC1.Input'接收数据，显示在接收信息的文本框EndIfEndSub最后，分别将comm控件的端口设置为1和5

4、从而生成两个exe文件，端口5的那个供自己电脑使用，因为USB串口线使用的是端口5，另外一台电脑使用的是默认串口COM1,所以commport属性为1.将对方.exe文件发送到另一台电脑，打开电脑进行测试，编辑消息，可点击发送按钮，也可使用enter键发送消息，结果如下：至此，PC间简单通信成功！