Watchdog läst sich nicht Stopen

[BASCOUSER (Gast)]

Hallo ich habe ein kleines Problem mit meinen Code

 '*******************************************************************************
'***                    Aussenlichtsteuerung V1.2                            ***
'*******************************************************************************

' Portd.3 = Output Led Bewegung
' Portb.3 = Output PWM Wandlampe
' Portb.4 = Output PWM Deckenlampe
' Portb.1 = Input Eingang Bewegungsmelder
' Portb.0 = Input Eingang taster
'
' a                 = Lampen gehen An Verzögerungszeit leuft ab
' s                 = lampen gehen Aus ohne Verzögerungszeit
' m                 = Menu wird angezeit
'
' (1)  Speed         = Rampengeschwindigkeit fürs PWM
' (2)  WandAn        = Maximalhelligkeit für die Wandlampen
' (3)  DeckeAn       = MaximalHelligkeit für die Deckenpampe
' (4)  Verzoegerung  = Ausschaltzeit bis zum StandBy
' (5)  StanbBy       = StandBy Wert
' (10) EXIT          = Ausgang Menu

'*******************************************************************************
'***                                                                         ***
'*******************************************************************************

' Auswahl Chip
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 9600
$eeprom

Config Watchdog = 2048


'PWM und I/O Einstellen
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Set Tccr0a.0
Set Tccr0a.1
Config Portb.3 = Output                                     ' PWM Wandlampe
Config Portb.4 = Output                                ' PWM Deckenlampe
Config Portd.3 = Output                                   ' Bewegungsled
Config Portb.1 = Input                           ' Eingang Bewegungsmelder
Config Portb.0 = Input                                  ' Eingang taster

' Variabele Deklariren
Dim A As Byte
Dim Daten As String * 20                                 ' RS232 Speicher
Dim Wandan As Byte                            ' Max Hochdimm für Wandlampe
Dim Deckean As Byte                          ' Max Hochdimm für Deckenlampe
Dim Standby As Byte                         ' Standby Dimmwer für Wandlampe
Dim Zeit as single                                                                                      ' Arbeitszeit
Dim Verzögerung As Word                        ' Zeit bis zum Runterdimmen
Dim Resetzeit As Word
Dim Geschwindigkeit As Byte                          ' PWM Rampe
Dim Lichtan As Bit                                          ' Arbeitsmerker nach einer Bewegung o. Tasterdruck
Dim Wand As Byte                                    '  PWM Abbeitswert
Dim W As Byte                                          ' PWM Abbeitswert
Dim Decke As Byte                                       ' PWM Abbeitswert
Dim D As Byte                                           ' PWM Abbeitswert
Dim Menu As Byte                                            ' Menumerker
Dim M As Byte                                               ' Menuauswahl

' Lese EEPROM
Readeeprom Geschwindigkeit , 1
Readeeprom Wandan , 10
Readeeprom Deckean , 20
Readeeprom Verzögerung , 30
Readeeprom Standby , 40

' Wandlampe in StandBy Hochdimmen
For Wand = W To Standby
Compare1b = Wand
Waitms Geschwindigkeit
Next Wand
W = Standby

Zeit = 0
Start Watchdog

Do
Reset Watchdog
Waitms 10                                        ' Zykluszeit Verlängern

If Pinb.1 = 1 Or Pinb.0 = 1 Then                    ' Eingänge abfragen
    Set Lichtan
End If

If Pinb.1 = 1 Or Pinb.0 = 1 Then                    ' BewegungsLed Schalten
    Portd.3 = 1
    Else
    Portd.3 = 0
End If

If Pinb.1 = 1 Or Pinb.0 = 1 And Lichtan = 1 Then      ' Zeit Zurücksetzen
   Zeit = 0
End If

If Lichtan = 1 Then                                ' Start Zeitablauf
   Incr Zeit
End If

If Lichtan = 1 Then                           ' Wandlampe Hochdimmen

   For Wand = W To Wandan
   Compare1b = Wand
   Waitms Geschwindigkeit
      Reset Watchdog
   Next Wand
   W = Wandan


   For Decke = D To Deckean            'Deckenlampe Hochdimmen
   Compare1a = Decke
   Waitms Geschwindigkeit
      Reset Watchdog
   Next Decke
   D = Deckean
   End If

If Zeit = Verzögerung Then           ' Vergleich Zeit mit der Verzögerung

   Reset Lichtan

   For Decke = D To 0 Step -1               ' Deckenlampe Runterdimmen
   Compare1a = Decke
   Waitms Geschwindigkeit
      Reset Watchdog
   Next Decke
   D = 0


   For Wand = W To Standby Step -1    ' Wandlampe auf StandBy Runterdimmen
   Compare1b = Wand
   Waitms Geschwindigkeit
      Reset Watchdog
   Next Wand
   W = Standby
   Zeit = 0
End If

Print Zeit

A = Ischarwaiting()

If A = 1 Then
   A = Waitkey()
   Print A
End If

If A = 97 Then                  ' RS 232 Befehl für Lampen einschalten
   Set Lichtan
   A = 0
End If

If A = 115 Then                       ' RS 232 Befehl für Lampen ausschalten
   Resetzeit = Verzögerung - 2
   Zeit = Resetzeit
   Print Zeit
   A = 0
End If

If A = 109 Then                  ' RS 232 Befehl für Menu
   A = 0
'   Stop Watchdog
   Set Menu
End If

Daten = " "

If Menu = 1 Then
' Reset Watchdog
 Stop Watchdog
   Print Geschwindigkeit
   Print Wandan
   Print Deckean
   Print Verzögerung
   Print Standby
Stop Watchdog
   Input "" , M
Stop Watchdog
      Select Case M
   Case 1 :                              ' Änderung Geschwindigkeit
        Readeeprom Geschwindigkeit , 1
        Input "W " , Geschwindigkeit
        Writeeeprom Geschwindigkeit , 1

   Case 2 :
        Readeeprom Wandan , 10        ' Änderung Maxwert Wandlamppe
        Input "W " , Wandan
        Writeeeprom Wandan , 10

   Case 3 :
        Readeeprom Deckean , 20         ' Änderung Maxwert Deckenlampe
        Input "W " , Deckean
        Writeeeprom Deckean , 20

   Case 4 :
        Readeeprom Verzögerung , 30      ' Änderung Verzögerungszeit
        Input "W " , Verzögerung
        Writeeeprom Verzögerung , 30

   Case 5 :
        Readeeprom Standby , 40   ' Änderung Wandlampe StandBy Wert
        Input "W : " , Standby
        Writeeeprom Standby , 40

   Case 10 :                         ' Menu Ausgang
        Menu = 0
        End Select


End If
Loop                                                     'end program

so bald ich die taste m im Terminal drücke löst der Watchdog nach 2 sec 
den Reset aus. wobei ich den Gestopt habe. Ich weiss überhaupt nicht 
mehr weiter.

Ich würde mich sehr freuen auf Hilfe von euch.

mfg

[Andreas K. (derandi)]

Bei manchen AVR`s kann man in den Fuses einstellen, das der Watchdog 
immer an ist. Da schon nachgesehen?

[BASCOUSER (Gast)]

Jup.. daran liegt es auch nicht!!

[Lehrmann M. (ubimbo)]

BASCOUSER schrieb:
> Jup.. daran liegt es auch nicht!!

Da bin ich andere Meinung - also Fuses posten!

[BASCOUSER (Gast)]

Okay Hier .....

[Weingut P. (weinbauer)]

schau Dir mal die Zeile genau an:

'   Stop Watchdog

Da steht vorne ein " ' ", dadurch ist die Zeile auskommentiert,
der Stop watchdog wird nicht mit kompiliert ;o)

[BASCOUSER (Gast)]

Fhutdhb Ufzjjuz schrieb:
> schau Dir mal die Zeile genau an:
>
> '   Stop Watchdog
>
> Da steht vorne ein " ' ", dadurch ist die Zeile auskommentiert,
> der Stop watchdog wird nicht mit kompiliert ;o)

BASCOUSER schrieb:
> If Menu = 1 Then
> ' Reset Watchdog
>  Stop Watchdog
>    Print Geschwindigkeit
>    Print Wandan
>    Print Deckean
>    Print Verzögerung
>    Print Standby
> Stop Watchdog
>    Input "" , M
> Stop Watchdog
>       Select Case M
>    Case 1 :

BASCOUSER schrieb:
> If A = 109 Then                  ' RS 232 Befehl für Menu
>    A = 0
> '   Stop Watchdog
>    Set Menu
> End If

da hast du recht aber ich habe den schon mehr als einmal gestopt.
Bitte das nächste mal den ganzen code lesen !!! :-)

Mfg

[Timm T. (Gast)]

Poste mal das ASM-Listing, was der Compiler erzeugt. Bei einigen AVR 
muss zum Abschalten des WD eine spezielle Sequenz eingehalten werden.

[peterfido (Gast)]

Wozu so oft den Watchdog abschalten? Einfach testen mit 
ischarwaiting()=1, ob überhaupt ein Zeichen angekommen ist. Wenn ja, 
dann auswerten. Schleifen mit vielen Durchläufen bekommen zwischendurch 
ein Reset Watchdog. Schaltest Du den Watchdog aus, hält input das ganze 
Programm auf. Aber genau da wäre es doch von Vorteil, wenn der Wachhund 
aufpasst, falls keine Daten kommen.

[spess53 (Gast)]

HI

>Wozu so oft den Watchdog abschalten?

Wozu überhaupt einschalten?

MfG Spess

[Peter D. (peda)]

Das MCUSR löschen.


Peter