【经典】串口通信实验报告.doc

VB串口通信实验1实验要求：设计一个串口通信程序，用于信息的接收和发送2实验目的：2.1熟悉并掌握串口标准及原理；2.2实现PC机与PC机之间通过串口进行数据的收发；3.3熟悉VB语言编写程序的环境，用VB开发串口通信程序3实验步骤：3.1运行VB程序，出现“新建工程”对话框，选择“标准EXE”，单击“打开”命令按钮，进入VB工程集成开发环境；3.2 添加串口通信控件MSComm到工具箱中；3.3界面设计（1）添加两个文本框控件：Text1 和Text2，用于输入要发送的字符和显示要接收的字符；（2）添加两个标签控件：Label1和Label2，作为发送和接收字符区的标签；（3）添加一个按钮控件：Command1执行发送字符命令；（4）添加一个MSComm控件。3.4属性设置窗体控件控 件 类 型主 要 属 性功 能Form(名称) = COMForm窗体控件BorderStyle = 3运行时窗体固定大小Caption = PC与PC串口通信窗体标题栏显示程序名称标签控件1Label(名称) = Label1标签控件Caption = 显示接收字符区：标签文本标签控件2Label(名称) = Label2标签控件Caption = 输入发送字符区：标签文本文本框控件1TextBox(名称) = Textsend文本框控件MultiLine = True允许多行显示ScrollBars = 2-Vertical垂直滚动条可用文本框控件2TextBox(名称) = TextReceive文本框控件MultiLine = True允许多行显示ScrollBars = 2-Vertical垂直滚动条可用按钮控件CommandButton(名称) = Cmdsend按钮控件Caption = 发送字符 手动发送字符串口通信控件MSComm(名称) = MSComm1串口通信控件其他属性在程序中设置3.5程序代码设计Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputMode = 0 MSComm1.RThreshold = 1 MSComm1.PortOpen = True End SubPrivate Sub Cmdsend_Click() If Textsend.Text = "" Then pp = MsgBox("发送的数据不能为空！", 16) Exit Sub End If MSComm1.Output = Trim(Textsend.Text)End SubPrivate Sub MSComm1_OnComm() Dim buf$ Select Case MSComm1.CommEvent Case comEvCD Case comEvCTS Case comEvDSR Case comEvReceive buf = Trim(MSComm1.Input) Case comEvSend End Select TextReceive.Text = TextReceive.Text & bufEnd SubPrivate Sub Cmdquit_Click() Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = FalseEnd Sub3.5程序运行截图图1 主界面图2 发送信息图3 接收信息4.实验总结本次实验是利用VB实现计算机与计算机之间的串口通信，经过翻阅资料，对本实验所需要的知识都掌握好。通过实验，我也进一步发现了自己动手能力和自学能力都得到很多的进步，同时也对串口的发送与接收信息有了进一步的了解。