Dane
19.03.2006, 19:45
Hallo,
mein ATTiny 13-20 soll einen RC5-Code empfangen und diesen an einen anderen AVR senden, weil mir der GETRC5-Befehl dort zu lange dauern würde.
Nur bleibt er bei GETRC5 stehen. Zur Überprüfung habe ich Toggle Portb.2 geschrieben.
Ich habe die Fusebits auf externen Oszillator gestellt (Quarzoszillator 12Mhz) und auch den Prescaler 8 deaktiviert.
Woran könnte es liegen, dass er dort stehen bleibt?
Mit dem Befehl Serout habe ich noch nicht gearbeitet, bei einem Test hat er aber was an den Rechner gesendet, also müsste wenigstens irgendwas ankommen, wenn er denn so weit kommen würde.
$regfile = "attiny13.dat"
$crystal = 12000000
'Bit 543210
Ddrb = &B000100 '0=Eingang
'Bit 543210
Portb = &B111010 '1=Pull Up
Dim Address As Byte , Command As Byte
Config Rc5 = Pinb.1 'IR-Empfänger sitzt auf PB0
Enable Interrupts
Do
Getrc5(address , Command) 'IR-Empfänger abfragen
Toggle Portb.2
If Address < 255 Then 'abfragen, ob überhaupt ein Signal kommt
Command = Command And &B01111111 'Toggle Bit entfernen
Serout Command , 0 , B , 0 , 9600 , 0 , 8 , 1
End If
Loop
MfG, Dane
mein ATTiny 13-20 soll einen RC5-Code empfangen und diesen an einen anderen AVR senden, weil mir der GETRC5-Befehl dort zu lange dauern würde.
Nur bleibt er bei GETRC5 stehen. Zur Überprüfung habe ich Toggle Portb.2 geschrieben.
Ich habe die Fusebits auf externen Oszillator gestellt (Quarzoszillator 12Mhz) und auch den Prescaler 8 deaktiviert.
Woran könnte es liegen, dass er dort stehen bleibt?
Mit dem Befehl Serout habe ich noch nicht gearbeitet, bei einem Test hat er aber was an den Rechner gesendet, also müsste wenigstens irgendwas ankommen, wenn er denn so weit kommen würde.
$regfile = "attiny13.dat"
$crystal = 12000000
'Bit 543210
Ddrb = &B000100 '0=Eingang
'Bit 543210
Portb = &B111010 '1=Pull Up
Dim Address As Byte , Command As Byte
Config Rc5 = Pinb.1 'IR-Empfänger sitzt auf PB0
Enable Interrupts
Do
Getrc5(address , Command) 'IR-Empfänger abfragen
Toggle Portb.2
If Address < 255 Then 'abfragen, ob überhaupt ein Signal kommt
Command = Command And &B01111111 'Toggle Bit entfernen
Serout Command , 0 , B , 0 , 9600 , 0 , 8 , 1
End If
Loop
MfG, Dane