久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 4665|回復(fù): 3
收起左側(cè)

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

[復(fù)制鏈接]
ID:441300 發(fā)表于 2019-1-17 22:32 | 顯示全部樓層 |閱讀模式
基于DELPHI開發(fā)的甲醛測試儀,上位機(jī)程序。配合常見的英國DART傳感器,協(xié)議長9字節(jié)。通過串口發(fā)送。

0.png

delphi程序源碼:
  1. unit Unit2;

  2. interface

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

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

  22.     procedure Button1Click(Sender: TObject);
  23.     procedure Button2Click(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure ComPort1AfterOpen(Sender: TObject);
  26.     procedure ComDataPacket1Packet(Sender: TObject; const Str: string);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;

  32.     TAir = Record   //Start from 0

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

  34.     End;
  35. var
  36.   Form2: TForm2;
  37.   i:integer;


  38. implementation

  39. {$R *.dfm}

  40. procedure TForm2.Button1Click(Sender: TObject);
  41. begin
  42.     ComPort1.ShowSetupDialog;
  43. end;

  44. procedure TForm2.Button2Click(Sender: TObject);
  45. begin
  46.     ComPort1.Open;
  47. end;

  48. procedure TForm2.ComDataPacket1Packet(Sender: TObject; const Str: string);
  49. var
  50.   value:TAir;
  51.   s:string;
  52.   j:integer;
  53. begin

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


  55.   //Label7.Caption:=IntToStr(Value.PM1CF);
  56.   Label8.Caption:=IntToStr(Value.CH2O);
  57. // Label9.Caption:=IntToStr(Value.PM10CF);



  58. // Memo1.Lines.Add('Received No. '+IntToStr(i)+' packages');
  59. // s:='';
  60.   //for j := 1 to 9 do //20- sizeof('FF')
  61.    // s:=s+'['+IntToStr(ord(Str[j]))+']';
  62.   //Memo1.Lines.Add(s);

  63.   //inc(i);
  64. end;

  65. procedure TForm2.ComPort1AfterOpen(Sender: TObject);
  66. begin
  67.   memo1.Lines.Add('opedn');
  68. end;

  69. procedure TForm2.FormCreate(Sender: TObject);
  70. begin
  71.    i:=0;
  72. end;

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

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

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵!

查看全部評分

回復(fù)

使用道具 舉報(bào)

ID:277550 發(fā)表于 2019-1-18 09:40 | 顯示全部樓層
CPort 組件有包含?
回復(fù)

使用道具 舉報(bào)

ID:441300 發(fā)表于 2019-1-18 10:44 | 顯示全部樓層
附件不含。相關(guān)需要組件,安裝時(shí)DELPHI一般已經(jīng)安裝了
回復(fù)

使用道具 舉報(bào)

ID:65369 發(fā)表于 2022-5-13 19:06 | 顯示全部樓層
剛好需要這個例子,多謝大神支持!
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表
主站蜘蛛池模板: 成人做爰www看视频软件 | 黄色录像免费观看 | 黄色片一区二区 | 日本一级黄色 | 国产成人在线免费视频 | 亚洲天堂一区 | 欧美精品第一页 | 国产欧美成人 | 国产寡妇亲子伦一区二区三区四区 | 国产福利一区二区三区 | 黄色片视频在线观看 | 91免费看视频 | 亚洲精品乱码久久久久久动漫 | 日韩激情久久 | 日本黄色片视频 | 97色婷婷| 91精品在线播放 | 国产免费av在线 | 天天干天天色 | 日韩免费大片 | 亚洲人网站 | 日韩中文字幕一区 | 国产亚洲视频在线观看 | 欧美大片18 | 亚洲男人网 | 欧美日韩国产精品 | 亚洲欧美在线观看视频 | 91精品久久久久 | 久久综合五月天 | 激情婷婷综合 | 日韩一区二区三区在线播放 | 国产h视频在线观看 | 黄色在线观看免费 | 欧美一区 | 欧美成人精品欧美一级私黄 | 久久久久久久 | 美女黄色大片 | 福利小视频在线观看 | 久久天堂av | 欧美成人精品 | 亚洲精品观看 |