標(biāo)題: DELPHI開發(fā)的甲醛測(cè)試儀上位機(jī)源碼 DART傳感器數(shù)據(jù)發(fā)串口 [打印本頁(yè)]
作者: vhgh2002    時(shí)間: 2019-1-17 22:32
標(biāo)題: DELPHI開發(fā)的甲醛測(cè)試儀上位機(jī)源碼 DART傳感器數(shù)據(jù)發(fā)串口
基于DELPHI開發(fā)的甲醛測(cè)試儀，上位機(jī)程序。配合常見的英國(guó)DART傳感器，協(xié)議長(zhǎng)9字節(jié)。通過串口發(fā)送。



delphi程序源碼:
  1. unit Unit2;

  3. interface

  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, CPortCtl, CPort, StdCtrls;

  9. type
  10.   TForm2 = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     GroupBox2: TGroupBox;
  13.     GroupBox3: TGroupBox;
  14.     Label2: TLabel;
  15.     Label8: TLabel;
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     Memo1: TMemo;
  19.     ComPort1: TComPort;
  20.     ComLed1: TComLed;
  21.     ComLed2: TComLed;
  22.     Label13: TLabel;
  23.     Label14: TLabel;
  24.     ComDataPacket1: TComDataPacket;

  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure ComPort1AfterOpen(Sender: TObject);
  30.     procedure ComDataPacket1Packet(Sender: TObject; const Str: string);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;

  37.     TAir = Record   //Start from 0

  39.             CH2O:Integer;//Byte6(High) Byte7(Low)

  41.     End;
  42. var
  43.   Form2: TForm2;
  44.   i:integer;


  47. implementation

  49. {$R *.dfm}

  51. procedure TForm2.Button1Click(Sender: TObject);
  52. begin
  53.     ComPort1.ShowSetupDialog;
  54. end;

  56. procedure TForm2.Button2Click(Sender: TObject);
  57. begin
  58.     ComPort1.Open;
  59. end;

  61. procedure TForm2.ComDataPacket1Packet(Sender: TObject; const Str: string);
  62. var
  63.   value:TAir;
  64.   s:string;
  65.   j:integer;
  66. begin

  68.   Value.CH2O:=ord(Str[5])shl 8+ ord(Str[6]);


  71.   //Label7.Caption:=IntToStr(Value.PM1CF);
  72.   Label8.Caption:=IntToStr(Value.CH2O);
  73. // Label9.Caption:=IntToStr(Value.PM10CF);



  77. // Memo1.Lines.Add('Received No. '+IntToStr(i)+' packages');
  78. // s:='';
  79.   //for j := 1 to 9 do //20- sizeof('FF')
  80.    // s:=s+'['+IntToStr(ord(Str[j]))+']';
  81.   //Memo1.Lines.Add(s);

  83.   //inc(i);
  84. end;

  86. procedure TForm2.ComPort1AfterOpen(Sender: TObject);
  87. begin
  88.   memo1.Lines.Add('opedn');
  89. end;

  91. procedure TForm2.FormCreate(Sender: TObject);
  92. begin
  93.    i:=0;
  94. end;

  96. end.
復(fù)制代碼

全部資料51hei下載地址：
甲醛測(cè)試儀 制作源程序.rar (410.09 KB, 下載次數(shù): 21)

作者: devcang    時(shí)間: 2019-1-18 09:40
CPort 組件有包含？
作者: vhgh2002    時(shí)間: 2019-1-18 10:44
附件不含。相關(guān)需要組件，安裝時(shí)DELPHI一般已經(jīng)安裝了
作者: cmyldd    時(shí)間: 2022-5-13 19:06
剛好需要這個(gè)例子，多謝大神支持！



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1