unit1.pas

对俄罗斯火花雷达进行控制

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpCom_1: TComm;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Label2: TLabel;
    procedure SpCom_1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SpComState : Boolean;

implementation

uses Defs, Commport, Unit_Declare, UnitPubFunction;

{$R *.dfm}

procedure TForm1.SpCom_1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
begin
//    if RadarType = '1' then
//       ComReceiveData(Buffer, BufferLength);                                      //串口处理函数处理后速度值存入speedstr
//    if RadarType = '0'  then
//       ComStaLkerData(Buffer, BufferLength);
//    if RadarType = '2'  then
//       ComStaLkerDataSi3(Buffer, BufferLength);
    Sleep(100);
    ComStaLkerDataHHDA(Buffer, BufferLength);

    if isnew then
    begin
      Targetspeed := Abs(Targetspeed);
      Label1.Caption := IntToStr(Targetspeed);                                //Targetspeed是获得的雷达数值
    end;
    if SpComState then
       SetFangxiang_HHDA(SpCom_1);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    StartCom(SpCom_1,Edit1.Text);
    SpComState := False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    StopCom(SpCom_1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    SetFangxiang_HHDAA(3,SpCom_1);
    Sleep(1500);
    SetFangxiang_HHDAA(2,SpCom_1);
    Sleep(100);
    SetFangxiang_HHDAA(3,SpCom_1);
    Sleep(1500);
    SpComState := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    SpComState := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    SetFangxiang_HHDA(SpCom_1);
end;

end.