dio_form.frm

此为用vb编写的usb高速数据采集实例 如果没有相应的驱动

        Para_DO.DO13 = 0
    Else
        DO13_Command.Caption = O(13) & "[开]"
        DO13_Command.BackColor = RGB(0, 255, 255)
        Para_DO.DO13 = 1
    End If
    bStatus = USB2013_SetDeviceDO(hDevice, Para_DO)

End Sub

Private Sub DO14_Command_Click() '14号开关控制
    Dim bStatus As Boolean
    If (Para_DO.DO14) = 1 Then
        DO14_Command.Caption = O(14) & "[关]"
        DO14_Command.BackColor = RGB(192, 192, 192)
        Para_DO.DO14 = 0
    Else
        DO14_Command.Caption = O(14) & "[开]"
        DO14_Command.BackColor = RGB(0, 255, 255)
        Para_DO.DO14 = 1
    End If
    bStatus = USB2013_SetDeviceDO(hDevice, Para_DO)

End Sub

Private Sub DO15_Command_Click() '15号开关控制
    Dim bStatus As Boolean
    If (Para_DO.DO15) = 1 Then
        DO15_Command.Caption = O(15) & "[关]"
        DO15_Command.BackColor = RGB(192, 192, 192)
        Para_DO.DO15 = 0
    Else
        DO15_Command.Caption = O(15) & "[开]"
        DO15_Command.BackColor = RGB(0, 255, 255)
        Para_DO.DO15 = 1
    End If
    bStatus = USB2013_SetDeviceDO(hDevice, Para_DO)

End Sub

Private Sub Form_Load()
    Dim bStatus As Boolean
    Dim s As Long
    hDevice = USB2013_CreateDevice(0)
                  inCome = False: outCome = False
                   Open App.Path & "\1.ini" For Input As #1  '边读边提取
                    Do While Not EOF(1)
                    Line Input #1, buffer
                        If InStr(buffer, "程序标题=") Then '处理标题
                           Me.Caption = Mid$(buffer, 6, Len(buffer) - 5)
                        End If
                                '处理输出标题
                        If InStr(buffer, "输出标题=") Then Frame1.Caption = Mid$(buffer, 6, Len(buffer) - 5) '处理输出标题
                                '处理输入标题
                        If InStr(buffer, "输入标题=") Then Frame2.Caption = Mid$(buffer, 6, Len(buffer) - 5)
                               If buffer = "[输出]" Then outCome = True: inCome = False
                               If buffer = "[输入]" Then inCome = False: inCome = True
                                  If outCome = True And InStr(buffer, "开关") = 1 Then '对输出按钮进行处理
                                     If InStr(buffer, "开关0") Then O(0) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关1标题") Then O(1) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关2标题") Then O(2) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关3标题") Then O(3) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关4标题") Then O(4) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关5标题") Then O(5) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关6标题") Then O(6) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关7标题") Then O(7) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关8标题") Then O(8) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关9标题") Then O(9) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关10标题") Then O(10) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关11标题") Then O(11) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关12标题") Then O(12) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关13标题") Then O(13) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关14标题") Then O(14) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关15标题") Then O(15) = Mid$(buffer, 8, Len(buffer) - 7)
                                        DO0_Command.Caption = O(0) & "[关]"
                                        DO1_Command.Caption = O(1) & "[关]"
                                        DO2_Command.Caption = O(2) & "[关]"
                                        DO3_Command.Caption = O(3) & "[关]"
                                        DO4_Command.Caption = O(4) & "[关]"
                                        DO5_Command.Caption = O(5) & "[关]"
                                        DO6_Command.Caption = O(6) & "[关]"
                                        DO7_Command.Caption = O(7) & "[关]"
                                        DO8_Command.Caption = O(8) & "[关]"
                                        DO9_Command.Caption = O(9) & "[关]"
                                        DO10_Command.Caption = O(10) & "[关]"
                                        DO11_Command.Caption = O(11) & "[关]"
                                        DO12_Command.Caption = O(12) & "[关]"
                                        DO13_Command.Caption = O(13) & "[关]"
                                        DO14_Command.Caption = O(14) & "[关]"
                                        DO15_Command.Caption = O(15) & "[关]"
                                End If
                                     '对输入的按钮进行处理
                                  If inCome = True And InStr(buffer, "开关") = 1 Then
                                      If InStr(buffer, "开关0") Then c(0) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关1标题") Then c(1) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关2标题") Then c(2) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关3标题") Then c(3) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关4标题") Then c(4) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关5标题") Then c(5) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关6标题") Then c(6) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关7标题") Then c(7) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关8标题") Then c(8) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关9标题") Then c(9) = Mid$(buffer, 7, Len(buffer) - 6)
                                     If InStr(buffer, "开关10标题") Then c(10) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关11标题") Then c(11) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关12标题") Then c(12) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关13标题") Then c(13) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关14标题") Then c(14) = Mid$(buffer, 8, Len(buffer) - 7)
                                     If InStr(buffer, "开关15标题") Then c(15) = Mid$(buffer, 8, Len(buffer) - 7)
                                        DI0_Command.Caption = c(0) & "[关]"
                                        DI1_Command.Caption = c(1) & "[关]"
                                        DI2_Command.Caption = c(2) & "[关]"
                                        DI3_Command.Caption = c(3) & "[关]"
                                        DI4_Command.Caption = c(4) & "[关]"
                                        DI5_Command.Caption = c(5) & "[关]"
                                        DI6_Command.Caption = c(6) & "[关]"
                                        DI7_Command.Caption = c(7) & "[关]"
                                        DI8_Command.Caption = c(8) & "[关]"
                                        DI9_Command.Caption = c(9) & "[关]"
                                        DI10_Command.Caption = c(10) & "[关]"
                                        DI11_Command.Caption = c(11) & "[关]"
                                        DI12_Command.Caption = c(12) & "[关]"
                                        DI13_Command.Caption = c(13) & "[关]"
                                        DI14_Command.Caption = c(14) & "[关]"
                                        DI15_Command.Caption = c(15) & "[关]"
                                    End If
                                     Loop
                   Close #1                    '关闭文件
    If (hDevice = INVALID_HANDLE_VALUE) Then
        s = MessageBox(DIO_Form.hwnd, " Create Device Object Failed.", "Error", 0)
        Exit Sub
    End If
    Para_DO.DO0 = 0
    Para_DO.DO1 = 0
    Para_DO.DO2 = 0
    Para_DO.DO3 = 0
    Para_DO.DO4 = 0
    Para_DO.DO5 = 0
    Para_DO.DO6 = 0
    Para_DO.DO7 = 0
    Para_DO.DO8 = 0
    Para_DO.DO9 = 0
    Para_DO.DO10 = 0
    Para_DO.DO11 = 0
    Para_DO.DO12 = 0
    Para_DO.DO13 = 0
    Para_DO.DO14 = 0
    Para_DO.DO15 = 0
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
 USB2013_ReleaseDevice hDevice
End Sub

Private Sub GetDI_Timer_Timer()
    Dim bStatus As Boolean
    bStatus = USB2013_GetDeviceDI(hDevice, Para_DI)
    If bStatus = False Then
      GetDI_Timer.Enabled = False
    End If
    If (Para_DI.DI0) = 1 Then
        DI0_Command.Caption = c(0) & "[开]"
        DI0_Command.BackColor = RGB(0, 255, 255)
    Else
        DI0_Command.Caption = c(0) & "[关]"
        DI0_Command.BackColor = RGB(192, 192, 192)
    End If
    If (Para_DI.DI1) = 1 Then
        DI1_Command.Caption = c(1) & "[开]"
        DI1_Command.BackColor = RGB(0, 255, 255)
    Else
        DI1_Command.Caption = c(1) & "[关]"
        DI1_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI2) = 1 Then
        DI2_Command.Caption = c(2) & "[开]"
        DI2_Command.BackColor = RGB(0, 255, 255)
    Else
        DI2_Command.Caption = c(2) & "[关]"
        DI2_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI3) = 1 Then
        DI3_Command.Caption = c(3) & "[开]"
        DI3_Command.BackColor = RGB(0, 255, 255)
    Else
        DI3_Command.Caption = c(3) & "[关]"
        DI3_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI4) = 1 Then
        DI4_Command.Caption = c(4) & "[开]"
        DI4_Command.BackColor = RGB(0, 255, 255)
    Else
        DI4_Command.Caption = c(4) & "[关]"
        DI4_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI5) = 1 Then
        DI5_Command.Caption = c(5) & "[开]"
        DI5_Command.BackColor = RGB(0, 255, 255)
    Else
        DI5_Command.Caption = c(5) & "[关]"
        DI5_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI6) = 1 Then
        DI6_Command.Caption = c(6) & "[开]"
        DI6_Command.BackColor = RGB(0, 255, 255)
    Else
        DI6_Command.Caption = c(6) & "[关]"
        DI6_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI7) = 1 Then
        DI7_Command.Caption = c(7) & "[开]"
        DI7_Command.BackColor = RGB(0, 255, 255)
    Else
        DI7_Command.Caption = c(7) & "[关]"
        DI7_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI8) = 1 Then
        DI8_Command.Caption = c(8) & "[开]"
        DI8_Command.BackColor = RGB(0, 255, 255)
    Else
        DI8_Command.Caption = c(8) & "[关]"
        DI8_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI9) = 1 Then
        DI9_Command.Caption = c(9) & "[开]"
        DI9_Command.BackColor = RGB(0, 255, 255)
    Else
        DI9_Command.Caption = c(9) & "[关]"
        DI9_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI10) = 1 Then
        DI10_Command.Caption = c(10) & "[开]"
        DI10_Command.BackColor = RGB(0, 255, 255)
    Else
        DI10_Command.Caption = c(10) & "[关]"
        DI10_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI11) = 1 Then
        DI11_Command.Caption = c(11) & "[开]"
        DI11_Command.BackColor = RGB(0, 255, 255)
    Else
        DI11_Command.Caption = c(11) & "[关]"
        DI11_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI12) = 1 Then
        DI12_Command.Caption = c(12) & "[开]"
        DI12_Command.BackColor = RGB(0, 255, 255)
    Else
        DI12_Command.Caption = c(12) & "[关]"
        DI12_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI13) = 1 Then
        DI13_Command.Caption = c(13) & "[开]"
        DI13_Command.BackColor = RGB(0, 255, 255)
    Else
        DI13_Command.Caption = c(13) & "[关]"
        DI13_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI14) = 1 Then
        DI14_Command.Caption = c(14) & "[开]"
        DI14_Command.BackColor = RGB(0, 255, 255)
    Else
        DI14_Command.Caption = c(14) & "[关]"
        DI14_Command.BackColor = RGB(192, 192, 192)

    End If
    If (Para_DI.DI15) = 1 Then
        DI15_Command.Caption = c(15) & "[开]"
        DI15_Command.BackColor = RGB(0, 255, 255)
    Else
        DI15_Command.Caption = c(15) & "[关]"
        DI15_Command.BackColor = RGB(192, 192, 192)

    End If
End Sub

Private Sub Open_SC_Click()
   AD_Form.SetFocus
End Sub

Private Sub closesystem_Click()
   Unload Me
End Sub

Private Sub exit_Click()
   End
End Sub