串口通信实验报告
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
4.实验总结
本次实验是利用VB实现计算机与计算机之间的串口通信，经过翻阅资料，对本实验所需要的知识都掌握好。通过实验，我也进一步发现了自己动手能力和自学能力都得到很多的进步，同时也对串口的发送与接收信息有了进一步的了解。
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 Sub
文本框控件
MultiLine = True
允许多行显示
ScrollBars = 2-Vertical
垂直滚动条可用
按钮控件
CommandButton
(名称) = Cmdsend
按钮控件
Caption =发送字符
手动发送字符
串口通信控件
MSComm
(名称) = MSComm1
串口通信控件
其他属性在程序中设置
标签控件2
Label
(名称) = Label2
标签控件
Caption =输入发送字符区：
标签文本
文本框控件1
TextBox
(名称) = Textsend
文本框控件
MultiLine = True
允许多行显示
ScrollBars = 2-Vertical
垂直滚动条可用
文本框控件2
TextBox
(名称) = TextReceive
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控件。
End Sub
Private Sub Cmdquit_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
3.5程序运行截图
图1主界面
图2 发送信息
图3 接收信息
Private Sub Cmdsend_Click()
If Textsend.Text = "" Then
pp = MsgBox("发送的数据不能为空！", 16)
Exit Sub
End If
MSComm1.Output = Trim(Textsend.Text)
End Sub
Private 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 & buf
3.4属性设置
窗体控件
控 件 类 型
主 要 属 性
功 能
Form
(名称) =COMForm
窗体控件
BorderStyle = 3
运行时窗体固定大小
Caption =PC与PC串口通信
窗体标题栏显示程序名称
标签控件1
Label
(名称) = Label1
标签控件
Caption பைடு நூலகம்显示接收字符区：
标签文本
本次实验是利用VB实现计算机与计算机之间的串口通信，经过翻阅资料，对本实验所需要的知识都掌握好。通过实验，我也进一步发现了自己动手能力和自学能力都得到很多的进步，同时也对串口的发送与接收信息有了进一步的了解。
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 Sub
文本框控件
MultiLine = True
允许多行显示
ScrollBars = 2-Vertical
垂直滚动条可用
按钮控件
CommandButton
(名称) = Cmdsend
按钮控件
Caption =发送字符
手动发送字符
串口通信控件
MSComm
(名称) = MSComm1
串口通信控件
其他属性在程序中设置
标签控件2
Label
(名称) = Label2
标签控件
Caption =输入发送字符区：
标签文本
文本框控件1
TextBox
(名称) = Textsend
文本框控件
MultiLine = True
允许多行显示
ScrollBars = 2-Vertical
垂直滚动条可用
文本框控件2
TextBox
(名称) = TextReceive
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控件。
End Sub
Private Sub Cmdquit_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
3.5程序运行截图
图1主界面
图2 发送信息
图3 接收信息
Private Sub Cmdsend_Click()
If Textsend.Text = "" Then
pp = MsgBox("发送的数据不能为空！", 16)
Exit Sub
End If
MSComm1.Output = Trim(Textsend.Text)
End Sub
Private 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 & buf
3.4属性设置
窗体控件
控 件 类 型
主 要 属 性
功 能
Form
(名称) =COMForm
窗体控件
BorderStyle = 3
运行时窗体固定大小
Caption =PC与PC串口通信
窗体标题栏显示程序名称
标签控件1
Label
(名称) = Label1
标签控件
Caption பைடு நூலகம்显示接收字符区：
标签文本