【正文】 而又充實(shí)，我真切地體驗(yàn)到了科研工作的苦與樂，也學(xué)到了不少東西?？傊@次畢業(yè)設(shè)計(jì)對(duì)于我是有一定的意義的，基本上達(dá)到了預(yù)定目的。在此表示衷心的感謝。還有很多同學(xué)都給予了我很大的幫助，這里也表示衷心的感謝！參考文獻(xiàn)附 錄 附錄1. 程序源代碼unit wus1。type TForm1 = class(TForm) MainMenu1: TMainMenu。 ddd1: TMenuItem。 j1: TMenuItem。 Label3: TLabel。 Image1: TImage。 Image3: TImage。 Timer1: TTimer。 procedure qwe1Click(Sender: TObject)。 procedure gj1Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。var Form1: TForm1。{$R *.DFM}procedure (Sender: TObject)。end。begin。procedure (Sender: TObject)。end。beginclose。procedure (Sender: TObject)。end。 //設(shè)備自檢測(cè)試interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls。 RadioButton1: TRadioButton。 Label1: TLabel。 Button1: TButton。 Button3: TButton。 Button4: TButton。 procedure Button3Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。var Form3: TForm3。 var //定義全局變量 x1,x2,x3:integer。{$R *.DFM}procedure (Sender: TObject)。 :=0。end。begin。end。begin :=false。end。begin :=false。end。begin:=true。procedure (Sender: TObject)。begin tdhao:=2。 if (tdhao=1) or (tdhao=0) then begin asm push ax push bx push cx push dx mov dx,228h //選通道 mov al,tdhao out dx,al mov ax,0 a:dec ax jnz a mov dx,221h //啟動(dòng)轉(zhuǎn)換 out dx,al mov bx,20h b:mov cx,0e000h c:loop c dec bx jnz b mov dx,221h in al,dx mov x1,al mov dx,220h in al,dx mov x2,al pop dx pop cx pop bx pop ax end。 x1:=(x2*10000)div(4095)。 x1:=x1 div 1000。.39。V39。 x1:=0。 x3:=0。 end。end.********************************************************unit wus2。type TForm2 = class(TForm) Edit1: TEdit。 Edit3: TEdit。 Label2: TLabel。 Button1: TButton。 Button4: TButton。 Label5: TLabel。 Edit4: TEdit。 Label9: TLabel。 Edit5: TEdit。 Button12: TButton。 Button11: TButton。 edit12: TEdit。 Button13: TButton。 Edit7: TEdit。 procedure Button5Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Edit5Change(Sender: TObject)。 procedure Button8Click(Sender: TObject)。 procedure Button11Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。var Form2: TForm2。 gh:array[1..10000] of integer。//cardinal。 p,w:string。 fennei,p1,p2,p3:integer。{$R *.DFM}procedure (Sender: TObject)。 //輸入的位移傳感器電阻值CJ2:=1000。procedure (Sender: TObject)。end。begin //采集底值 begin asm push ax push dx mov dx,22fh //8255A控制口地址 mov al,10011011b //8255初始化 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 ,寫入的數(shù)據(jù)可取任意值 mov dx,22eh //查STS ,STS=0表示轉(zhuǎn)換結(jié)束 q1: in al,dx and al,80h //PC7作控制信號(hào) jnz q1 mov dx,221h //轉(zhuǎn)換結(jié)束,讀數(shù)據(jù),先讀高8位 in al,dx mov x1,al mov dx,220h //讀低8位 in al,dx mov x2,al mov dx,221h //發(fā)一次啟動(dòng)信號(hào)只能轉(zhuǎn)換1次,采集一個(gè)數(shù)據(jù) out dx,al //start CONVERT mov dx,22eh //讀STS q2: in al,dx and al,80h jnz q2 mov dx,221h in al,dx mov x3,al mov dx,220h in al,dx mov x4,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 //查STS=0? jnz N1 mov dx,221h //采集數(shù)據(jù) in al,dx mov Y1,al mov dx,220h in al,dx mov Y2,al mov dx,221h out dx,al //start CONVERT mov dx,22eh //讀STS N2: in al,dx and al,80h jnz N2 mov dx,221h in al,dx mov Y3,al mov dx,220h in al,dx mov Y4,al pop dx pop ax end。 a:=(x2 div 16)+x1*16。 ld:=(a+b)div 2。 d:=(Y4 div 16)+Y3*16。 := IntToStr(ld)。 //輸出加速度底值 X1:=0。x3:=0。 y1:=0。y3:=0。a:=0。c:=0。end。var j:integer。 if a888 then i:=4000 //默認(rèn)采4秒 else i:=k。 //asm結(jié)束 a:=(x2 div 16)+x1*16。 lh[j]:=ald。 end。 gh[j]:=gh[j] div jia。 end。 //位移傳感器電阻值5000歐姆 S:=100。 N1:=R*2048 div 5000。 //sx:實(shí)測(cè)長(zhǎng)度 LH[j]:=SX。 end。采集結(jié)束！39。X1:=0。x3:=0。 y1:=0。y3:=0。a:=0。c:=0。 end。begink:=StrToInt()。a:=888end。 var j:integer。yyyy/mm/dd/hh/nn39。.txt39。 REWRITE(TEx)。 //以每個(gè)字6個(gè)字節(jié)的格式存盤 WRITE(tex,gh[j]:6)。 CLOSEFILE(TEx)。數(shù)據(jù)已存盤！39。procedure (Sender: TObject)。 //輸入的位移傳感器長(zhǎng)度CJ1:=1000。procedure (Sender: TObject)。 //輸入加速度靈敏度（mv/g）end。beginfennei:=4。:=39。end。beginfennei:=2。:=39。end。beginfennei:=1。:=39。end。varp1,j,x1,y1:integer。 Reset(tex)。 read(tex,y1)。 gh[j]:=y1。 CLOSEFILE(TEx)。已讀文件39。 for j:=3 to 3990 do begin gh[j]:=(gh[j]*80+p1*20) div 100。 end。 begin for j:=1 to 3990 do begin //每三個(gè)數(shù)求一次平均值 p1:=j mod 3。 gh[j]:=p1。 gh[j+2]:=p1。 end。 end else :=39。 end。begin 。procedure (Sender: TObject)。end。//繪制曲線模塊interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,printers。 Button2: TButton。 Label2: TLabel。 Edit3: TEdit。 Label5: TLabel。 Label7: TLabel。 Edit5: TEdit。 Label9: TLabel。 Button4: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button3Click(Sender: TObje