Module Module1

    Dim hDevice As Integer
    Dim hEventInt As Integer
    Dim DeviceID As Int32
    Dim inIntCount As Int32 = 0 ' 内部中断计数
    Dim outIntCount As Int32 = 0 ' 外部中断计数
    Dim Flag As Int32

    Dim key As IntPtr

    Sub Main()

        DeviceID = 0

        hDevice = PCI2312_CreateDevice(DeviceID)
        If (hDevice = INVALID_HANDLE_VALUE) Then

            Console.WriteLine("CreateDevice Error...")
            _getch()
            Return

        End If

        hEventInt = PCI2312_CreateSystemEvent()
        If (hEventInt = INVALID_HANDLE_VALUE) Then

            Console.WriteLine("CreateSystemEvent Error...")
            _getch()
            Return
        End If

        If (PCI2312_InitDeviceInt(hDevice, hEventInt) = False) Then   ' 初始化中断
            Console.WriteLine("Wait....\n")
        End If
        While (_kbhit() = 0)

            While (True)

                If (WaitForSingleObject(hEventInt, 100) = 0) Then ' 等待中断发生
                    GoTo Read
                End If
                If (_kbhit() <> 0) Then
                    GoTo Exit1
                End If
            End While
Read:
            outIntCount = outIntCount + 1  '外部中断计数
            inIntCount = PCI2312_GetDeviceIntCount(hDevice) ' 获得内部中断计数
            Console.WriteLine("outIntCount={0}, inIntCount={1}", outIntCount, inIntCount)
        End While
Exit1:
        PCI2312_ReleaseDeviceInt(hDevice) ' 释放中断资源
        PCI2312_ReleaseDevice(hDevice) ' 释放设备对象
        Return


    End Sub

End Module