DELPHI开发的甲醛测试仪上位机源码 DART传感器数据发串口

ID:441300 · 发表于 2019-1-17 22:32

基于DELPHI开发的甲醛测试仪，上位机程序。配合常见的英国DART传感器，协议长9字节。通过串口发送。

delphi程序源码:

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CPortCtl, CPort, StdCtrls;
type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label2: TLabel;
Label8: TLabel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
ComPort1: TComPort;
ComLed1: TComLed;
ComLed2: TComLed;
Label13: TLabel;
Label14: TLabel;
ComDataPacket1: TComDataPacket;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComPort1AfterOpen(Sender: TObject);
procedure ComDataPacket1Packet(Sender: TObject; const Str: string);
private
{ Private declarations }
public
{ Public declarations }
end;
TAir = Record //Start from 0
CH2O:Integer;//Byte6(High) Byte7(Low)
End;
var
Form2: TForm2;
i:integer;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
ComPort1.ShowSetupDialog;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
ComPort1.Open;
end;
procedure TForm2.ComDataPacket1Packet(Sender: TObject; const Str: string);
var
value:TAir;
s:string;
j:integer;
begin
Value.CH2O:=ord(Str[5])shl 8+ ord(Str[6]);
//Label7.Caption:=IntToStr(Value.PM1CF);
Label8.Caption:=IntToStr(Value.CH2O);
// Label9.Caption:=IntToStr(Value.PM10CF);
// Memo1.Lines.Add('Received No. '+IntToStr(i)+' packages');
// s:='';
//for j := 1 to 9 do //20- sizeof('FF')
// s:=s+'['+IntToStr(ord(Str[j]))+']';
//Memo1.Lines.Add(s);
//inc(i);
end;
procedure TForm2.ComPort1AfterOpen(Sender: TObject);
begin
memo1.Lines.Add('opedn');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
i:=0;
end;
end.

复制代码

全部资料51hei下载地址：

甲醛测试仪制作源程序.rar (410.09 KB, 下载次数: 20)

ID:277550 · 发表于 2019-1-18 09:40

CPort 组件有包含？

ID:441300 · 发表于 2019-1-18 10:44

附件不含。相关需要组件，安装时DELPHI一般已经安装了

ID:65369 · 发表于 2022-5-13 19:06

刚好需要这个例子，多谢大神支持！

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

DELPHI开发的甲醛测试仪上位机源码 DART传感器数据发串口

评分