利用Delphi 3.0开发微机数据采集与处理软件系统

];//读A/D转换高8位
　　
　　ImportLow:=Port[Basea];//读A/D转换高8位
　　
　　Sample[i]:=ImportHigh*16orImportLow/16;//计算12位A/D转换结果，并赋值给采
　　
　　//样数组
　　
　　i:=i+1;
　　
　　Port[Basea+8]:=0;//清中断
　　
　　end;
　　
　　⑶设置中断
　　
　　withmyPortdo
　　
　　begin
　　
　　ifActiveHWthenCloseDriver
　　
　　else
　　
　　begin
　　
　　OpenDriver;
　　
　　ifnotActiveHWthen
　　
　　begin
　　
　　MessageBeep(0);
　　
　　Application.MessageBox('系统发现指定I/O端口未能成功打开！',
　　
　　'请注意！',mb_OKormb_ICONHAND);
　　
　　end
　　
　　else
　　
　　begin
　　
　　IRQNumber:=2;
　　
　　SetIRQ;
　　
　　end;
　　
　　end;
　　
　　end;
　　
　　⑷开中断，进行采样
　　
　　Port[Basea+9]:=$A3H;//选择定时器触发，连接PC机2级中断，开中断
　　
　　Port[Basea+8]:=1;//选择定时器触发
　　
　　i:=0;
　　
　　whilei<>Pointdo;//等待中断，每中断一次采样一个数据，直至采满Point个点
　　
　　⑸退出系统前关闭中断
　　
　　procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);
　　
　　begin
　　
　　{...}
　　
　　myPort.CloseDriver;
　　
　　{...}
　　
　　end;
　　
　　在实际工作中，读者应根据具体数据采集板的硬件特性，参考上述方法，编写数据采集、分析、输出代码。
　　
　　参考文献
　　
　　
　　
　　沈兰荪.数据采集技术.中国科学技术大学出版社.1990
　　FrankEngo.使用Delphi3编程.电子工业出版社.1997
　　一九九九年一月
　　
　　
　　
　　作者通信地址：（230031）安徽省合肥市炮兵学院研究生系９７级张建军（收）
　　
　　作者电话：（0551）5560324（宿舍直拨）（0551）5562566转68750（研究生系值班室）
　　
　　
　　
　　
　

《利用Delphi 3.0开发微机数据采集与处理软件系统(第6页)》