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
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 = 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
![Klicke auf die Grafik für eine größere Ansicht
Name: rc5 fernbedienung - Endwurf.PNG
Hits: 11
Größe: 27,6 KB
ID: 32875](https://www.roboternetz.de/community/attachment.php?s=412778f7ff83ccbb2d76b7d43068a86c&attachmentid=32875&d=1505677803&thumb=1)
![Klicke auf die Grafik für eine größere Ansicht
Name: rc5 fernbedienung - Schaltung.jpg
Hits: 24
Größe: 31,0 KB
ID: 32876](https://www.roboternetz.de/community/attachment.php?s=412778f7ff83ccbb2d76b7d43068a86c&attachmentid=32876&d=1505677804&thumb=1)
Danke T Sch.
Lesezeichen