Hallo Eisbär,
der Init passiert ganz am Anfang von Deinem Programm. Der Timer-Interrupt macht nur einen Call Dcf77
ThomasCode:... '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







Zitieren

Lesezeichen