Turbo51学习笔记（9）计算机端串行通信的Lazarus代码

逍遥派掌门人 · 发表于 2015-1-18 01:45:57

   可用于Lazarus的串行通信控件有不少，各有特点，在本节里，选用的是老牌的SPCOMM控件。

   控件的设置如下：

逍遥派掌门人 · 发表于 2015-1-18 01:55:30

为了和前一节的单片机电路对应，设置如下界面：

上面一行的LED是需要的状态，由操作者来改变；
下面一行的LED用于反映单片机的实际状态，根据接收的数据来控制。

逍遥派掌门人 · 发表于 2015-1-18 02:13:00

本帖最后由逍遥派掌门人于 2015-1-18 02:15 编辑

定义常量：

复制代码

定义变量：

复制代码

上一行绿色LED的代码：

复制代码

上一行蓝色LED的代码：

复制代码

发送的控制代码：

复制代码

逍遥派掌门人 · 发表于 2015-1-18 02:30:39

关键的接收代码（双击SPCOMM控件的ReceiveData事件）：

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
checksum:byte;
number:byte;
begin
setlength(receive_data,BufferLength); // 根据接收的长度，设置数组大小
receive_data := Buffer; // 取得数据
checksum := 0;
for number:=0 to (bufferlength -2) do checksum:=checksum + receive_data[number]; // 计算校验和
if (checksum = receive_data[bufferlength -1]) then // 校验和合法，则进行接收后的处理
begin
case receive_data[3] of
$00:
begin
BitBtn3.Glyph.LoadFromFile(green_dark_file); // 下一行的绿色LED 灭
BitBtn4.Glyph.LoadFromFile(blue_dark_file); // 下一行的蓝色LED 灭
end;
$01:
begin
BitBtn3.Glyph.LoadFromFile(green_light_file); // 下一行的绿色LED亮
BitBtn4.Glyph.LoadFromFile(blue_dark_file); // 下一行的蓝色LED 灭
end;
$02:
begin
BitBtn3.Glyph.LoadFromFile(green_dark_file); // 下一行的绿色LED 灭
BitBtn4.Glyph.LoadFromFile(blue_light_file); // 下一行的蓝色LED 亮
end;
$03:
begin
BitBtn3.Glyph.LoadFromFile(green_light_file); // 下一行的绿色LED亮
BitBtn4.Glyph.LoadFromFile(blue_light_file); // 下一行的蓝色LED 亮
end;
end;
end;
setlength(receive_data,0); // 释放资源
end;

复制代码

这里接收后的处理仅是作为例证。

绿色LED 灭，蓝色LED 灭

绿色LED亮，蓝色LED 灭

绿色LED 灭，蓝色LED 亮

绿色LED亮，蓝色LED 亮

到此，串行通信的Lazarus代码解析完毕，Turbo51学习笔记系列亦宣布结束。

fireyu · 发表于 2015-1-19 15:01:57

........
串口控制命令数据是PC发过来的吧。
单片机程序是裸奔的？还是uCos?

逍遥派掌门人 · 发表于 2015-1-20 21:41:07

fireyu 发表于 2015-1-19 15:01
........
串口控制命令数据是PC发过来的吧。
单片机程序是裸奔的？还是uCos?

请结合前面的一节 Turbo51学习笔记（8）来看。

		自动登录	找回密码
密码			立即注册

[Lazarus实战宝典] Turbo51学习笔记（9）计算机端串行通信的Lazarus代码