DELPHI開發(fā)的甲醛測試儀上位機源碼 DART傳感器數(shù)據(jù)發(fā)串口

ID:441300 · 發(fā)表于 2019-1-17 22:32

基于DELPHI開發(fā)的甲醛測試儀，上位機程序。配合常見的英國DART傳感器，協(xié)議長9字節(jié)。通過串口發(fā)送。

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.

復(fù)制代碼

全部資料51hei下載地址：

甲醛測試儀制作源程序.rar (410.09 KB, 下載次數(shù): 21)

ID:277550 · 發(fā)表于 2019-1-18 09:40

CPort 組件有包含？

ID:441300 · 發(fā)表于 2019-1-18 10:44

附件不含。相關(guān)需要組件，安裝時DELPHI一般已經(jīng)安裝了

ID:65369 · 發(fā)表于 2022-5-13 19:06

剛好需要這個例子，多謝大神支持！

帳號		自動登錄	找回密碼
密碼			立即注冊

DELPHI開發(fā)的甲醛測試儀上位機源碼 DART傳感器數(shù)據(jù)發(fā)串口

評分