dio.frm

控制卡IO控制程序。买板的时候送的例程。有用到的快下

End
Attribute VB_Name = "DIO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim bDISts(0 To 15) As Byte
Dim bDOSts(0 To 15) As Byte

Dim dwErrorCode As Integer
Dim strDwError As String
Dim strErrorMsg As String

Dim hDevice As Long
Dim DeviceLgcID As Integer

Private Sub Command_DO_Click(Index As Integer)
    Select Case Index
    Case 0:
        If bDOSts(0) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(0) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(0) = 1
        End If
        
    Case 1:
        If bDOSts(1) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(1) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(1) = 1
        End If
        
    Case 2:
        If bDOSts(2) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(2) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(2) = 1
       End If
       
    Case 3:
        If bDOSts(3) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(3) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(3) = 1
        End If
        
    Case 4:
        If bDOSts(4) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(4) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(4) = 1
        End If
        
    Case 5:
        If bDOSts(5) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(5) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(5) = 1
        End If
        
    Case 6:
        If bDOSts(6) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(6) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(6) = 1
        End If
        
    Case 7:
        If bDOSts(7) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(7) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(7) = 1
        End If
        
    Case 8:
        If bDOSts(8) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(8) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(8) = 1
        End If
        
    Case 9:
        If bDOSts(9) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(9) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(9) = 1
        End If
        
    Case 10:
        If bDOSts(10) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(10) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(10) = 1
        End If
        
     Case 11:
        If bDOSts(11) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(11) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(11) = 1
        End If
        
      Case 12:
        If bDOSts(12) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(12) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(12) = 1
        End If
        
      Case 13:
        If bDOSts(13) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(13) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(13) = 1
        End If
        
      Case 14:
        If bDOSts(14) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(14) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(14) = 1
        End If
        
      Case 15:
        If bDOSts(15) = 1 Then
            Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
            bDOSts(15) = 0
        Else
            Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
            Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
            bDOSts(15) = 1
        End If
    End Select
    
    
    
    If PCI8613_SetDeviceDO(hDevice, bDOSts(0)) = False Then        ' 开关量输出
        dwErrorCode = PCI8613_GetLastErrorEx("PCI8613_SetDeviceDO", strErrorMsg)
        strDwError = dwErrorCode
        MsgBox "dwErrorCode = " + strDwError + strErrorMsg
        
    End If
    
        
End Sub

Private Sub Command_ReadDI_Click()
    If PCI8613_GetDeviceDI(hDevice, bDISts(0)) = False Then        ' 开关量输入
        dwErrorCode = PCI8613_GetLastErrorEx("PCI8613_GetDeviceDI", strErrorMsg)
        strDwError = dwErrorCode
        MsgBox "dwErrorCode = " + strDwError + strErrorMsg
    End If
    
     If bDISts(0) = 1 Then
        Me.Command_DI(0).Caption = "开关0[开]"
        Me.Command_DI(0).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(0).Caption = "开关0[关]"
        Me.Command_DI(0).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(1) = 1 Then
        Me.Command_DI(1).Caption = "开关1[开]"
        Me.Command_DI(1).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(1).Caption = "开关1[关]"
        Me.Command_DI(1).BackColor = RGB(192, 192, 192)
    End If
        
    If bDISts(2) = 1 Then
        Me.Command_DI(2).Caption = "开关2[开]"
        Me.Command_DI(2).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(2).Caption = "开关2[关]"
        Me.Command_DI(2).BackColor = RGB(192, 192, 192)
    End If
        
    If bDISts(3) = 1 Then
        Me.Command_DI(3).Caption = "开关3[开]"
        Me.Command_DI(3).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(3).Caption = "开关3[关]"
        Me.Command_DI(3).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(4) = 1 Then
        Me.Command_DI(4).Caption = "开关4[开]"
        Me.Command_DI(4).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(4).Caption = "开关4[关]"
        Me.Command_DI(4).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(5) = 1 Then
        Me.Command_DI(5).Caption = "开关5[开]"
        Me.Command_DI(5).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(5).Caption = "开关5[关]"
        Me.Command_DI(5).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(6) = 1 Then
        Me.Command_DI(6).Caption = "开关6[开]"
        Me.Command_DI(6).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(6).Caption = "开关6[关]"
        Me.Command_DI(6).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(7) = 1 Then
        Me.Command_DI(7).Caption = "开关7[开]"
        Me.Command_DI(7).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(7).Caption = "开关7[关]"
        Me.Command_DI(7).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(8) = 1 Then
        Me.Command_DI(8).Caption = "开关0[开]"
        Me.Command_DI(8).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(8).Caption = "开关0[关]"
        Me.Command_DI(8).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(9) = 1 Then
        Me.Command_DI(9).Caption = "开关0[开]"
        Me.Command_DI(9).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(9).Caption = "开关0[关]"
        Me.Command_DI(9).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(10) = 1 Then
        Me.Command_DI(10).Caption = "开关0[开]"
        Me.Command_DI(10).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(10).Caption = "开关0[关]"
        Me.Command_DI(10).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(11) = 1 Then
        Me.Command_DI(11).Caption = "开关0[开]"
        Me.Command_DI(11).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(11).Caption = "开关0[关]"
        Me.Command_DI(11).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(12) = 1 Then
        Me.Command_DI(12).Caption = "开关0[开]"
        Me.Command_DI(12).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(12).Caption = "开关0[关]"
        Me.Command_DI(12).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(13) = 1 Then
        Me.Command_DI(13).Caption = "开关0[开]"
        Me.Command_DI(13).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(13).Caption = "开关0[关]"
        Me.Command_DI(13).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(14) = 1 Then
        Me.Command_DI(14).Caption = "开关0[开]"
        Me.Command_DI(14).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(14).Caption = "开关0[关]"
        Me.Command_DI(14).BackColor = RGB(192, 192, 192)
    End If
    
    If bDISts(15) = 1 Then
        Me.Command_DI(15).Caption = "开关0[开]"
        Me.Command_DI(15).BackColor = RGB(0, 255, 255)
    Else
        Me.Command_DI(15).Caption = "开关0[关]"
        Me.Command_DI(15).BackColor = RGB(192, 192, 192)
    End If
    
End Sub



Private Sub Form_Load()

    DeviceLgcID = 0
    hDevice = PCI8613_CreateDevice(DeviceLgcID)
    If hDevice = INVALID_HANDLE_VALUE Then
        dwErrorCode = PCI8613_GetLastErrorEx("PCI8613_CreateDevice", strErrorMsg)
        strDwError = dwErrorCode
        MsgBox "dwErrorCode = " + strDwError + strErrorMsg
        Exit Sub
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If PCI8613_ReleaseDevice(hDevice) = False Then
        MsgBox "PCI8613_ReleaseDevice Error..."
    End If
End Sub