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

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.

复制代码