【经典】串口通信实验报告.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实现计算机与计算机之间的串口通信