Hallo Eisbär,
der Init passiert ganz am Anfang von Deinem Programm. Der Timer-Interrupt macht nur einen Call Dcf77
Code:
...
'Const Startwert = 61 ' für Timer 8-bit
Const Startwert = 40536 ' für Timer 16 bit
...
Declare Sub Dcf77
Declare Sub Dcf77_init
'Declare Sub Dcf77_soft
...
Config Timer4 = Timer , Prescale = 8 ' Timer für 40Hz (25ms) 8-bit
'Config Timer4 = Timer , Prescale = 1024 ' Timer für 40Hz (25ms) 16-bit
Timer4 = Startwert
'On Timer4 Timer_dcf77 ' Überlauf alle 25ms, funktioniert nicht !
On Ovf4 Timer_dcf77 ' Überlauf alle 25ms
...
Beginn: ' Wird angesprungen bei komplettem Reset
Disable Timer4 ' Timer für DCF77 noch disablen
Call Dcf77_init ' DCF77 initialisieren
...
Enable Timer4
...
Timer_dcf77: ' Timer zur DCF77-Decodierung
Timer4 = Startwert
Call Dcf77
Return
Thomas
Lesezeichen