Bascom RC5 mit 89c2051

[NormBot]

Hallo ich suche vergeblich wie ich im Bascom ein RC5 Signal auslesen kann alle Codes die ich finde bringen mir abhängig vom Quarz die Meldung

Address 21 comand 1

oder

Address 40 comand 1
Address 41 comand 1

hab schon versucht am Code zu basteln komm leider nicht drauf

Arbeite mit Philips FBs die ansich RC5 sein sollten !!!!!

habe insgesammt 5 FBs da die alle auch am TSOP reagieren (mit Oszi signal da)

zum Aufbau habe einen 89c2051 an Pin3.2 beschaltet (int0) mit dem TSOP signal !!

am Pin 3.1 hab ich ne LED über nen BC547 hängen die ich beim Empfang mit ansteuer (die Blinkt auch, also irgendwas kommt an)

wäre für HILFE dankbar find hier fast nur AVR Codes

[pebisoft]

hallo, im beispiel vom bascom für rc5 "getrc" können sie die adressen abfragen.
einfach die "if-then" schleife weglassen , dann "address" und "command"
auf einem display ausgeben oder seriell zum pc zur ausgabe und schon haben sie raus ob die fernbedienung anspricht oder nicht.
mfg pebisoft

[RCO]

Das der TSOP reagiert heißt ja erstmal garnix. Versuch doch einfach mal von einem Controller RC5-Befahle an den anderen zu senden, dann kannst du sicher gehen, dass es RC% ist, und weißt, was rauskommen müsste.

MFg Moritz

[schnuppel]

Hallo,


Hallo ich suche vergeblich wie ich im Bascom ein RC5 Signal auslesen kann alle Codes die ich finde bringen mir abhängig vom Quarz die Meldung

Arbeite mit Philips FBs die ansich RC5 sein sollten !!!!!
habe insgesammt 5 FBs da die alle auch am TSOP reagieren (mit Oszi signal da)


ich hänge mal was ran, ist zwar schon Jahre her, hat aber bei mir geklappt.
Ist nur ne Anpassung der Sample Datei, vielleicht hilft es ja.



'Test ein IR Signal von Fernbedienung zu empfangen
'und an die 8 Bit I/O Karte auszugeben, Relais schalten

'Empfänger an Pin 3.2
'9600 Baud
Config I2cdelay = 1

Dim New As Bit
Dim Command As Byte , Subaddress As Byte
Dim Adresse As Byte
Dim Wert As Byte

Adresse = 112 'Adresse des PCF 8574A

Reset Tcon.0 'triggered by rising edge

On Int0 Receiverc5
Enable Int0
Enable Interrupts
Do
If New = 1 Then 'received new code
Disable Int0
Print Command ; " " ; Subaddress
If Command = 0 Then Wert = 255
If Command = 1 Then Wert = 254
If Command = 2 Then Wert = 253
If Command = 3 Then Wert = 251
If Command = 4 Then Wert = 247
If Command = 5 Then Wert = 239
If Command = 6 Then Wert = 223
If Command = 7 Then Wert = 191
If Command = 8 Then Wert = 127

I2csend Adresse , Wert

New = 0 'reset new bit
Enable Int0
End If
Loop



Receiverc5: 'interrupt routine
Getrc5(subaddress , Command)
New = 1 'set flag
Return


Aber ich kann mich erinnern, daß von wasweißichdreitausend FB nur eine wirklich RC5 hatte!

mfG schnuppel