Zeitsteuerung+Temperaturmessung

[Projekt 2252]

Hab es mit der Zeit hinbekommen und versuch die LED so zu steuern:

$regfile = "m32def.dat"
$crystal = 16000000


Config Dcf77 = Pind.7 , Timer = 1 , Gosub = Sectic          'DCF-Uhr Routine, lässt sich auch mit einem xMHZ Quarz ohne DCF-Empfänger nutzen
Config Porta.1 = Output


Enable Interrupts


Ddrd = &B00001110                                           'Ausgänge für Zeituhr auf PortD.1-Portd.3


Date$ = "09/04/00"
Time$ = "23:13:55"


Do                                                          'übersichtliche Hauptschleife...
  Gosub Temperaturregeln
  Gosub Tastatur
  Gosub Sonstiges
Loop
End




Sectic:                                                     'wird sekündlich aufgerufen
   Gosub Uhranzeigen
   Gosub Temperaturanzeigen
   If _sec = 0then
      Gosub Schaltuhr
   End If
Return


Schaltuhr:


If Time$ = "23:14:00" Then
Set Porta.1
End If


If Time$ = "23:14:05" Then
Reset Porta.1
End If


Return


Temperaturregeln:
'hier dein Code für die Temperaturregelung rein
Return


Tastatur:
'hier dein Code für die Tastatur / Drehencoder rein
Return


Sonstiges:
'hier dein Code für Anderes rein
Return


Uhranzeigen:
'hier dein Code für die Uhrzeitanzeige rein
Print Time$ ; ""
Return


Temperaturanzeigen:
'hier dein Code für die Temperaturanzeige rein
Return

Sie geht auch um 23:14:00 an aber nicht mehr aus... Was kann das sein ?
Gruß Tjark