unit1.pas

户外显示屏源程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls,  MSCommLib_TLB,SPComm, ExtCtrls;

type
  TForm1 = class(TForm)
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    displayT: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    displayV: TLabel;
    Label4: TLabel;
    Button5: TButton;
    Edit2: TEdit;
    Button6: TButton;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  rbuf : array[1..8] of byte;

implementation

{$R *.dfm}

procedure TForm1.Button6Click(Sender: TObject);
begin
  form1.close ;
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
  var
  data,vdata : double ;
begin
    move(buffer^,pchar(@rbuf)^,bufferlength);
    data := (rbuf[1] * 256) + rbuf[2] ;
    data := data *0.0625 ;
    displayt.caption := floattostr(data);
    vdata := (rbuf[3]*256)+rbuf[4];
    vdata := (vdata * 0.0025*4.3)+0.25 ;
    displayv.caption := floattostr(vdata);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
    Comm1.commname := 'com'+inttostr(combobox1.itemindex) ;
    comm1.baudrate := 9600 ;
    comm1.startcomm;
    button1.enabled := false ;
    button3.enabled := true  ;
    button2.enabled := true ;
    button4.enabled := true ;
    button5.enabled := true ;

  except
    showmessage('打开串口错误');
end;
   
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  str : string ;
begin
str :='*'+ edit1.text + '<';
form1.comm1.writecommdata(pchar(str),length(str));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
str : string ;
begin
str :='+'+ edit2.Text + '<' ;
form1.comm1.writecommdata(pchar(str),length(str));
end;

procedure TForm1.Button5Click(Sender: TObject);
var
 str : string ;
begin
  str := '-' ;
  form1.comm1.writecommdata(pchar(str),length(str));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    comm1.stopcomm ;
    button1.enabled := true ;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  str : string ;
begin
   str :='>' ;
   form1.comm1.writecommdata(pchar(str),length(str));
end;

end.