?? statcurve_f.~pas

?? 汽車行駛記錄儀數據采集處理系統
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit StatCurve_F;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, ComObj, DB, ADODB;

type
  TRePaintType = (
    mNoPaint,       //未畫線
    mRePaint,       //重畫
    mPaintNext);    //畫新的線
  rPoint = record   //定義坐標上的點
    x,y:single;
  end;
  rLine=array[1..10] of array[0..99] of rPoint;   //定義由100個點的連成的曲線
  TfrmStatCurve = class(TForm)
    Panel1: TPanel;
    GroupBox11: TGroupBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    GroupBox12: TGroupBox;
    edtCarLicense: TEdit;
    Label1: TLabel;
    btnSelect: TButton;
    btnOK: TButton;
    StatusBar1: TStatusBar;
    GroupBox13: TGroupBox;
    Label3: TLabel;
    edtCarID: TEdit;
    Label4: TLabel;
    edtCarTeam: TEdit;
    Label5: TLabel;
    edtCarType: TEdit;
    Label7: TLabel;
    edtMaxSpeed: TEdit;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    img4: TImage;
    img5: TImage;
    img6: TImage;
    img7: TImage;
    img8: TImage;
    img9: TImage;
    img10: TImage;
    pb1: TPaintBox;
    pb2: TPaintBox;
    pb3: TPaintBox;
    pb4: TPaintBox;
    pb5: TPaintBox;
    pb6: TPaintBox;
    pb7: TPaintBox;
    pb8: TPaintBox;
    pb9: TPaintBox;
    pb10: TPaintBox;
    Label8: TLabel;
    edtLicenseColor: TEdit;
    Label9: TLabel;
    btnClose: TButton;
    ADOConnection: TADOConnection;
    ADOQuery: TADOQuery;
    btnDataList: TButton;
    lbCarLicList: TListBox;
    procedure pb1Click(Sender: TObject);
    procedure pb2Click(Sender: TObject);
    procedure pb3Click(Sender: TObject);
    procedure pb4Click(Sender: TObject);
    procedure pb5Click(Sender: TObject);
    procedure pb6Click(Sender: TObject);
    procedure pb7Click(Sender: TObject);
    procedure pb8Click(Sender: TObject);
    procedure pb9Click(Sender: TObject);
    procedure pb10Click(Sender: TObject);
    procedure OriginAndScale(Sender: TObject);      //確定坐標原點位置和刻度長度
    procedure EstablishXYWorld(imgCanvas: TImage);   //畫坐標系
    procedure XYWorldToScreen(x, y: single; var xx, yy: integer);   //把xy坐標轉換成屏幕坐標
    procedure pMoveTo(x, y: single; pbCanvas: TPaintBox);  //移動畫筆到(x,y)點
    procedure pLineTo(x, y: single; pbCanvas: TPaintBox);  //從當前點畫線到(x,y)點
    procedure pPolyline(rl: rLine; intCurveID: integer; DotNum: integer; pbCanvas: TPaintBox);   //連接所有點
    procedure SetPaintBoxPosition(imgCanvas: TImage; pbCanvas: TPaintBox);
    procedure FormCreate(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure pb1Paint(Sender: TObject);
    procedure pb2Paint(Sender: TObject);
    procedure pb3Paint(Sender: TObject);
    procedure pb4Paint(Sender: TObject);
    procedure pb5Paint(Sender: TObject);
    procedure pb6Paint(Sender: TObject);
    procedure pb7Paint(Sender: TObject);
    procedure pb8Paint(Sender: TObject);
    procedure pb9Paint(Sender: TObject);
    procedure pb10Paint(Sender: TObject);
    function  SetInfo:Boolean;
    function  GetData(intCurveID: integer):Boolean;
    procedure btnSelectClick(Sender: TObject);
    procedure InitSet;
    procedure btnDataListClick(Sender: TObject);
    procedure edtCarLicenseDblClick(Sender: TObject);
    procedure lbCarLicListClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtCarLicenseKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmStatCurve: TfrmStatCurve;
  x_min,y_min,x_max,y_max:integer;       //在坐標系中的xy的最值相對于paintbox容器的實際位置
  x_scale,y_scale:integer;               //x和y軸1刻度的實際象素值
  px_min,py_min,px_max,py_max:integer;
  tmpLine: rLine;
  rePaintType:TRePaintType;
  strCarID: String;
  arrCurveSign: Array[1..10] of Integer;
implementation
uses
  StatCurve_IMP, StatCurve_DataList_F;
{$R *.dfm}

procedure TfrmStatCurve.pb1Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[1]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'1',DataString);
  end;
end;

procedure TfrmStatCurve.pb2Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[2]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'2',DataString);
  end;
end;

procedure TfrmStatCurve.pb3Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[3]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'3',DataString);
  end;
end;

procedure TfrmStatCurve.pb4Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[4]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'4',DataString);
  end;
end;

procedure TfrmStatCurve.pb5Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[5]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'5',DataString);
  end;
end;

procedure TfrmStatCurve.pb6Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[6]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'6',DataString);
  end;
end;

procedure TfrmStatCurve.pb7Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[7]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'7',DataString);
  end;
end;

procedure TfrmStatCurve.pb8Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[8]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'8',DataString);
  end;
end;

procedure TfrmStatCurve.pb9Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[9]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'9',DataString);
  end;
end;

procedure TfrmStatCurve.pb10Click(Sender: TObject);
var
  TempCOM: Variant;
  TmpStr: String;
begin
  if arrCurveSign[10]=1 then
    ShowMessage('沒有數據！')
  else
  begin
    TempCOM := CreateComObject(StringToGUID('{02233CC9-FC5A-4A8D-A1D1-737FECB6EECF}')) as IDispatch;
    TmpStr := TempCOM.MMInvoke(strCarID,'10',DataString);
  end;
end;

procedure TfrmStatCurve.OriginAndScale(Sender: TObject);
begin
  x_min:=10;
  y_min:=97-10;
  x_max:=169-10;
  y_max:=8;
  x_scale:=trunc((x_max-x_min-5)/20);   //x軸1刻度的象素
  y_scale:=trunc((y_min-y_max-10)/60);   //y軸1刻度的象素
end;

procedure TfrmStatCurve.EstablishXYWorld(imgCanvas: TImage);
var
  i:integer;
begin
  imgCanvas.Canvas.Pen.Color:=clBlack; //黑色畫筆
  imgCanvas.Canvas.MoveTo(0,0);
  imgCanvas.Canvas.LineTo(169-1,0);
  imgCanvas.Canvas.LineTo(169-1,97-1);
  imgCanvas.Canvas.LineTo(0,97-1);
  imgCanvas.Canvas.LineTo(0,0);         //畫四周邊框
  imgCanvas.Canvas.MoveTo(x_min,y_min);
  imgCanvas.Canvas.LineTo(x_max,y_min);
  imgCanvas.Canvas.LineTo(x_max-3,y_min-3);
  imgCanvas.Canvas.MoveTo(x_max,y_min);
  imgCanvas.Canvas.LineTo(x_max-3,y_min+3);
  imgCanvas.Canvas.Font.Size:=5;
  imgCanvas.Canvas.TextOut(x_max-9,y_min-15,'t(s)');    //畫x軸
  imgCanvas.Canvas.MoveTo(x_min,y_min);
  imgCanvas.Canvas.LineTo(x_min,y_max);
  imgCanvas.Canvas.LineTo(x_min-3,y_max+3);
  imgCanvas.Canvas.MoveTo(x_min,y_max);
  imgCanvas.Canvas.LineTo(x_min+3,y_max+3);
  imgCanvas.Canvas.Font.Size:=5;
  imgCanvas.Canvas.TextOut(x_min+6,y_max-2,'v(km/h)');      //畫y軸
  imgCanvas.Canvas.Font.Charset:=GB2312_CHARSET;
  imgCanvas.Canvas.Font.Size:=5;
  imgCanvas.Canvas.TextOut(x_min-6,y_min-2,'0');      //坐標原點
  i:=x_min;
  //j:=0;
  while i<x_max-20 do
  begin
    i:=i+x_scale;
    //j:=j+1;
    imgCanvas.Canvas.MoveTo(i,y_min);
    imgCanvas.Canvas.LineTo(i,y_min-4);
    //imgCanvas.Canvas.TextOut(i,y_min+5,intToStr(j));
  end;                                             //畫x軸刻度
  i:=y_min;
  //j:=0;
  while i>y_max+20 do
  begin
    i:=i-10*y_scale;
    //j:=j+10;
    imgCanvas.Canvas.MoveTo(x_min,i);
    imgCanvas.Canvas.LineTo(x_min+4,i);
    //imgCanvas.Canvas.TextOut(x_min-22,i,intToStr(j));
  end;                                             //畫y軸刻度
end;

procedure TfrmStatCurve.XYWorldToScreen(x, y: single; var xx, yy: integer);
begin
  xx:=trunc(x*x_scale);
  yy:=trunc(py_min-y*y_scale);
end;

procedure TfrmStatCurve.pMoveTo(x, y: single; pbCanvas: TPaintBox);
var
  sx, sy: integer;
begin
  XYWorldToScreen(x, y, sx, sy);      //把XY系坐標轉換為實際坐標
  pbCanvas.Canvas.MoveTo(sx, sy);    //移動刷子到要畫的點
end;

procedure TfrmStatCurve.pLineTo(x, y: single; pbCanvas: TPaintBox);
var
  sx, sy: integer;
begin
  XYWorldToScreen(x, y, sx, sy);        //把XY系坐標轉換為實際坐標
  pbCanvas.Canvas.LineTo(sx, sy);      //連接兩點
end;

procedure TfrmStatCurve.pPolyline(rl: rLine; intCurveID: integer; DotNum: integer; pbCanvas: TPaintBox);
var
  i: integer;
begin
  pbCanvas.Canvas.Pen.Color:=clRed;
  rePaintType:=mRePaint;
  pMoveto(rl[intCurveID][0].x, rl[intCurveID][0].y, pbCanvas);
  for i := 1 to DotNum-1 do
    pLineto(rl[intCurveID][i].x, rl[intCurveID][i].y, pbCanvas);
end;

procedure TfrmStatCurve.SetPaintBoxPosition(imgCanvas: TImage; pbCanvas: TPaintBox);
12 下一頁
?? 文件大小 66 K
?? 上傳用戶 guigong
?? 所屬分類串口編程
??? 相關標簽

#汽車行駛記錄儀 #數據采集 #處理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? statcurve_f.~pas

?? 快捷鍵說明
