irqfunc.bas

来自「一个代码齐全功能强大的串口初步学习应用教程,值得大家下载.」· BAS 代码 · 共 66 行

Attribute VB_Name = "IrqFunc"
'**************************************************************
'    IrqProc.bas
'     -- Irq callback function for irq function demo example.
'
'
'    History:   Date       Author         Comment
'               3/9/98     Casper         Wrote it.
'              12/08/98    Casper         Update
'**************************************************************
Option Explicit
Public GIdx As Long
Public GTermIrqCnt As Long
Public GCntIrqCnt As Long
Public GModemIrqCnt As Long
Public GBreakIrqCnt As Long
Public GTxEmptyIrqCnt As Long

'NOTE!!!!!!!!!!!!!!!
' VB can't debug multithread program, so
' DO NOT set breakpoint in IRQ callback function
'
Public Sub TermIrq(ByVal Port As Long)
    GTermIrqCnt = GTermIrqCnt + 1
    Call GhForm.ShowCnt(GTermIrqCnt, "sio_term_irq()")
End Sub

'NOTE!!!!!!!!!!!!!!!
' VB can't debug multithread program, so
' DO NOT set breakpoint in IRQ callback function
'
Public Sub CntIrq(ByVal Port As Long)
    GCntIrqCnt = GCntIrqCnt + 1
    Call GhForm.ShowCnt(GCntIrqCnt, "sio_cnt_irq()")
End Sub

'NOTE!!!!!!!!!!!!!!!
' VB can't debug multithread program, so
' DO NOT set breakpoint in IRQ callback function
'
Public Sub ModemIrq(ByVal Port As Long)
    GModemIrqCnt = GModemIrqCnt + 1
    Call GhForm.ShowCnt(GModemIrqCnt, "sio_modem_irq()")
End Sub

'NOTE!!!!!!!!!!!!!!!
' VB can't debug multithread program, so
' DO NOT set breakpoint in IRQ callback function
'
Public Sub BreakIrq(ByVal Port As Long)
    GBreakIrqCnt = GBreakIrqCnt + 1
    Call GhForm.ShowCnt(GBreakIrqCnt, "sio_break_irq()")
End Sub

'NOTE!!!!!!!!!!!!!!!
' VB can't debug multithread program, so
' DO NOT set breakpoint in IRQ callback function
'
Public Sub TxEmptyIrq(ByVal Port As Long)
    GTxEmptyIrqCnt = GTxEmptyIrqCnt + 1
    Call GhForm.ShowCnt(GTxEmptyIrqCnt, "sio_Tx_empty_irq()")
End Sub