
' OnTimer1 event...
Event OnTimer1()
Timer.Items(0).Interval = ledOnTime
Low(txLED)
End Event
' OnTimer2 event...
Event OnTimer2()
Timer.Items(1).Interval = ledOnTime
Low(rxLED)
End Event
' OnTimer1 event... (CDC.DataAvailable)
Event OnTimer1()
Timer.Items(0).Interval = ledOnTime
Low(rxLED) ' was txLED
End Event
' OnTimer2 event... (USART.DataAvailable)
Event OnTimer2()
Timer.Items(1).Interval = ledOnTime
Low(txLED) ' was rxLED
End Event
' ISRTimer module - used for blinky LEDs...
#option TIMER_AVAILABLE = 3
Include "ISRTimer.bas"
' ISRTimer module - used for blinky LEDs...
#option TIMER_AVAILABLE = 3
' added to ensure proper timing
#option TIMER_AUTO_RELOAD = FALSE
Include "ISRTimer.bas"
Users browsing this forum: No registered users and 10 guests