【正文】 procedure FormMouseDown(S。 procedure Button2Click(Sender: TObject)。 PrintDialog1: TPrintDialog。 Edit7: TEdit。 Edit6: TEdit。 Label8: TLabel。 Label6: TLabel。 Edit4: TEdit。 Button3: TButton。 Label1: TLabel。type TForm7 = class(TForm) Button1: TButton。end.*****************************************************unit wus7。begin jia:=2。end。procedure (Sender: TObject)。沒有讀文件39。 end。 end。 gh[j+1]:=p1。 if p1=1 then begin p1:=(gh[j]+gh[j+1]+gh[j+2]) div 3。 end。 p1:=gh[j]。 begin //作濾波處理 p1:=(gh[1]+gh[2]) div 2。 :=39。 end。 lh[j]:=x1。 for j:=1 to 3990 do begin //從數(shù)據(jù)文件讀出的數(shù)據(jù)值賦給數(shù)組 read(tex,x1)。begin if then begin assignfile(tex,)。procedure (Sender: TObject)。39。procedure (Sender: TObject)。39。procedure (Sender: TObject)。39。procedure (Sender: TObject)。beginjia:=StrToInt()。end。begins:=StrToInt()。end。 :=39。 end。 for j:=1 to i do begin WRITE(tex,lh[j]:6)。 Assignfile(tex,p)。,now)+39。begin // p:=formatdatetime(39。 procedure (Sender: TObject)。i:=k。procedure (Sender: TObject)。d:=0。b:=0。y4:=0。y2:=0。x4:=0。x2:=0。 d:=0。 //數(shù)據(jù)轉(zhuǎn)換結(jié)束 :=39。 //單位為毫米 end。 //N1:位移傳感器最大阻值對應二進制數(shù) for j:=1 to i do begin SX:=S*LH[j] DIV N1。 //位移傳感器長度300mm end 。 begin //（位移轉(zhuǎn)換） if (cj11000) or (cj21000) then //若無輸入，則采用默認數(shù)據(jù) begin R:=5000。 //jia為所輸入的加速度靈敏度 end。 //for語句結(jié)束 begin //轉(zhuǎn)換采集數(shù)據(jù)（加速度） for j:=1 to i do begin gh[j]:=10000*gh[j] div 4095。 //減去底值 gh[j]:=cgd。 c:=(y2 div 16)+y1*16。 //由輸入時間定 for j:=1 to i do //循環(huán)采集i次 begin asm push ax push dx mov dx,22fh //8255初始化 mov al,10011011b out dx,al mov dx,228h //選通道 mov al,0 //采位移1 out dx,al mov ax,3500h //延遲 w1: dec ax jnz w1 mov dx,221h out dx,al //start CONVERT mov dx,22eh //讀STS q1: in al,dx and al,80h jnz q1 mov dx,221h //讀高8位數(shù)據(jù) in al,dx mov x1,al mov dx,220h //低8位 in al,dx mov x2,al mov dx,228h mov al,1 //采加速度,選通道 out dx,al mov ax,3500h //延時 H1: dec ax jnz H1 mov dx,221h out dx,al //start CONVERT mov dx,22eh //讀STS N1: in al,dx and al,80h jnz N1 mov dx,221h //讀高8位數(shù)據(jù) in al,dx mov Y1,al mov dx,220h in al,dx mov Y2,al pop dx pop ax end。begin 。procedure (Sender: TObject)。d:=0。b:=0。y4:=0。y2:=0。x4:=0。x2:=0。 //輸出位移底值 := IntToStr(gd)。 gd:=(c+d)div 2。 //取兩次采集的平均值 c:=(y2 div 16)+y1*16。 //數(shù)據(jù)高低位復原處理 b:=(x4 div 16)+x3*16。 //采集完畢 end。procedure (Sender: TObject)。beginclose。end。beginR:=StrToInt()。implementationuses wus1, wus4, wus7。 tex:Textfile。 x5,x6,x1,x2,x3,x4,y1,y2,y3,y4:byte。 CJ1,CJ2,n1,sx,jia,i,k,s,R,ld,gd,a,b,c,d:integer。 lh:array[1..10000] of integer。 private { Private declarations } public { Public declarations } end。 procedure Button13Click(Sender: TObject)。 procedure Button12Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Edit2Change(Sender: TObject)。 procedure Edit3Change(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Edit1Change(Sender: TObject)。 Edit6: TEdit。 edit15: TEdit。 DialogOPEN: TOpenDialog。 Button2: TButton。 Button8: TButton。 Label10: TLabel。 Label8: TLabel。 Label6: TLabel。 Button5: TButton。 Button3: TButton。 Label3: TLabel。 Label1: TLabel。 Edit2: TEdit。 // 性能測試模塊interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。end。 :=true。 x2:=0。 (s1)。+inttoStr(x3)+39。 s1:=inttoStr(x1)+39。 x3:=x1 mod 1000。 x2:=(x2 div 16)+x1*16。 //先賦初值 if =true then tdhao:=0 else if =true then tdhao:=1。 var tdhao:byte。end。procedure (Sender: TObject)。 :=true。procedure (Sender: TObject)。 :=false。procedure (Sender: TObject)。close。procedure (Sender: TObject)。 :=false。begin 。 s1:string。implementationuses wus1。 private { Private declarations } public { Public declarations } end。 procedure Button4Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 Timer1: TTimer。 Button2: TButton。 ListBox1: TListBox。 RadioButton2: TRadioButton。type TForm3 = class(TForm) GroupBox1: TGroupBox。end.*********************************************************unit wus3。begin if +0 then := else :=。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。implementationuses wus2, wus3,wus5。 private { Private declarations } public { Public declarations } end。 procedure j1Click(Sender: TObject)。 procedure ddd1Click(Sender: TObject)。 Label2: TLabel。 Image4: TImage。 Image2: TImage。 Label5: TLabel。 Label1: TLabel。 gj1: TMenuItem。 qwe1: TMenuItem。//歡迎進入 interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ExtCtrls, jpeg。另外，非常感激機房的趙立輝老師和楊師煊老師給我提供了良好的上機環(huán)境，在電腦出問題時積極幫助并提供各種安裝軟件。致謝：在畢業(yè)設計過程中，導師李華貴教授精心指導，幫助解決各種困難，并提供了很多畢業(yè)設計所需的設備，比如信號發(fā)生器、打印機等。尤其是DELPHI，第一次運用它開發(fā)軟件，許多東西都不熟悉，邊學邊用，摸索前進，雖然遇到不少困難，但能力提高也快，比以前只看書效果好多了。畢業(yè)設計是對大學四年所學知識的總結(jié)和綜合運用，是一次鍛煉與提高專業(yè)動手能力的很好機會，可以為將來的工作做下初步準備。完成后能實現(xiàn)高速采集數(shù)據(jù)，并能繪制出完整的參數(shù)時間曲線。5. 結(jié)語本設計課題來自科研項目，與生產(chǎn)緊密相關(guān)，實用性和針對性很強。這樣雖然可以執(zhí)行，但是采集的幾組數(shù)據(jù)相差太大，也就是說軟件定時對于高速采集是不可行的，誤差太大了，