RC5 Fernbedinung ATtiny2313 und powerdown Mode Proplem

[Der bastler]

Hallo Searcher und Forum
Also die RC5 Fernbedinung soll ja mal in ein handgeäuse verbaut werden, nur so mal neben bei

Zur Funktion der Fernbedinung:
-----------------------------------------------------------------------------
Wenn ich TASTE1 Drücke soll das programm code senden in POWERDOWN gehen.
beim erneuten drücken der TASTE1 code senden und un POWERDOWN gehen
-----------------------------------------------------------------------------
Wenn ich TASTE2 Drücke soll das programm code senden in POWERDOWN gehen.
beim erneuten drücken der TASTE2 code senden und un POWERDOWN gehen
-----------------------------------------------------------------------------
Wenn ich TASTE3 Drücke soll das programm code senden in POWERDOWN gehen.
beim erneuten drücken der TASTE3 code senden und un POWERDOWN gehen
-----------------------------------------------------------------------------

so hätte ich das gerne, aber leider geht das nicht
hier der code den ich geändert habe:

$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

'Ddrd = &B00000010

Config Portd.6 = Output
Led_gelb Alias Portd.6   'LED GELB - Ob Programm Arbeitet ( Nur zum TESTEN)

Config Portd.2 = Input
Portd.2 = 1
Config Portd.3 = Input
Portd.3 = 1
Config Portd.4 = Input
Portd.4 = 1
Config Portd.5 = Input
Portd.5 = 1
Config Portd.5 = Input
Portd.6 = 1

Config Int0 = Low Level
Enable Interrupts
On Int0 Isr_int0
Disable Int0

Dim Geraet As Byte , Kommando As Byte
Dim Togglebit As Byte
Togglebit = 0

'NEU
Led_gelb = 0
'NEU

Do
  If Pind.3 = 0 Then
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 1         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
    'NEU
    Disable Int0
    'NEU
    Waitms 50
    Gosub Code
  End If
  If Pind.4 = 0 Then
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 2         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
    'NEU
    Disable Int0
    'NEU
    Waitms 50
    Gosub Code
  End If
  If Pind.5 = 0 Then
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 4         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
    'NEU
    Disable Int0
    'NEU
    Waitms 50
    Gosub Code
  End If
  Loop
End

Code:
'Togglebit = 0                         'AUS
'Geraet = 0                            'AUS
'Rc5send Togglebit , Geraet , Kommando 'AUS
Waitms 80
Enable Int0
Led_gelb = 0
Powerdown
Return
End

Isr_int0:
'Disable Int0    'AUS
Return

wenn ich den code zum chip sende alles ok soweit und dann auf die TASTE1 Drücke wird nicht mal der code gesendet und (led_gelb) geht an und bleibt an nichts geht mehr, auser neu programieren....
noch was zur schaltung, der abblokkodensator ist im IC-Halterrung verbaut und der kondensator ja der fehlt wahr ja auf schnell gemacht.....

Soweit erst mal danke und Lieben Gruß
T. Sch.

[Searcher]

Hallo Bastler,
ich habe im Code ein paar Stellen farbig markiert:

$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

 'Ddrd = &B00000010  'Würde PORTD.1 auf Output schalten. Ich würde die komplette Zeile rauslöschen

Config Portd.6 = Output
Led_gelb Alias Portd.6   'LED GELB - Ob Programm Arbeitet ( Nur zum TESTEN)

Portd.1 = 1   'Pullup auf portd.1, Portds sind ist defaultmäßig nach reset sowieso auf Input.
Config Portd.2 = Input
Portd.2 = 1
Config Portd.3 = Input
Portd.3 = 1
Config Portd.4 = Input
Portd.4 = 1
Config Portd.5 = Input
Portd.5 = 1
Config Portd.5 = Input  'ist doppelt und kann entfallen
Portd.6 = 1  'Einschalten von LED_gelb

...dann auf die TASTE1 Drücke wird nicht mal der code gesendet und (led_gelb) geht an und bleibt an nichts geht mehr, auser neu programieren....

Wo ist TASTE1 angeschlossen? Bei PORTD.1 fehlt Aktivierung von Pullup (oben in grün hinzugefügt)
Portd.5 ist sowieso Input und wird darüber hinaus auch zwei Mal als Input konfiguriert.

Fuses richtig gesetzt? Insbesondere CKDIV8 für 8MHz Systemtakt.

Das DISABLE INT0 würde ich direkt nach dem IF PIN Befehl einfügen. Das Verhalten kenne ich auch nicht genau und kann ich im Augenblick auch nicht testen.

Sonst fällt mir im Augenblick nichts Neues ein  

Gruß
Searcher

[Der bastler]

PonyPro2000 Fuse einstellung
 

Nachreichen...

[Searcher]

PonyPro2000 Fuse einstellung

Die Fuses sind richtig.
Benutzt Du nicht die Bascom IDE zum Fuses setzen/lesen?


Hast Du mal ausprobiert, den Interrupt sofort nach Abfrage der Tasten zu disablen, so wie unten angedeutet?

Durch den Tastendruck wird über den INT0 der µC aus dem powerdown herausgeholt.
Wird der Interrupt nicht sofort disabled, könnte durch den Tastendruck, den man ja nicht innerhalb von µs oder wenigen Millisekunden lösen kann, ein weiterer bzw viele weitere INT0 erkannt werden. Die ISR würde andauernd angesprungen werden, führt zwar keine Kommados aus aber nimmt Rechenzeit weg. Weitere Konsequenzen traue ich mir nicht auszumahlen ...  
Möglicherweise müßte man das Konzept des Programms überarbeiten oder auch mal testen ob man ohne ISR auskommt.

If Pind.3 = 0 Then
    Disable Int0
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 1         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
   'NEU
    ' Disable Int0
    'NEU
    Waitms 50
    Gosub Code
End If

Gruß
Searcher