首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

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

2012-12-28 
Delphi7如何实现PCI1713板卡的数据采集Delphi7如何实现PCI1713板卡的数据采集,要求多通道显示(即读取7个通

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;

热点排行