So auf ein neues
Hier die schaltung:
Anhang 32897
Und der endwurf
Anhang 32898
Den code ist hier:
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

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.