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:
Code:
$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.