sleep modus oder ähnliches

[xxrider]

hi,

für einen garagentorantrieb habe ich eine code-Schaltung mittels 2 Tastern
an atmega32 gemacht.

das programm stoppt mit "wait until pind.0=0" bis die richtige
Eingabe(folge) an den Tastern getätigt wird. Es funktioniert auch soweit.

Doch nach längerer wait-Zeit (denke so >10 stunden) funktioniert es bei
Eingabe der richtigen Kombination nicht mehr!

Nach reset (kurz spannungszufuhr unterbrechen) geht's wieder.

Gibt es bei dem Controller vielleicht so eine Art (automatischen)
Sleepmodus, oder woran könnte das liegen?

[for_ro]

Was ist denn "Wait Until ..."?
Ich kenne höchstens "Loop Until ..", oder ist das etwas Neues?

Gruß Rolf

[xxrider]

na klar, hast vollkommen recht ich meinte auch "loop until..."

Gruß
Holger

[MeckPommER]

Poste einfach mal den Code, dann kann man mal schauen.

Ist da irgendwo eine Variable, die überlaufen kann? Geht dem µC nach 10 Stunden der Saft aus? Für Fehler gibts halt immer mehr Möglichkeiten, als einem lieb ist ;-)

Gruß MeckPommER

[xxrider]

Config Timer0 = Timer , Prescale = 256 'Konfiguriere Timer0
'beim Testboard Prescale=1024
On Timer0 Interr 'verzweige Bei Timer0 überlauf Abbruch2
Enable Interrupts
Enable Timer0
Stop Timer0

A = 30
B = 1


Program:

Cls
Locate 1 , 1
Lcd "Reset"
Waitms 200
Cls

Do
Loop Until Pina.0 = 0 Or Pina.2 = 0
If Pina.2 = 0 Then Goto Abbruch

Waitms 30

Do
Loop Until Pina.0 = 1

B = 1

Start Timer0
'anschalten
Do
Loop Until Pina.2 = 0 Or Pina.0 = 0
If Pina.0 = 0 Then
Goto Abbruch
Else
Waitms 30

Do
Loop Until Pina.2 = 1
Waitms 30

Do
Loop Until Pina.2 = 0 Or Pina.0 = 0
If Pina.0 = 0 Then
Goto Abbruch
Else
Waitms 30
Do
Loop Until Pina.2 = 1
Waitms 30
Do
Loop Until Pina.2 = 0 Or Pina.0 = 0
If Pina.2 = 0 Then
Goto Abbruch
Else
Waitms 30
Do
Loop Until Pina.0 = 1
Waitms 30
Do
Loop Until Pina.2 = 0 Or Pina.0 = 0
If Pina.0 = 0 Then
Goto Abbruch
Else
Waitms 30
Do
Loop Until Pina.2 = 1
If B > 180 Then
Goto Abbruch
Else
Waitms 30
End If
A = 60
Portd.4 = 1
Portb.0 = 1

Waitms 800
Portd.4 = 0
Portb.0 = 0

A = 30

End If
End If
End If
End If

Goto Program


Abbruch:

Stop Timer0
B = 1
Portd.3 = 0

Locate 1 , 1
Lcd "Fehler:"
Waitms 500
Locate 2 , 1
Lcd "Wartezeit"
Wait A
A = A + 30
If A >= 70 Then
Cls
Locate 1 , 1
Lcd "Code falsch"
Portb.1 = 1
Stop
Else
Goto Program

End If


Interr:
B = B + 1
Return

End

das is er