读书人

Delphi7怎么实现PCI1713板卡的数据采集

发布时间: 2012-12-28 10:29:05 作者: rapoo

Delphi7如何实现PCI1713板卡的数据采集
Delphi7如何实现PCI1713板卡的数据采集,要求多通道显示(即读取7个通道的数据),效果如下图所示,我是新手,所以不知道怎么办了,望各位多帮帮忙,谢谢!!!

[最优解释]

//采集数据
procedure TForm1.getdata(DrvIndex:integer);
begin
AIconfig.DasChan := DrvIndex;
AIconfig.DasGain := 0;
errcde := DRV_AIConfig(DriverHandle, AIconfig);
If (ErrCde <> 0) Then begin
DRV_GetErrorMessage(errcde, pszErrMsg);
Response := Application.MessageBox(pszErrMsg, '设备错误!!',MB_OK);
close;
End;
AIvoltageIn[DrvIndex].chan := AIconfig.DasChan;
AIvoltageIn[DrvIndex].gain := AIconfig.DasGain;
AIvoltageIn[DrvIndex].TrigMode := 0 ;
AIvoltageIn[DrvIndex].voltage := @voltage[DrvIndex];
num:=1;
errcde:=DRV_AIVoltageIn(DriverHandle,AIvoltagein[DrvIndex]); //获取通道数据
if errcde<>0 then
begin
DRV_GetErrorMessage(errcde, pszErrMsg);
Response := Application.MessageBox(pszErrMsg, '通道错误!!',MB_OK);
exit;
End;
data[num]:=voltage[DrvIndex];
Edt[DrvIndex].Text:=format('%4.3f',[data[num]]);
end;

读书人网 >.NET

热点推荐