数据采集卡应用实验报告实验目的：利用数据采集卡控制电机转速实验原理及说明：利用数据采集卡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 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( 读取版本出错 , 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)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、实验截图界面设计：