
Zitat von
Jörn Arne
Hallo
hier mal ein kleines Testprogram, die Interrupt routine hab ich 1:1 aus meinem Projekt kopiert
Das eigentliche wäre zu umfangreich (auch viele Import Einträge)
;---------------------------
interrupt timerInterrupt
define secondthreadtimer word[31]
define activesecondthread as bit[251]
'interrupt to timer
config2.Init
config2.put 00000001b
config2.off
#init
'hier steht das eigentliche Programm
'Der timer wird dazu benutzt um Display ausgaben zu erledigen (Uhr Zeit), Hintergrundbeleuchtungen zu schalten, und u.a. als Abschalt-timer
'die Variable "Activesecondthread" wird über if Blöcke abgefragt und dem entsprechend die oben gennanten Aufgaben ausgeführt
'Das hat mit dem alten compiler immer ganz gut geklappt
pause 1
goto init
'-------------------------------------interrupt-----------------------------
#timerInterrupt
Activesecondthread = off
if (secondthreadtimer + 50 <= timer) then
beep 20,1,0 'zum testen
Activesecondthread = on
secondthreadtimer = timer
end if
return interrupt
;-----------------------------------------
'nach etwa 1 Sekunde hört man keinen Ton mehr.
'im Normalfall ist der Beep-Befehl auch auskommentiert (funktionslos)
Jörn
Lesezeichen