Visual-Basic串口通信程序设计典型实例

1、第 6 章VB 串口通信程序设计典型实例利用 VB 开发串口通信程序既可以使用MSComm 控件也可以调用Windows API 函数实现。不过，只要MSComm 控件可以被选用，我们推荐选择此控件实现，因为MSComm 控件的功能和API 调用一样强，甚至比它还好且使用起来更加简单。在本章提供的串口通信程序设计中，除了 PC 与 PC 串口通信外， PC 与单片机、 PC 与智能仪表、 PC 与 PLC 、 PC 与 GSM 短信模块等串口通信任务的实现均采用MSComm 控件。6.1PC 与 PC 串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需3 根

2、线（发送线、接收线、信号地线）便可实现全双工异步串行通信。本设计通过两台PC 串口 3 线连接，介绍了利用API函数和MSComm控件设计串口通信程序的方法，包括字符与文件的发送与接收。6.1.1PC 与 PC 串口通信程序设计目的（ 1）掌握 PC 与 PC 串口通信的线路连接方法。（ 2）利用 MSComm 控件和 API 函数实现 PC 与 PC 串口通信的程序设计方法。6.1.2PC 与 PC 串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表6-1 所示。表 6-1设计用软、硬件序号名称数量1PC 或 IPC22串口通信线（三线制）13Visual Basic 6.016.1.

3、3PC 与 PC 串口通信程序硬件线路图串口线路说明，在计算机通电前，按图6-1 所示将两台COM1 端口的 TXD 与计算机 B 串口 COM1 端口的PC 通过串口线连接起来：计算机RXD 相连，计算机A 串口 COM1A 端第 6 章VB 串口通信程序设计典型实例口的 RXD 与计算机 B 串口 COM1 端口的 TXD 相连，计算机 A 串口 COM1 端口的 GND 与计算机 B 串口 COM1 端口的 GND 相连。计算机 A计算机 BPC机APC 机BTXDTXDCOM1RXDRXDCOM1GNDGND图 6-1PC 与 PC 串口通信线路6.1.4设计任务利用 MSComm 控

4、件和 VB API函数编写程序实现PC 与 PC 串口通信。任务要求，两台计算机互发字符并自动接收，如一台计算机输入字符串“Please returnabc123”，单击“发送字符”命令，另一台计算机若收到，就输入字符串“abc123”，单击“发送字符”命令，信息返回到第一组的计算机。实际上就是编写一个简单的双机聊天程序。6.1.5任务实现利用 MSComm控件实现字符型数据发送与接收1 建立新工程VB 使用“工程” 来管理每一个应用程序要使用的所有文件， 每建立一个新程序，就要新建一个工程。一个工程由窗体、标准模块、控件及应用所需的开发环境设置等组成。运行 VB 程序，出现“新

5、建工程”对话框，选择“标准EXE”，单击“打开”命令按钮，进入 VB 工程集成开发环境，窗体设计器中自动出现一个名为 Form1 的空白窗体。2 程序界面设计向空白窗体添加各种控件，以完成预定的各种功能。开始一个项目的设计时，VB的工具箱中会有许多默认的控件让设计者予以选用，这些原本就出现在工具箱中的控件是内置控件，它提供了一些基本的系统设计组件给设计者，但功能比较特别的控件就不会出现在其中，如用来设计串口通信功能的控件MSComm 就不在其中。（ 1）添加串口通信控件MSComm 。由于 VB 的串行通信组件并不会主动出现在工具箱里中，当我们需要MSComm 控件时，173 Visual B

6、asic 数据采集与串口通信测控应用实战首先要把它加入到工具箱中。让 MSComm 控件出现在工具箱中的步骤如下。选择“工程”菜单下的“部件”子菜单，在弹出的“部件”对话框中，在“控件”选项卡属性中选中“Microsoft Comm Control 6.0”复选框，单击“确定”按钮后，在工具箱中就出现了一个形似“电话”的图标，它就是MSComm 控件。工具箱中有了MSComm 控件，就可以选择MSComm 控件的图标后将其添加到程序窗体上，利用该控件编程，PC 就可以通过VB 实现与串口设备的串口通信了。由于每个使用的MSComm 控件对应着一个串行端口，如果应用程序需要访问多个串行端口，必须

7、添加多个MSComm 控件。（ 2）为了实现连续的自动接收，将工具箱中的Timer 控件添加到程序窗体上。（ 3）添加两个文本框控件： Text1 和 Text2，用于输入要发送的字符和显示要接收的字符。（ 4）添加两个标签控件： Label1 和 Label2，作为发送和接收字符区的标签。（ 5）添加一个按钮控件： Command1 执行发送字符命令。程序设计界面如图 6-2 所示。图 6-2程序窗体界面3 属性设置从属性窗口设置属性时，只需从对象列表框中选择待设置属性的对象，然后从属性列表的左列选择属性，最后在属性列表的右列中输入或选择新的属性值。程序窗体、控件对象的主要属性设置如表6-2

8、 所示。表 6-2窗体、控件对象的主要属性设置控件类型主要属性功能(名称 ) = COMForm窗体控件FormBorderStyle = 3运行时窗体固定大小Caption = PC 与 PC 串口通信窗体标题栏显示程序名称Label(名称 ) = Label1标签控件Caption = 显示接收字符区：标签文本Label(名称 ) = Label2标签控件Caption = 输入发送字符区：标签文本(名称 ) = Textsend文本框控件TextBoxMultiLine = True允许多行显示ScrollBars = 2-Vertical垂直滚动条可用(名称 ) = TextRecei

9、ve文本框控件TextBoxMultiLine = True允许多行显示ScrollBars = 2-Vertical垂直滚动条可用CommandButton(名称 ) = Cmdsend按钮控件Caption = 发送字符手动发送字符174 第 6 章VB 串口通信程序设计典型实例MSComm(名称 ) = MSComm1串口通信控件其他属性在程序中设置(名称 ) = Timer1时钟控件TimerEnabled = True时钟初始可用Interval = 500设置发送周期（ ms）两台计算机中VB 程序界面及属性设置应完全相同，尤其 MSComm 控件的 InputMode 和 Set

10、tings属性值应相同。4 程序代码设计程序要实现自动发送或读取，在VB 程序中有两个方式可以达到，一是查询方式，利用查询事件是否发生，当发生时，去执行默认的程序代码。可以使用计时器控件（ Timer ），该控件属性中的 Interval 可以控制计时器被启动的时间间隔，当时间间隔一到，便会执行原先放在计时器中的程序代码。下面是利用查询方式编写的PC 与 PC 串口通信的参考程序，代码如下所示： 串口初始化Private Sub Form_Load()MSComm1.CommPort = 1 设置通信端口号为COM1MSComm1.Settings = 9600,n,8,1 设置串口1 参数M

11、SComm1.InputMode = 0 接收文本型数据MSComm1.PortOpen = True 打开通信端口1End Sub 把字符通过串口发送出去Private Sub Cmdsend_Click()If Textsend.Text = Thenpp = MsgBox( 发送的数据不能为空！, 16)Exit SubEnd IfMSComm1.Output = Trim(Textsend.Text)For i = 1 To 20000000Next iEnd Sub 通过时钟控制来自动接收字符Private Sub Timer1 _Timer()Dim buf$buf = Trim(

12、MSComm1.Input) 将缓冲区内的数据读入buf 变量中If Len(buf) 0 Then 判断缓冲区内是否存在数据TextReceive.Text = TextReceive.Text + Chr(13) + Chr(10) + buf/ 回车换行End IfEnd Sub 关闭通信端口 ,停止程序运行Private Sub Cmdquit _Click()MSComm1.PortOpen = FalseUnload MeEnd Sub在 Windows 系统环境下，串口是系统资源的一部分。应用程序要使用串口进行通信，必须在使用之前向操作系统提出资源申请要求 （打开串口） ，通信完

13、成后必须释放资源 （关闭串口）。在 Windows 系统的系统函数中，均包含了支持通信中断的功能。175 Visual Basic 数据采集与串口通信测控应用实战二是使用事件方式。MSComm控件提供事件回应功能，可以利用此功能达到自动发送/接收的目的。下面是利用事件方式编写的PC 与 PC 串口通信的参考程序，界面设计与图6-2基本相同，区别是事件方式不需要时间控件。串口初始化Private Sub Form_Load()MSComm1.CommPort = 1设置通信端口号为COM1MSComm1.Settings = 9600,n,8,1设置串口参数MSComm1.InputMode =

14、 0接收文本型数据MSComm1.RThreshold = 1 接收缓冲区每收到一个字符都会使MSComm 控件触发OnComm 事件MSComm1.PortOpen = True打开通信端口1End Sub把字符通过串口发送出去启动定时器Private Sub Cmdsend_Click()If Textsend.Text = Thenpp = MsgBox( 发送的数据不能为空！, 16)Exit SubEnd IfMSComm1.Output = Trim(Textsend.Text)End SubMSComm 的 OnComm 事件程序由CommEvent 属性值的不同，将各自的程序代

15、码写入相关的子程序中只要RThresold 中的设定字符数到达时便会使得CommEvent 属性值变成comEvReceive因此接收的子程序便会被执行Private Sub MSComm1 _OnComm()Dim buf$Select Case MSComm1.CommEvent通过取代每一个case 表达式来处理每个事件与错误Case comEvCD CD 线的状态发生变化Case comEvCTS CTS 线的状态发生变化Case comEvDSR DSR 线的状态发生变化Case comEvReceivebuf = Trim(MSComm1.Input)将缓冲区内的数据读入buf 变

16、量中Case comEvSendEnd SelectTextReceive.Text = TextReceive.Text & bufEnd Sub停止程序运行Private Sub Cmdquit _Click()Unload MeEnd Sub关闭通信端口 ,Private Sub Form_Unload(Cancel As Integer)MSComm1.PortOpen = FalseEnd Sub5 运行程序程序设计、调试完毕，单击工具栏快捷按钮“启动”，运行程序。两台计算机同时运行本程序。176 第 6 章VB 串口通信程序设计典型实例首先在一台计算机程序窗体中发送字符区输入要发送

17、的字符，如“我是第一组，收到请回话！”，单击“发送字符”按钮，发送区的字符串通过COM1 口发送出去。如果联网通信的另一台计算机程序收到字符，则返回字符串，如“收到， 我是第 2 组！”，如果通信正常该字符串将显示在接收区中。程序运行界面如图6-3 所示。图 6-3程序运行界面利用 API 函数实现字符型数据发送与接收1 建立新工程运行 VB ，创建标准的工程项目文件，设计程序窗体。 添加两个TextBox 控件，用于输入要发送的字符和显示需接收的字符。 添加两个Label 控件，作为发送和接收字符区的标签。 添加一个Timer 控件，用于周期性地读取串口数据。 添加两个 Com

18、mandButton 控件，分别执行发送字符、关闭程序等命令。设计的程序界面如图6-4 所示。2 属性设置图 6-4程序窗体界面程序窗体、控件对象的主要属性设置如表6-3 所示。表 6-3窗体、控件对象的主要属性设置控件类型名称主要属性功能FormCOMFormBorderStyle = 3运行时窗体固定大小Caption = API串口通讯窗体标题栏显示程序名称LabelLabel1Caption = 发送数据区：标签LabelLabel2Caption = 接收数据区：标签TextBoxTextsendMultiLine = True允许多行显示ScrollBars = 2-Vertica

19、l垂直滚动条可用177 Visual Basic 数据采集与串口通信测控应用实战TextBoxTextReceiveMultiLine = True允许多行显示ScrollBars = 2-Vertical垂直滚动条可用CommandButtonBTNSendCaption = 发送数据手动间断发送字符CommandButtonBTNCloseComCaption = 关闭程序关闭程序TimerTMRCommInterval = 500设置发送周期（ ms）3 程序代码设计 在程序标准模块SerialPort.bas 的说明部分放置使用的API 函数声明及所用的结构、常数的声明：Option

20、ExplicitGlobal ComNum As LongGlobal bRead(255) As ByteType COMSTATfCtsHold As LongfDsrHold As LongfRlsdHold As LongfXoffHold As LongfXoffSent As LongfEof As LongfTxim As LongfReserved As LongcbInQue As LongcbOutQue As LongEnd TypeType COMMTIMEOUTSReadIntervalTimeout As LongReadTotalTimeoutMultiplier

21、 As LongReadTotalTimeoutConstant As LongWriteTotalTimeoutMultiplier As LongWriteTotalTimeoutConstant As LongEnd TypeType DCBDCBlength As LongBaudRate As LongfBinary As LongfParity As LongfOutxCtsFlow As LongfOutxDsrFlow As LongfDtrControl As LongfDsrSensitivity As LongfTXContinueOnXoff As LongfOutX

22、As LongfInX As LongfErrorChar As LongfNull As LongfRtsControl As LongfAbortOnError As LongfDummy2 As LongwReserved As IntegerXonLim As Integer178 第 6 章VB 串口通信程序设计典型实例XoffLim As IntegerByteSize As ByteParity As ByteStopBits As ByteXonChar As ByteXoffChar As ByteErrorChar As ByteEofChar As ByteEvtChar

23、 As ByteEnd TypeType OVERLAPPEDInternal As LongInternalHigh As Longoffset As LongOffsetHigh As LonghEvent As LongEnd TypeType SECURITY _ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd TypeDeclare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long Declare

24、 Function GetLastError Lib kernel32 () As LongDeclare Function Read kernel32 (ByVal h Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As LongDeclare Function Write kernel32 (ByVal h Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Lo

25、ng, lpNumberOfBytesWritten As Long, lpOverlapped As Long) As LongDeclare Function SetCommTimeouts Lib kernel32 (ByVal h Long, lpCommTimeouts As COMMTIMEOUTS) As LongDeclare Function GetCommTimeouts Lib kernel32 (ByVal h Long, lpCommTimeouts As COMMTIMEOUTS) As LongDeclare Function BuildCommDCB Lib k

26、ernel32 Alias BuildCommDCBA (ByVal lpDef As String, lpDCB As DCB) As LongDeclare Function SetCommState Lib kernel32 (ByVal hCommDev As Long, lpDCB As DCB) As LongDeclare Function Create kernel32 Alias CreateFileA (ByVal lp As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lp

27、SecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplate Long) As LongDeclare Function Flush Lib kernel32 (ByVal h Long) As Long窗体模块程序如下：初始化串口Private Sub Form_Load()If Not Init _Com(COM1:, 9600,n,8,1) ThenMsgBox 端口 & 无效 !Exit SubEnd IfEnd S

28、ub发送字符Private Sub BTNSend _Click()If WriteCOM32(txt(2) & vbCr Len(txt(2) ThenMsgBox 写入错误 179 Visual Basic 数据采集与串口通信测控应用实战Exit SubEnd IfEnd Sub向串口写数据Function WriteCOM32(COMString As String) As Integer On Error GoTo handelwritelptDim RetBytes As Long, LenVal As LongDim retval As LongIf Len(COMString)

29、255 ThenWriteCOM32 Left$(COMString, 255)WriteCOM32 Right$(COMString, Len(COMString) - 255)Exit FunctionEnd IfFor LenVal = 0 To Len(COMString) - 1bRead(LenVal) = Asc(Mid$(COMString, LenVal + 1, 1)Next LenValretval = Write, bRead(0), Len(COMString), RetBytes, 0)WriteCOM32 = RetByteshandelwritelpt:Exit

30、 FunctionEnd Function读取数据Private Sub TMRComm _Timer()Dim Ans As String, i As Integer, RtnStr As StringAns = ReadCommPure()If Ans = Then Exit SubRtnStr = RtnStr & CleanStr(Ans)txtRec.Text = RtnStrFlushCommEnd Sub从串口读取数据Function ReadCommPure() As StringOn Error GoTo handelpurecomDim RetBytes As Long,

31、i As Integer, ReadStr As String, retval As Long Dim CheckTotal As Integer, CheckDigitLC As Integerretval = Read, bRead(0), 255, RetBytes, 0)ReadStr = If (RetBytes 0) ThenFor i = 0 To RetBytes - 1ReadStr = ReadStr & Chr(bRead(i)Next iElseFlushCommEnd IfReadCommPure = ReadStrhandelpurecom:Exit Functio

32、nEnd FunctionFunction CleanStr(TextLine As String) As StringDim i As Integer, RtnStr As StringRtnStr = For i = 1 To Len(TextLine)180 第 6 章VB 串口通信程序设计典型实例Select Case Asc(Mid$(TextLine, i, 1)Case &H5DRtnStr = RtnStr & Case &H5BRtnStr = RtnStr & Case Is = &H30RtnStr = RtnStr & Mid$(TextLine, i, 1)Case

33、13RtnStr = RtnStr & Case 10RtnStr = RtnStr & Case ElseRtnStr = RtnStr & End SelectNext iCleanStr = RtnStrEnd Function清空文件缓冲区Function FlushComm()Flush (ComNum)End Function初始化端口Function Init _Com(ComNumber As String, Comsettings As String) As BooleanOn Error GoTo handelinitcomDim ComSetup As DCB, Answ

34、er, Stat As COMSTAT, RetBytes As LongDim retval As LongDim CtimeOut As COMMTIMEOUTS, BarDCB As DCB 打开通讯口读 /写 (&HC0000000). 必须指定存在的文件 (3).ComNum = Create, &HC0000000, 0, 0&, &H3, 0, 0)If ComNum = -1 ThenMsgBox 端口 & ComNumber & 无效 . 请设置正确 ., 48Init _Com = FalseExit FunctionEnd If超时CtimeOut.ReadInterva

35、lTimeout = 20CtimeOut.ReadTotalTimeoutConstant = 1CtimeOut.ReadTotalTimeoutMultiplier = 1CtimeOut.WriteTotalTimeoutConstant = 10CtimeOut.WriteTotalTimeoutMultiplier = 1retval = SetCommTimeouts(ComNum, CtimeOut)If retval = -1 Thenretval = GetLastError()MsgBox 端口超时设定无效 & ComNumber & 错误 : & retval retv

36、al = CloseHandle(ComNum)Init _Com = FalseExit FunctionEnd Ifretval = BuildCommDCB(Comsettings, BarDCB)If retval = -1 Thenretval = GetLastError()181 Visual Basic 数据采集与串口通信测控应用实战MsgBox 无效设备DCB 块 & Comsettings & 错误 : & retvalretval = CloseHandle(ComNum)Init _Com = FalseExit FunctionEnd Ifretval = SetCo

37、mmState(ComNum, BarDCB)If retval = -1 Thenretval = GetLastError()MsgBox 无效设备 DCB 块 & Comsettings & 错误 : & retval retval = CloseHandle(ComNum)Init _Com = FalseExit FunctionEnd IfInit _Com = Truehandelinitcom:Exit FunctionEnd Function关闭程序Private Sub BTNCloseCom _Click()Unload MeEnd Sub关闭端口Private Sub

38、Form_Unload(Cancel As Integer)CloseHandle (ComNum)End Sub4 运行程序程序设计、调试完毕，执行菜单“运行 / 启动”命令或单击工具栏快捷按钮“启动” ，运行程序。（ 1）首先在程序窗体中发送字符区输入要发送的字符，单击“发送数据”按钮，发送区的字符串通过COM1 口发送出去。（ 2）另一台计算机发送数据，本计算机自动读入并显示在接收数据区中。程序运行界面如图 6-5 所示。图 6-5程序运行界面利用 MSComm控件实现 PC双串口互通信如果一台计算机有两个串口，可通过串口线将两个串口连接起来：COM1端口的TXD与 COM

39、2 端口的 RXD 相连， COM1 端口的 RXD 与 COM2 端口的 TXD 相连， COM1 端口的GND 与 COM2 端口的 GND 相连，如图6-6（ a）所示，这是串口通信设备之间的最简单连接（即三线连接） ，图中的 2 号接收脚与 3 号发送脚交叉连接是因为在直连方式时，把通信双方都当作数据终端设备看待，双方都可以发送也可以接收。182 第 6 章VB 串口通信程序设计典型实例COM1COM2543215432154321987698769876(a)(b)图 6-6串口设备最简单连接如果一台计算机只有一个串行通信端口可以使用，那么将第2 脚与第 3 管脚短路，如图6-6（b

40、）所示，那么第 3 脚的输出信号就会被传送到第 2 脚，用以发送到同一串行端口的输入缓冲区，程序只要再由相同的串行端口上作读取的操作，即可将数据读入，一样可以形成一个测试环境。设计的参考代码如下： 串口初始化 串口 1 与串口 2 的通信参数应一致Private Sub Form_Load()MSComm1.CommPort = 1 设置通信端口号为COM1MSComm1.Settings = 9600,n,8,1 设置串口1 参数MSComm1.InputMode = 0 接收文本型数据MSComm1.PortOpen = True 打开通信端口1MSComm2.CommPort = 2 设

41、置通信端口号为COM2MSComm2.Settings = 9600,n,8,1 设置串口2 参数MSComm2.InputMode = 0 接收文本型数据MSComm2.PortOpen = True 打开通信端口2End Sub 把字符通过串口发送出去 启动定时器Private Sub Cmdsend_Click()MSComm1.Output = Trim(Textsend.Text)Timer1.Enabled = TrueEnd Sub 接收字符Private Sub Timer1 _Timer()Dim buf$Timer1.Enabled = Falsebuf = Trim(MS

42、Comm2.Input) 将缓冲区内的数据读入buf 变量中If Len(buf) = 0 Then 判断缓冲区内是否存在数据TextReceive.Text = ElseTextReceive.Text = bufEnd IfEnd Sub 停止程序运行Private Sub Cmdquit _Click()Unload MeEnd Sub 关闭通信端口 ,Private Sub Form_Unload(Cancel As Integer)MSComm1.PortOpen = FalseMSComm2.PortOpen = FalseEnd Sub183 Visual Basic 数据采集与

43、串口通信测控应用实战程序运行界面如图6-7 所示。图 6-7程序运行界面184 第 6 章VB 串口通信程序设计典型实例6.2PC 与单片机串口通信程序设计目前，在许多单片机应用系统中，上、下位机分工明确，作为下位机核心器件的单片机往往只负责数据的采集和通信，而上位机通常以基于图形界面的Windows 系统为操作平台。为便于查询和保存数据，还需要数据库的支持，这种应用的核心是数据通信，它包括单片机和上位机之间、客户端和服务器之间以及客户端和客户端之间的通信，而单片机和上位机之间数据通信则是整个系统的基础。单片机和 PC 的通信是通过单片机的串口和PC 串口之间的硬件连接实现的。图 6-8 是本

44、设计使用的单片机实验板。有关单片图 6-8单片机实验板机实验板的详细信息请查询电子开发网http:/ 。6.2.1PC 与单片机串口通信程序实训目的（ 1）掌握 PC 与单片机串口通信的线路连接方法。（ 2）掌握 PC 与单片机串口通信的Keil C51 和 VB 程序设计方法。6.2.2PC 与单片机串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表6-4 所示。表 6-4设计用软、硬件序号名称数量1PC（计算机）12单片机实验板（ AT89C51 、 MAX232 等）13串口通信线（三线制）14VB 6.016.2.3PC 与单片机串口通信程序硬件线路图线路说明，如图6-9 所示，

45、数据通信的硬件上采用三线制，将单片机和PC 串口的 3 个引脚（ RXD 、 TXD 、 GND ）分别连在一起，即将PC 和单片机的发送数据线TXD 与接收数据 RXD 交叉连接，两者的地线 GND 直接相连，而其他信号线如握手信号线均不用，采用软件握手的方式，这样既可以实现预定的任务又可以简化电路设计。但由于单片机的 TTL 逻辑电平和 RS-232C 的电气特性完全不同， RS-232C 的逻辑 0 电185 Visual Basic 数据采集与串口通信测控应用实战平规定为 +3 +15V 之间，逻辑1 电平为 - 3 - 15V 之间，因此，在将PC 和单片机的RXD和 TXD 交叉连

46、接时必须进行电平转换，这里使用的是MAX232电平转换芯片。PC 机MAX232RXDTOUTTINTXDCOM1TXDRINROUTRXDAT89C51GNDGND图 6-9PC 与单片机串口通信线路单片机系统有LED 显示器模块、继电器输出模块、蜂鸣器模块等。6.2.4设计任务利用 Keil C51 和 VB 编写程序实现PC 与单片机串口通信。任务要求。1 设计任务1PC 通过串行口将数字（00，01， 02， 03 ， FF，十六进制）发送给单片机，单片机收到后回传这个数字，PC 接收到回传数据后显示出来，若发送的数据和接收到的数据相等，则串行通信正确，否则有错误。启始符是数字00，结束符是数字FF。2 设计任务2（ 1）测试通信状态。先在文本框中输入字符串“Hello ”，单击“测试”按钮，将字符串“Hello ”发送到单片机，若PC 与单片机通信正常，在PC 程序的文本框中显示字符串“OK! ”；否则，显示字符串“ ERROR! ”。（ 2）循环计数。单击“开始”按钮，文本框中数字从 0 开始累加， 0、 1、2、3 ，并将此数发送到单片机的显示器上显示。当累加到 10 时，回到 0 重新开始累加，依次循环。任何时候，单击“停止”按钮， PC 程序中和单片机显示器都停止累加，再单击