【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了pasmain.pas相关资料,希望对各位网友有所帮助!
unit PasMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls,Math;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Shape9: TShape;
Shape10: TShape;
Shape11: TShape;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Edit3: TEdit;
Label14: TLabel;
Button19: TButton;
Button20: TButton;
TimerInput: TTimer;
TimerCollect: TTimer;
Label15: TLabel;
procedure FormCreate(Sender: TObject);
procedure TimerCollectTimer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure TimerInputTimer(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit3Change(Sender: TObject);
procedure Button19Click(Sender: TObject);
private
{ Private declarations }
function OutPutValue(tempChannel:Byte;tempValue:Byte):Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
//
ArrChannel:PByteArray;
ArrGains:PByteArray;
//
ArrOutShape:array[0..7] of TShape;
ArrInShape:array[0..7] of TShape;
implementation
uses DTE3216Unit,CommonUnit;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
boolReturn:Boolean;
vFrequency:Integer;
i:Integer;
begin
//初始化通道参数
PageControl1.ActivePageIndex:=0;
GetMem(ArrChannel,ChannelMax);
GetMem(ArrGains,ChannelMax);
ArrChannel[0]:=0;
ArrChannel[1]:=1;
ArrGains[0]:=0;
ArrGains[1]:=0;
bCollectStop:=True;
for i:=0 to 7 do begin
Output[i]:=0;
Input[i]:=0;
end;
//
ArrOutShape[0]:=Shape1;
ArrOutShape[1]:=Shape2;
ArrOutShape[2]:=Shape3;
ArrOutShape[3]:=Shape4;
ArrOutShape[4]:=Shape5;
ArrOutShape[5]:=Shape6;
ArrOutShape[6]:=Shape7;
ArrOutShape[7]:=Shape8;
//
//
ArrInShape[0]:=Shape16;
ArrInShape[1]:=Shape15;
ArrInShape[2]:=Shape14;
ArrInShape[3]:=Shape13;
ArrInShape[4]:=Shape12;
ArrInShape[5]:=Shape11;
ArrInShape[6]:=Shape10;
ArrInShape[7]:=Shape9;
//
//判断设备是否连接正常
boolReturn:=DTE3216_OpenDevice(cFIFOSize,cDTE3216_HardFIFO_512K);
if not boolReturn then begin
MessageBox(self.Handle,pchar('DTE3216采集板连接失败!'),pchar('连接设备'),mb_OK+mb_IconWarning);
Application.Terminate;
end;
Delay(100);
//设置频率
vFrequency:=cFrequency;
boolReturn:=DTE3216_ADFrequency(vFrequency);
if not boolReturn then begin
MessageBox(self.Handle,pchar('DTE3216频率设置失败!'),pchar('连接设备'),mb_OK+mb_IconWarning);
Application.Terminate;
end;
Delay(100);
//设置通道
boolReturn:=DTE3216_A