RC5 Fernbedinung ATtiny2313 und powerdown Mode Proplem

[Der bastler]

Hallo Forum Gemeinde und Bastler

Ich wollte gern eine RC5-FGernbedinung Bauen 4Tasten und dann in den schlaf modus gehen, aber irgendwie haut mein code nicht hin
Bitte um Rat und Tipps

 $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 = 0
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

Do
  If Pind.3 = 0 Then
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 1         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
    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
    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
    Waitms 50
    Gosub Code
  End If
  Loop
End

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

Isr_int0:
Disable Int0
Return

Schaltung wird nachgereicht
Vielen Dank und einen schönen Abend Noch
Gruß T Sch.

- - - Aktualisiert - - -

Hier die bilder und schaltung



Danke T Sch.

[Searcher]

Hallo,
Als erstes fällt mir auf, daß Du Deinem Schaltplan nach einen NPN Transistor als Treiber für die IR-Sendediode an PB3 (OC1A) verwendest (Wie hoch ist der Wert des Basisvorwiderstandes?). Schau mal in der Bascom Hilfe zu RC5SEND. Dort wird ein PNP Transistor verwendet. In Deinem Setup wird deshalb das IR-Signal invertiert gegenüber dem richtigen RC5 Signal ausgegeben.

aber irgendwie haut mein code nicht hin

... hört sich an wie "geht nicht" und ist keine besonders gute Fehlerbeschreibug

Gruß
Searcher

[Der bastler]

Hallo forum und gemeinde

Mit den Transistor wahr ein fehler soory, das programm geht in Powerdown und kann danach keine taste drücken?
Verleicht die taster falsch angeschlossen oder in programm?
Danke
Gruß T Sch.

[Searcher]

Hallo,
funktioniert den die Fernbedienung grundsätzlich?
Verstehe ich das richtig, daß nach Nutzung der Fernbedienung, also Einschalten eines Gerätes per FB, die FB in Powerdown geht und sich dann aber nicht mehr aufwecken läßt?
Das Aufwecken soll dann durch Drücken einer der Tasten zum Einschalten eines Gerätes geschehen?

Gruß
Searcher

[Searcher]

Hallo Bastler,
ich habe mir das Programm nochmal angeschaut. Es sollte alles funktionieren wenn die richtige Treiberschaltung für die IR-LED nach der Bascom Hilfe verwendet wird.

Allerdings muß an den INT0 (PD2) noch ein Pullup Widerstand angebracht werden oder der interne Pullup mit PORTD.2 = 1 eingeschaltet werden. Sonst floatet der Eingang PD2, hat also keinen definierten Pegel wenn keine Taste gedrückt ist.

Die Funktion von Led_gelb ist mir nicht klar. Sie wird über PIND.3 oder PIND.4 eingeschaltet aber im weiteren Programm nicht mehr ausgeschaltet. Der Powerdown schaltet sie auch nicht ab, da in dem Zustand nur der Oszillator gestoppt wird aber die Portzustände nicht geändert werden. Sie bleibt also immer eingeschaltet auch während des Powerdowns, wenn sie irgendwann einmal eingeschaltet wurde!

Gruß
Searcher

[Der bastler]

So auf ein neues
Hier die schaltung:
Anhang 32897
Und der endwurf
Anhang 32898
Den code ist hier:

$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

Do
  If Pind.3 = 0 Then
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 1         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
    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
    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
    Waitms 50
    Gosub Code
  End If
  Loop
End

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

Isr_int0:
Disable Int0
Return

wenn ich unten den powerdown aktivere geht es nur einmal, warum? Bitte um Rat Danke
Gruß T Sch.