大学精品课件：VB接口方法举例.doc

1、11.211.2 VBVB 接口方法举例接口方法举例 参照提供的 VB 程序源码，在Product_PCI6011 Samples SourceVB6011 用户编程时，在程序中包含接口说明文件 PCI6011.BAS。在其中定义了 VB 调用 的接口，说明如下： AD 控制接口数据结构说明 Public Type AD6011_WINCTRL_STRUCT m_ADType As Integer m_StartType As Integer m_StartChn As Integer m_EndChn As Integer m_IETFlag As Integer m_Timer0Val A

2、s Integer m_Timer1Val As Integer m_Timer2Val As Integer m_ClkSrc As Integer m_BufferBlock As Integer m_TransFlag As Byte m_hWnd As Long End Type API 接口函数说明 Public Declare Function Pci6011_IsOpen Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_Open Lib “PCI6011d

3、ll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_Close Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_GetVersion Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal sVersion As String) As Boolean Public Declare Function Pci6011_WriteIO L

4、ib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal mVal As Integer) As Boolean Public Declare Function Pci6011_ReadIO Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByRef mVal As Integer) As Boolean Public Declare Function Pci6011_InitTimer2 Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal mType As Inte

5、ger, ByVal mVal As Integer, _ ByVal mIntFlag As Boolean, ByVal mWnd As Long) As Boolean Public Declare Function Pci6011_StartTimer2 Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_ReadTimer2 Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByRef mVal As Integer) As

6、Boolean Public Declare Function Pci6011_StopTimer2 Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_SoftADSetChn Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal mChn As Long) As Boolean Public Declare Function Pci6011_SoftADStart Lib “PCI6011dll.dll“ _ (ByVal

7、mDev As Long) As Boolean Public Declare Function Pci6011_SoftADRead Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByRef mVal As Integer) As Boolean Public Declare Function Pci6011_SoftADGetVal Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal mChn As Long, ByRef mVal As Integer) As Boolean public Decl

8、are Function Pci6011_ADCtrlEx Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByRef pCtrlStru As AD6011_CTRL_STRUCT)As Boolean public Declare Function Pci6011_ADCtrl Lib “PCI6011dll.dll“ _ (ByVal mDev As Long,ByRef pCtrlStru As AD6011_WINCTRL_STRUCT)As Boolean Public Declare Function Pci6011_ReadADBuffe

9、r Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByRef mVal As Integer, ByVal mDataLength As Long) As Long Public Declare Function Pci6011_StopAD Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public Declare Function Pci6011_StartAD Lib “PCI6011dll.dll“ _ (ByVal mDev As Long) As Boolean Public

10、Declare Function Pci6011_DAout Lib “PCI6011dll.dll“ _ (ByVal mDev As Long, ByVal mChn As Integer, ByVal mVal As Integer) As Boolean 使用 VB 编程时，中断事件通过提供的 PCI6011OCX 控件，来实现。一个控件对应一个中断 源，设置接收控件窗口来确定事件的发生，举例如下： 初始化设备 0 的定时器中断，m_Ocx1 为控制控件对象 Pci6011_InitTimer2(0,2,2000,1, m_Ocx1.mhWnd) 初始化设备 0 的采集中断，m_Ocx

11、2 为控制控件对象 m_Ctrl. (设置采集参数) m_Ctrl.m_hWnd = m_Ocx2.m_hWnd Pci6011_InitTimer2(0,2,2000,1, m_Ocx1.mhWnd) 这样 m_Ocx1 响应定时器中断，m_Ocx2 响应采集中断 Dim InDriverName As String Dim mDevHandle As Long Dim sVersion As String Dim pval1(0 To 128) As Integer Dim pval2(0 To 128) As Long Dim ADdata As Long Dim mTest, mMsg

12、 As Boolean Private Sub Command1_Click() If Pci6011_IsOpen(0) Then mMsg = MsgBox(“设备已成功打开“, vbOKOnly) Else mMsg = MsgBox(“设备没有打开“, vbOKOnly) GoTo 100 End If mTest = Pci6011_GetVersion(0, sVersion) If mTest Then mMsg = MsgBox(sVersion, vbOKOnly) Else mMsg = MsgBox(“读取版本出错“, vbOKOnly) End If mTest = P

13、ci6011_WriteIO(mDevHandle, 1234) If mTest Then mMsg = MsgBox(“输出开关量值为 1234“, vbOKOnly) Else mMsg = MsgBox(“输出开关量值出错“, vbOKOnly) End If pval1(0) = 0 mTest = Pci6011_ReadIO(mDevHandle, pval1(0) If mTest Then mMsg = MsgBox(pval1(0), vbOKOnly) Else mMsg = MsgBox(“输入开关量值出错“, vbOKOnly) End If mTest = Pci6

14、011_DAout(mDevHandle, 0, 4095) If mTest Then mMsg = MsgBox(“通道 0 输出模拟量值为 4095“, vbOKOnly) Else mMsg = MsgBox(“通道 0 输出模拟量值出错“, vbOKOnly) End If mTest = Pci6011_DAout(mDevHandle, 1, 4095) If mTest Then mMsg = MsgBox(“通道 1 输出模拟量值为 4095“, vbOKOnly) Else mMsg = MsgBox(“通道 1 输出模拟量值出错“, vbOKOnly) End If mT

15、est = Pci6011_SoftADGetVal(0, 0, pval1(0) If mTest Then mMsg = MsgBox(“软件中断方式启动 AD 并得到采样值正确“, vbOKOnly) Else mMsg = MsgBox(“软件启动 AD 出错“, vbOKOnly) End If mTest = Pci6011_SoftADSetChn(0, 0) If mTest Then mMsg = MsgBox(“设置模拟输入通道正确“) Else mMsg = MsgBox(“设置模拟输入通道出错“, vbOKOnly) End If mTest = Pci6011_Sof

16、tADStart(0) If mTest Then mMsg = MsgBox(“软件启动 AD 正确“) Else mMsg = MsgBox(“软件启动 AD 出错“, vbOKOnly) End If mTest = Pci6011_SoftADRead(0, pval1(0) If mTest Then mMsg = MsgBox(pval1(0), vbOKOnly) Else mMsg = MsgBox(“软件启动方式读取 AD 值出错“, vbOKOnly) End If 100 End Sub Private Sub Command2_Click() mTest = Pci60

17、11_Open(0) If mTest Then mMsg = MsgBox(“设备成功的被打开“, vbOKOnly) Else mMsg = MsgBox(“打开设备出错“, vbOKOnly) End If End Sub Private Sub Command3_Click() If Pci6011_IsOpen(0) Then mMsg = MsgBox(“设备已成功打开“, vbOKOnly) Else mMsg = MsgBox(“设备没有打开“, vbOKOnly) GoTo 200 End If mTest = Pci6011_Close(mDevHandle) If mTe

18、st Then mMsg = MsgBox(“设备关闭正确“, vbOKOnly) Else mMsg = MsgBox(“设备关闭出错“, vbOKOnly) End If 200 End Sub Private Sub Command4_Click() If Pci6011_IsOpen(0) Then mMsg = MsgBox(“设备已成功打开“, vbOKOnly) Else mMsg = MsgBox(“设备没有打开“, vbOKOnly) GoTo 300 End If 定时器测试 方式 2 mTest = Pci6011_InitTimer2(0, 4, 4000, 1, PC

19、I6011OCX1.hWnd) If mTest Then mMsg = MsgBox(“定时器初始化正确“, vbOKOnly) Else mMsg = MsgBox(“定时器初始化失败“, vbOKOnly) GoTo 300 End If mTest = Pci6011_StartTimer2(0) If mTest Then mMsg = MsgBox(“启动正确“) Else mMsg = MsgBox(“启动出错“, vbOKOnly) GoTo 300 End If 300 End Sub Private Sub Command5_Click() Dim ddd As AD601

20、1_WINCTRL_STRUCT ddd.m_ADType = 1 ddd.m_BufferBlock = 4 ddd.m_ClkSrc = 0 ddd.m_EndChn = 15 ddd.m_hWnd = PCI6011OCX2.hWnd ddd.m_StartChn = 0 ddd.m_StartType = 0 ddd.m_Timer0Val = 2 ddd.m_Timer1Val = 20 ddd.m_TransFlag = 0 If Pci6011_IsOpen(0) Then mMsg = MsgBox(“设备已成功打开“, vbOKOnly) Else mMsg = MsgBox

21、(“设备没有打开“, vbOKOnly) GoTo 400 中断采集测试 End If mTest = Pci6011_ADCtrl(0, ddd) If mTest Then mMsg = MsgBox(“初始化正确“, vbOKOnly) Else mMsg = MsgBox(“初始化失败“, vbOKOnly) GoTo 400 End If Pci6011_StartAD (0) 400 End Sub Private Sub Command6_Click() Pci6011_TestMsg (0) End Sub Private Sub Form_Load() sVersion = “1234567890abcdefg “ End Sub Private Sub PCI6011OCX1_DevINTArrived() Pci6011_StopTimer2 (0) mMsg = MsgBox(“收到定时器中断“, vbOKOnly) End Sub Private Sub PCI6011OCX2_DevINTArrived() Pci6011_StopAD (0) mMsg = MsgBox(“收到 AD 中断“, vbOKOnly) End Sub