《数据采集卡应用》由会员分享,可在线阅读,更多相关《数据采集卡应用(4页珍藏版)》请在金锄头文库上搜索。
1、数据采集卡应用实验报告实验目的:利用数据采集卡控制电机转速实验原理及说明:利用数据采集卡DA转换通道,实现数字量转换为模拟量,输出电压驱动电机转 动,随着数字量的增大,输出模拟量也在增大,可以看到电机转速不断提升。实验内容:1、实验程序框图:开始打开设备读版本号单击“命令测试”开始DA转换并并输出模拟量驱动电机 旋转1T结束2、程序及说明Dim InDriverName As StringDim mDevHandle As LongDim sVersion As StringDim pval1(0 To 128) As IntegerDim pval2(0 To 128) As LongDim
2、 ADdata As LongDim mTest, mMsg As BooleanDim A As IntegerPrivate Sub Command1_Click()If Pci6011_IsOpen(0) ThenmMsg = MsgBox( 设备已成功打开 , vbOKOnly)ElsemMsg = MsgBox( 设备没有打开 , vbOKOnly)GoTo 100End IfmTest = Pci6011_GetVersion(0, sVersion)If mTest ThenmMsg = MsgBox(sVersion, vbOKOnly)ElsemMsg = MsgBox( 读
3、取版本出错 , vbOKOnly)End IfmTest = Pci6011_WriteIO(mDevHandle, 1234)If mTest ThenmMsg = MsgBox( 输出开关量值为 1234, vbOKOnly)ElsemMsg = MsgBox( 输出开关量值出错 , vbOKOnly)End Ifpval1(0) = 0mTest = Pci6011_ReadIO(mDevHandle, pval1(0)If mTest ThenmMsg = MsgBox(pval1(0), vbOKOnly)ElsemMsg = MsgBox( 输入开关量值出错 , vbOKOnly)
4、End IfmTest = Pci6011_DAout(mDevHandle, 0, 4095)If mTest ThenmMsg = MsgBox( 通道 0 输出模拟量值为 4095, vbOKOnly)ElsemMsg = MsgBox( 通道 0 输出模拟量值出错 , End IfmTest = Pci6011_DAout(mDevHandle, 1, 4095) If mTest ThenmMsg = MsgBox( 通道 1 输出模拟量值为 4095 ElsemMsg = MsgBox( 通道 1 输出模拟量值出错 ,vbOKOnly), vbOKOnly)vbOKOnly)Private Sub Picture1_click()Me.timer1.Enable = TureA=0Private Sub Timer1_time()mTest = Pci6011_DAout(mDevHandle, 0, A)A=A+100End If3、实验截图界面设计: