51单片机-PASCAL语言实例10：用Lazarus开发串口应用程序

实例9中，我是通过STC-ISP软件中串口助手调试单片机程序的，不太直观，能否在PC上用PASCAL写一个程序通过串口与单片机沟通呢。完全可以，可以用免费的开发环境LAZARUS开发，安装 lazSerial 后，进行快速开发。上位机和下位机，完全使用PASCAL开发，代码可以复用，非常方便。

// MainForm.pas
unit MainFrm;{$mode objfpc}{$H+}interfaceusesClasses, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,ComCtrls, LazSerial, LazSynaSer;type{ TMainForm }TMainForm = class(TForm)BtnOpen: TButton;BtnClose: TButton;BtnQuery: TButton;BtnCtrlSerial: TButton;CbbDev: TComboBox;CbbBaud: TComboBox;CbbCOM: TComboBox;Label1: TLabel;Label2: TLabel;LazSerial1: TLazSerial;MemInfo: TMemo;Shape1: TShape;StatusBar1: TStatusBar;procedure BtnCloseClick(Sender: TObject);procedure BtnCtrlSerialClick(Sender: TObject);procedure BtnOpenClick(Sender: TObject);procedure BtnQueryClick(Sender: TObject);procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);procedure LazSerial1RxData(Sender: TObject);privatepublicend;varMainForm: TMainForm;implementation{$R *.lfm}usesMyDef;{ TMainForm }procedure TMainForm.BtnCtrlSerialClick(Sender: TObject);
beginlazSerial1.BaudRate:=br__9600;lazSerial1.Device:=CbbCom.Text;trylazSerial1.Active:=Not lazSerial1.Active;exceptShowMessage('打开串口失败');end;if not lazSerial1.Active  then   BtnCtrlSerial.Caption:='打开串口'else   BtnCtrlSerial.Caption:='关闭串口';end;procedure TMainForm.BtnCloseClick(Sender: TObject);
beginTxFrame[1]:=CMD_BEGIN;TxFrame[2]:=CMD_CLOSE;TxFrame[3]:=DEV_LED1+CbbDev.ItemIndex;TxFrame[4]:=MyDef.GetCheck(TxFrame);lazSerial1.WriteBuffer(TxFrame,Sizeof(TxFrame));MemInfo.Lines.Add(IntToHex(TxFrame[1])+' '+IntToHex(TxFrame[2])+' '+IntToHex(TxFrame[3])+' '+IntToHex(TxFrame[4])+' : 请关闭设备$'+IntToHex(TxFrame[3]));
end;procedure TMainForm.BtnOpenClick(Sender: TObject);
beginTxFrame[1]:=CMD_BEGIN;TxFrame[2]:=CMD_OPEN;TxFrame[3]:=DEV_LED1+CbbDev.ItemIndex;TxFrame[4]:=MyDef.GetCheck(TxFrame);lazSerial1.WriteBuffer(TxFrame,Sizeof(TxFrame));MemInfo.Lines.Add(IntToHex(TxFrame[1])+' '+IntToHex(TxFrame[2])+' '+IntToHex(TxFrame[3])+' '+IntToHex(TxFrame[4])+' : 请开启设备$'+IntToHex(TxFrame[3]));
end;procedure TMainForm.BtnQueryClick(Sender: TObject);
beginTxFrame[1]:=CMD_BEGIN;TxFrame[2]:=CMD_QUERY;TxFrame[3]:=DEV_LED1 +CbbDev.ItemIndex;TxFrame[4]:=MyDef.GetCheck(TxFrame);lazSerial1.WriteBuffer(TxFrame,Sizeof(TxFrame));MemInfo.Lines.Add(IntToHex(TxFrame[1])+' '+IntToHex(TxFrame[2])+' '+IntToHex(TxFrame[3])+' '+IntToHex(TxFrame[4])+' : 请查设备$'+IntToHex(TxFrame[3])+'状态');
end;procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
beginlazSerial1.Close ;
end;procedure TMainForm.LazSerial1RxData(Sender: TObject);
varS,T:String;I:Integer;
beginS:=lazSerial1.ReadData;if Length(S)<>4 then exit;for I:=1 TO 4 do beginT:=T+IntToHex(Ord(S[I]),2)+' ';end;if Ord(S[2])=DEV_FM then T:=T+': 蜂鸣器'else T:=T+': LED '+ IntToStr((Ord(S[2])-DEV_LED1+1));if  Ord(S[3])=CMD_OPEN then T:=T+'已开启'else   T:=T+'已关闭';MemInfo.Lines.Add(T);end;end.

// MyDef.pas
unit MyDef;interface
// 本程序使用 Trubo51( https://turbo51.com/ ) 单片机 PASCAL 编译器
// 
// 
// 实例 9 演示了单片机串口 按自定协议收发串口数据
// 假设有PC可以发送如下多种命令给单片机        
//     .打开或关闭指定的LED灯 
//     .打开或关闭蜂鸣器
//     .查询LED灯的状态或蜂鸣器状态
//  为此，设计PC发送的命令帧为 4 个字节：
//     起始|命令|设备号|检验
//     起始：固定为 $01
//     命令
//          $4F(字符O) : 开启
//          $43(字符C) : 关闭
//          $51(字符Q ): 查询 
//        检验为前面三个字符值相加
//    设备号：$31（字符 0）--$38（字符 7） LED1 -- LED8 
//              $39 (字符 9)  蜂鸣器//      单片机发回PC的应答帧为 4 个字节：起始|设备号|状态|检验 
//      起始：固定为 $01
//        设备：
//      命令
//          $4F(O ): 已开
//          $43(C ): 已关
//   
//        检验为前面三个字符值相加//  CPU 电路图请看 实例 1 
//  
//TypeTCmdFrame=Array[1..4] of Byte ;
varRxFrame,TxFrame:TCmdFrame;RxCnt,TxCnt:byte;const// 命令CMD_BEGIN=$01  ;		// 帧头CMD_OPEN= $4F  ;        // 开启CMD_CLOSE=$43  ;        // 关闭CMD_QUERY=$51  ;        // 查询// 设备状态DEV_ON=CMD_OPEN ;DEV_OFF=CMD_CLOSE;//设备编号DEV_LED1=$30 ; // LED1 DEV_LED2=$31 ;DEV_LED3=$32 ; DEV_LED4=$33 ;DEV_LED5=$34 ;DEV_LED6=$35 ;DEV_LED7=$36 ;DEV_LED8=$37 ;   DEV_FM=$38 ;       // 蜂鸣器// 接收帧各字节位置表意RX_FB_BEG=1;RX_FB_CMD=2;RX_FB_DEV=3;RX_FB_CHK=4;// 发送帧各字节位置表意TX_FB_BEG=RX_FB_BEG;TX_FB_DEV=2;TX_FB_STA=3;TX_FB_CHK=4;function GetCheck(AFrame:TCmdFrame):byte;
function CheckFrame(AFrame:TCmdFrame):Boolean;implementation
function GetCheck(AFrame:TCmdFrame):byte;
begin// result:=AFrame[1] OR  AFrame[2]    XOR  AFrame[3]   ;result:=AFrame[1] +  AFrame[2] + AFrame[3]
end;function CheckFrame(AFrame:TCmdFrame):Boolean;
beginresult:= (AFrame[1]=CMD_BEGIN )And ( AFrame[RX_FB_CHK] =GetCheck(AFrame)  );
end;end.

下载源码