Fehler im Reaktivlicht-Code ?

[Tom R. (torama)]

Hallo, ich habe wohl einen Bug im Code, aber kann ihn nicht richtig 
lokalisieren. Grob baut der Code auf dem BASCOM auf lt. reaktivlicht.de

Die Eule soll nach dem kurzen Anleuchten 7x Blinken und wenns dunkel 
bleibt auch 7x wiederholen. Es funktioniert auch ABER

nach ca. 2 Tagen hängt sich die Eule auf und reagiert nicht mehr und 
jetzt nach 1 Woche funktioniert sie wieder von alleine. Ich vermutete 
einen Überlauf oder so aber wo ?

Bitte kann mal einer checken?

' **********************************************
' *** 
' *** Nachteule
' *** 
' **********************************************

$regfile = "ATtiny13.DAT"
$crystal = 16000                                            'Frequenz des internen Oszillators

Config Portb = &B00011001                                   'Pinb.3,4 und .5 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = &B11100110                                          'Pullups zuschalten, außer für Pinb.3,4 und .5
Stop Adc                                                    'A/D-Wandler abschalten (Strom sparen)
Stop Ac                                                     'Analog-Komparator abschalten (Stromsparwilli)

Wdtcr = &B11010101                                          'Watchdog definieren: 0.5 Sekunden, Interrupt auslösen, kein Reset
Enable Interrupts                                           'Interrupts freigeben

Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim Led_ladezustand As Bit
Dim Hell As Bit
Dim Hell_2 As Byte

Do
 Gosub Led_abfrage

 If Led_ladezustand = 0 Then
  Hell = 1
  If B = 0 Then                                             
    Gosub Blinken                                           'Schon mal erstes Mal Blinken
  End If
 End If

 If Hell = 1 And B < 255 Then
  B = B + 1                                                 'Wenn Merker gesetzt wurde, Zähler für Lichtdauer erhöhen (bis max. 255)
 End If
 If B > 200 Then
  Gosub Abschalten                                          'Tagabschaltung
 End If

 If Led_ladezustand = 1 And Hell = 1 And B < 30 Then        'Wenn es wieder dunkel ist und der Lichtimpuls nur kurz war
  Hell_2 = 0                                                'zweiten Hell-Merker setzen
  For C = 0 To 3                                            'und 5 mal afragen
   Gosub Led_abfrage
   If Led_ladezustand = 0 Then
    Hell_2 = Hell_2 + 1                                     'ob es auch wieder dunkel ist
   End If
  Next C
  If Hell_2 = 0 Then
   Gosub Blinken                                            'erst dann blinken
  End If
  Hell = 0
  B = 0
 End If
 
 If Led_ladezustand = 1 Then                                'Bei Dunkelheit Merker und Zähler für Lichtdauer löschen
  Hell = 0                                                  'damit sich das Programm nicht aufhängt
  B = 0
 End If

Loop

Led_abfrage:
 Reset Watchdog
 Powerdown
 Portb.3 = 0
 Portb.4 = 1                                                'Portb.4 auf +Ub schalten, um die LED zu 'laden'
 Waitus 1                                                   'Ladezeit, kann ggf. noch verkleinert werden
 Config Portb.4 = Input                                     'Portb.4 nun zwecks Abfrage der LED-Ladung auf 'Eingang' schalten
 Portb.4 = 0                                                'Pullup abschalten, sonst geht's nicht!
 Waitms 4000
 Led_ladezustand = Pinb.4                                   'Ladezustand einlesen: '1' -> dunkel, '0' -> hell
 Config Portb.4 = Output                                    'Portb.4 wieder auf Ausgang schalten
 Portb.4 = 0
 Reset Watchdog
 Powerdown
Return

Blinken:
 For A = 1 To 7
  'Portb.3 = 1
  Portb.0 = 1                                               ' 2. Auge mitleuchten
  Reset Watchdog
  Powerdown
  'Portb.3 = 0
  Portb.0 = 0                                               ' 2. Auge mitleuchten
  Reset Watchdog
  Powerdown
 Next A
Return

Abschalten:
  Wdtcr = &B11110001
  Reset Watchdog
  Powerdown
  Wdtcr = &B11010101
Return

End

[Krapao (Gast)]

Ich habe oft beobachtet, dass es mir hilft, wenn ich die Arbeitsweise 
meines Programms meinem Teddy in einfachen Worten erkläre. Wenn der 
Teddy dann die Erzählung mit dem meinem Code vergleicht, entwirrt sich 
meistens das Rätsel. Bei deinem Programm hat mein Teddy als erstes 
gefragt, wie die schlafende Eule sich um das kleine B kümmert.

[Tom R. (torama)]

Hi danke fürs drüberschauen.

Na, die Eule pennt nur eine halbe Sekunde und wacht wieder auf. Wenns 
immer noch hell ist schläft sie weiter.

Und ist es dunkel, dann wird B (was max. 255 groß werden kann) wieder 
auf 0 (Wert) gesetzt.

Haut ja eigentlich auch hin :(

[Krapao (Gast)]

>> Und ist es dunkel, dann wird B (was max. 255 groß werden kann)
>> wieder auf 0 (Wert) gesetzt.

Ist das so? Es sieht für mich wegen "Hell = 1" anders aus:

> If Led_ladezustand = 1 And Hell = 1 And B < 30 Then 'Wenn es wieder dunkel > 
'ist und der
>                                                     'Lichtimpuls nur kurz
>                                                     'war
>   ...
>   B = 0
> End If

Ich würde ein meinem Code die Variablen aussagekräftiger benennen und 
auch bessere Kommentare verwenden, so dass man den Code beim Lesen 
unmittelbar verstehen kann. Das verlängert die Kompilierzeit nicht 
signifikant und bläht den Code im µC garantiert nicht auf.

Ansonsten:
http://geekandpoke.typepad.com/geekandpoke/2012/01/coding-is-an-art.html

[Krapao (Gast)]

Mehr zu Teddybear-Reviews :-)

http://talkaboutquality.wordpress.com/2010/08/30/tell-it-to-your-teddy-bear/
http://sjbdeveloper.blogspot.com/2006/03/teddy-bear-code-reviews.html

[Michael (Gast)]

Ich vermisse die Stack Angaben ...

Da es ein Tiny mit SRAM ist probier mal

$hwstack = 6


Da du Gosub und Interrupts verwendest sollte die Angabe auf keinen Fall 
fehlen!

[Tom R. (torama)]

Danke, aber das hilft mir nicht viel. Evtl. sollte ich das Problem 
woanders mal posten. Der Code ist wie gesagt abgewandelt aus dem 
Backbuch für Reaktivlichter und die Variablen habe ich dann natürlich so 
belassen wie sie heißen.

Der Code funktioniert ja auch nur eben mal so 2 Tage und dann erst 
wieder nach ner Woche.

Da die Helligkeit mit einer LED gemessen wird, war meine Vermutung, dass 
es evtl. bei Temperaturen um 0°C eine Kennlinienverschiebung gibt, aber 
naja...

trotzdem danke

[bingo (Gast)]

Was passiert denn, wenn der Watchdog anspricht und einen Interrupt 
auslöst?

[Tom R. (torama)]

Es passiert nichts, der Prozessor wird nur schlafen gelegt und weiter 
gehts im Code.

If Led_ladezustand = 1 Then                                'Bei Dunkelheit Merker und Zähler für Lichtdauer löschen
  Hell = 0                                                  'damit sich das Programm nicht aufhängt
  B = 0
 End If

evtl. kommt er ja nicht in diese Abfrage rein, weils halt zu hell ist???

[bingo (Gast)]

könnte ein Hardware-Problem sein, ändere mal den Widerstand am Eingang

[torama (Gast)]

Michael schrieb:
> Ich vermisse die Stack Angaben ...
>
> Da es ein Tiny mit SRAM ist probier mal
>
> $hwstack = 6
>
>
> Da du Gosub und Interrupts verwendest sollte die Angabe auf keinen Fall
> fehlen!

Danke für diesen Tipp, Michael. Ich habs mal in den Code aufgenommen und 
bin am Testen.

Mich wunderte nur, das die Eule irgendwann immer mal wieder 
funktioniert. Wenn also der Stack überläuft, sollte der Chip doch 
eigentlich sich fest franzen. Aber wo durch kann er denn wieder 
funktionieren?

[torama (Gast)]

Der Fehler wurde gefunden. Juhuuu. Der Code war in Ordnung. Nur die LED 
die kapazitiv als Lichtsensor fungiert, hat bei etwas zu hocher 
Luft-Feuchtigkeit in der Eule eine nicht vorhandene "Helligkeit" 
vorgetäuscht.
Hört sich komisch an, ist aber so ;-)