【正文】 道 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表示轉換結束 @q1: in al,dx and al,80h //PC7作控制信號 jnz @q1 mov dx,221h //轉換結束,讀數(shù)據(jù),先讀高8位 in al,dx mov x1,al mov dx,220h //讀低8位 in al,dx mov x2,al mov dx,221h //發(fā)一次啟動信號只能轉換1次,采集一個數(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。 //采集完畢 end。 a:=(x2 div 16)+x1*16。 //數(shù)據(jù)高低位復原處理 b:=(x4 div 16)+x3*16。 ld:=(a+b)div 2。 //取兩次采集的平均值 c:=(y2 div 16)+y1*16。 d:=(Y4 div 16)+Y3*16。 gd:=(c+d)div 2。 := IntToStr(ld)。 //輸出位移底值 := IntToStr(gd)。 //輸出加速度底值 X1:=0。x2:=0。x3:=0。x4:=0。 y1:=0。y2:=0。y3:=0。y4:=0。a:=0。b:=0。c:=0。d:=0。end。procedure (Sender: TObject)。var j:integer。begin 。 if a888 then i:=4000 //默認采4秒 else i:=k。 //由輸入時間定 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。 //asm結束 a:=(x2 div 16)+x1*16。 c:=(y2 div 16)+y1*16。 lh[j]:=ald。 //減去底值 gh[j]:=cgd。 end。 //for語句結束 begin //轉換采集數(shù)據(jù)（加速度） for j:=1 to i do begin gh[j]:=10000*gh[j] div 4095。 gh[j]:=gh[j] div jia。 //jia為所輸入的加速度靈敏度 end。 end。 begin //（位移轉換） if (cj11000) or (cj21000) then //若無輸入，則采用默認數(shù)據(jù) begin R:=5000。 //位移傳感器電阻值5000歐姆 S:=100。 //位移傳感器長度300mm end 。 N1:=R*2048 div 5000。 //N1:位移傳感器最大阻值對應二進制數(shù) for j:=1 to i do begin SX:=S*LH[j] DIV N1。 //sx:實測長度 LH[j]:=SX。 //單位為毫米 end。 end。 //數(shù)據(jù)轉換結束 :=39。采集結束！39。 d:=0。X1:=0。x2:=0。x3:=0。x4:=0。 y1:=0。y2:=0。y3:=0。y4:=0。a:=0。b:=0。c:=0。d:=0。 end。procedure (Sender: TObject)。begink:=StrToInt()。i:=k。a:=888end。 procedure (Sender: TObject)。 var j:integer。begin // p:=formatdatetime(39。yyyy/mm/dd/hh/nn39。,now)+39。.txt39。 Assignfile(tex,p)。 REWRITE(TEx)。 for j:=1 to i do begin WRITE(tex,lh[j]:6)。 //以每個字6個字節(jié)的格式存盤 WRITE(tex,gh[j]:6)。 end。 CLOSEFILE(TEx)。 :=39。數(shù)據(jù)已存盤！39。end。procedure (Sender: TObject)。begins:=StrToInt()。 //輸入的位移傳感器長度CJ1:=1000。end。procedure (Sender: TObject)。beginjia:=StrToInt()。 //輸入加速度靈敏度（mv/g）end。procedure (Sender: TObject)。beginfennei:=4。:=39。39。end。procedure (Sender: TObject)。beginfennei:=2。:=39。39。end。procedure (Sender: TObject)。beginfennei:=1。:=39。39。end。procedure (Sender: TObject)。varp1,j,x1,y1:integer。begin if then begin assignfile(tex,)。 Reset(tex)。 for j:=1 to 3990 do begin //從數(shù)據(jù)文件讀出的數(shù)據(jù)值賦給數(shù)組 read(tex,x1)。 read(tex,y1)。 lh[j]:=x1。 gh[j]:=y1。 end。 CLOSEFILE(TEx)。 :=39。已讀文件39。 begin //作濾波處理 p1:=(gh[1]+gh[2]) div 2。 for j:=3 to 3990 do begin gh[j]:=(gh[j]*80+p1*20) div 100。 p1:=gh[j]。 end。 end。 begin for j:=1 to 3990 do begin //每三個數(shù)求一次平均值 p1:=j mod 3。 if p1=1 then begin p1:=(gh[j]+gh[j+1]+gh[j+2]) div 3。 gh[j]:=p1。 gh[j+1]:=p1。 gh[j+2]:=p1。 end。 end。 end。 end else :=39。沒有讀文件39。 end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。begin jia:=2。end。end.*****************************************************unit wus7。//繪制曲線模塊interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,printers。type TForm7 = class(TForm) Button1: TButton。 Button2: TButton。 Label1: TLabel。 Label2: TLabel。 Button3: TButton。 Edit3: TEdit。 Edit4: TEdit。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Edit5: TEdit。 Edit6: TEdit。 Label9: TLabel。 Edit7: TEdit。 Button4: TButton。 PrintDialog1: TPrintDialog。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure FormMouseDown(S