Механизм обработки прерывания от внешнего источника

'/****************************************************************************/
'/* For the proper operation the PIODIO, the following functions must be used.  */
'/*    PIODIO_DriverInit(     <--   initial the driver                        */
'/*    PIODIO_DriverClose(    <--   close the driver                          */
'/****************************************************************************/
 
Option Explicit
Dim wBaseAddr As Long
Dim wIrq As Integer
Dim wSubVendor As Integer, wSubDevice As Integer, wSubAux As Integer
Dim wSlotBus As Integer, wSlotDevice As Integer
Dim wTotalBoards, wInitialCode As Integer
Dim dwIntCount As Long
Dim hEvent As Long
 
 
Private Sub Command1_Click()
    Dim wRetVal As Integer
    Dim wBoard As Integer
    Dim i As Integer
    Dim lRtn As Long
    Dim psource As Integer
    List1.Clear
 
    wBoard = Val(eSelectBoard.Text)
    If wBoard > Val(eTotalBoards.Text) - 1 _
    Or wBoard < 0 Then
        List1.AddItem "Invalid board number, Pls retry!!"
        Exit Sub
    End If
 
    'Get board's Configuration Space
    wRetVal = PIODIO_GetConfigAddressSpace(wBoard, wBaseAddr, wIrq, _
                      wSubVendor, wSubDevice, wSubAux, _
                      wSlotBus, wSlotDevice)
    If wRetVal <> PIODIO_NoError Then
        List1.AddItem "Get Config-Address-Space Error !!"
        Exit Sub
    End If
    
    
     '************************************************************
     ' enable all DI/DO port
     '************************************************************
     List1.AddItem "Enable all DI/DO"
     PIODIO_OutputByte wBaseAddr, 1  ' enable DI/DO
     List1.AddItem "set P2C3 and P5C3 as interrupt source"
     If cbxSource.ListIndex = 1 Then
     dwIntCount = 0
     PIODIO_IntResetCount
     hEvent = CreateEvent(0, False, False, 0)              ' ВОТ СОЗДАЕТСЯ СОбЫТИЕ
     If hEvent = 0 Then
        List1.AddItem "Create Event Error!!"
        Exit Sub
     Else
        List1.AddItem "Create Event OK!!"
     End If
     
     '// Initial Low and Active High
     '// The Interrupt-Source can be:
     '//         0:P2C3  ==>  CN1.Pin26
     '//         1:P5C3  ==>  CN2.Pin9
     psource = Val(cbxSource.ListIndex) 'Selece Source for P2C3/P5C3
     Dim actmode As Integer
     actmode = cbxActMode.ListIndex
     wRetVal = PIODIO_IntInstall(wBoard, hEvent, psource, actmode)
     List1.AddItem "Active Mode:" + Str(actmode)
     If wRetVal <> PIODIO_NoError Then
        List1.AddItem "Interrupt Install Error!!"
     Else
        List1.AddItem "Interrupt Install OK!!"
     End If
 
     [COLOR="Red"][COLOR="red"]
      For i = 0 To 9                                ' ВОТ ЭТОТ САМЫЙ ЦИКЛ
        If opnLow.Value = True Then
        List1.AddItem " "
        Sleep 100
 
        
        wRetVal = PIODIO_IntGetCount(dwIntCount)                 ' ИЗ сЧЕТЧИКА ПРЕРЫВАНИЙ МОЕЙ ПЛАТЫ
        List1.AddItem "Interrupt Counter(0):" + Str(dwIntCount)
        
        Sleep 100
 
        
        wRetVal = PIODIO_IntGetCount(dwIntCount)
        List1.AddItem "Interrupt Counter(1):" + Str(dwIntCount)
        
        Else
        
        List1.AddItem " "
        Sleep 100
       
        wRetVal = PIODIO_IntGetCount(dwIntCount)
        List1.AddItem "Interrupt Counter(1):" + Str(dwIntCount)
        
        Sleep 100
 
        End If
        List1.AddItem "   Wait Event ....."
        DoEvents
        
        lRtn = WaitForSingleObject(hEvent, 10)     ' УЗНАЕМ ЧТО ПРЕРЫВАНИЕ СОСТОЯЛОСЬ
        If lRtn = 0 Then
            List1.AddItem "   Got Event !!"            ' РАДУЕМСЯ
            DoEvents
        End If
        
        
        
        '***** Do some thing in here ****
        '   :
        '   :
        '   :
 
        DoEvents
     
     Next
[/COLOR][/COLOR]
     List1.AddItem " "
 
     '// Revmove the Interrupt
     PIODIO_IntRemove
     List1.AddItem "Stop Interrupt!!"
     CloseHandle hEvent
 
     '// How many times the interrupt occur
     wRetVal = PIODIO_IntGetCount(dwIntCount)
     If wRetVal <> PIODIO_NoError Then
        List1.AddItem "Get Interrupt Counter Error!!"
     Else
        List1.AddItem "Interrupt Counter:" + Str(dwIntCount)
     End If
 
     List1.AddItem "end"
End Sub
 
 
Private Sub Command2_Click()
    End
End Sub
 
Private Sub Form_Load()
    Dim rtn
    
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
    '********************************************************************
    '* NOTICE: call PIODIO_DriverInit() to initialize the driver.        *
    '* Initial the device driver, and return the board number in the PC *
    '********************************************************************
    wInitialCode = PIODIO_DriverInit()
    Command1.Caption = "Test the PIODIO Card."
    eSelectBoard.Text = 0
    If wInitialCode <> PIODIO_NoError Then
        rtn = MsgBox("Driver initialize error!!!", , "PIODIO Card Error")
        Command1.Enabled = False
        Exit Sub
    End If
    
    If PIODIO_SearchCard(wTotalBoards, PIO_D48) <> PIODIO_NoError Then
        rtn = MsgBox("Search Card Error!!", , "PIODIO Card Error")
        Command1.Enabled = False
    Else
        Command1.Enabled = True
    End If
    
    eTotalBoards.Text = wTotalBoards
    VScroll1.Min = wTotalBoards - 1
    VScroll1.Max = 0
    cbxSource.ListIndex = 0
    opnHigh.Value = True
    cbxActMode.ListIndex = 0
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
        PIODIO_DriverClose
End Sub
 
 
 
Private Sub VScroll1_Change()
    eSelectBoard.Text = VScroll1.Value
End Sub