RS232串口通信实验 一、实验题目： 设计一个简单的基于串口通信的信息发送和接受界面 二．实验目的： 1.熟悉并掌握RS232串口标准及原理。 2.实现PC机通过RS232串口进行数据的收发。 3.熟悉VB语言编写程序的环境，掌握基本的VB语言编程技巧 二、实验设备 PC机一台，RS232串口通信线（9针）一条，跳线一个（一台PC实验时，将其中的2和3短接） 三、实验内容 1、界面内容： （1）打开串口与关闭串口按钮 （2）信息发送区：信息编辑区，发送信息按钮 （3）信息接受区：信息显示区，接收信息按钮 2、主窗体的程序代码： Private Sub Form1_load() MSComm1.PortOpen = True End Sub Private Sub Command1_Click() MSComm1.Output = Text1.Text End Sub Private Sub Command2_Click() Dim buf$ buf = MSComm1.Input If Len(buf) = 0 Then Text2.Text = \"empty\" Else Text2.Text = buf End If End Sub Private Sub Command3_Click() MSComm1.PortOpen = False End End Sub Private Sub Command4_Click() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If MSComm1.Settings = \"9600,N,8,1\" MSComm1.RThreshold = 1 MSComm1.PortOpen = True MSComm1.InputLen = 0 End Sub 然后生成R232.EXE可执行文件： 3、实验过程： （1）将9针RS232串口通信线与PC机串口连接，并用跳线将RS232串口通信线另一端2（RXD）和3(TXD)短接。 （2）在VB程序环境下，完成相关的程序编写与初始设置。 （3）调试程序完成数据的发送和接受（或者直接运行R232.EXE程序也可） 调试： 主界面如下图： 首先打开串口，在发送区输入信息,然后点击发送信息，如下图： 点击接收信息如下图： 五、实验总结 本次实验虽属简单小型实验，却着实遇到不少问题，由于没学过vb，所以首先对vb的编程思想也不熟，不过经过翻阅资料，对本实验所用到的程序基本能懂了，对一些基本操作也明白了。通过实验，我也进一步发现了自己在动手能力和自学能力方面的不足，当我也进一步发现了自己在动手能力和自学能力方面的不足，当然对本实验所涉及到的东西也算是有了不少兴趣，感觉越来越有意思了。同时也对rs232串口的发送与接收信息有了进一步的了解，相信本实验对我日后的进一步学习有莫大帮助。
