subirq.bas

支持PC机的各种端口的读写,包括,并口,串口,USB,等等

Attribute VB_Name = "SubIrq"
'------------------------------------------------------
'---- It is an interrupt handling sub-routine        --
'---- We can not place it inside of the Form (why?!) --
'------------------------------------------------------
Public Flag_Intr(16) As Long
Public Sub OnHWInterrupt(ByVal IrqNumber As Integer)
  Flag_Intr(IrqNumber) = Flag_Intr(IrqNumber) + 1
End Sub