-
附录：程序代码
Dim ai_buf(80000) As Integer
Dim bbuf(80000) As Double
Dim m_uDelay As Long
Dim
m_uSampIntrv As Long
Dim data_size As
Long
Private Sub
Form_Load()
Dim
result As Long
'
返回值
' 1
card =
WD_Register_Card(PCIe_9852, card_number)
PicScale Pic
'
调整图像框的坐标系
' PicMidleLine
Pic '
在图像框中画一条中线
result = WD_AI_CH_Config(card, -1,
AD_B_10_V) ';//
通道量程配置，
-1
为配
置所有通道
result
=
WD_AI_Config(card,
WD_IntTimeBase,
1,
WD_AI_ADCONVSRC_TimePacer, 0, 1)
'
参数配置，
WD_IntTimeBas
e
为内部时基
200MHz
，
1
为恢复占空比，
WD_AI_ADCONVS
RC_TimePacer
为
AD
转换
源
'0
为关闭乒乓模式，
1
为自动执行一次
WD_AI_ContBuffe
rSetup
函数
'WD
_AI_ContBufferSetup(card,ai_buf,1024,&Id);
'
设置连续模拟输入缓冲区，
1024
为缓冲区的长度，长度必须为
4
的倍数
result
=
WD_AI_Set_Mode(card,
AI_A
VE,
0)
';//AI_A
VE
为开启板载平均技
术，
Iter
为采集次数（
0
为无限连续采集）
End Sub
Private
Sub btn_Click()
Dim result As Long
'
返回值
If n =
开始
n =
停止
m_uDelay =
'
设置采集延迟时间
m_uSampIntrv =
'
设置采集的间隔
data_size =
result
=
WD_AI_Trig_Config(card,
WD_AI_TRGMOD_DELAY
,
WD_AI_TRGSRC_ExtD, WD_AI_TrgNegative,
0, 0, 0, 0, m_uDelay, 1)
'
触
发
方
式
配
置
，
WD_AI_TRGMOD_DELAY<
/p>
为
延
迟
触
发
模
式
，
WD_AI_TRGSRC_ExtD
为外部触发，
'WD_AI_TrgNegative
为下降沿触发，
0
为
0
通道，
0.0
为触发的阈值，
0
为中间触发参数无用，
1