Bascom RC5 mit 89c2051

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

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

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

Hallo,

Zitat:

---

Zitat von 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

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.

Code:

---

'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