Bascom RC5 mit 89c2051

[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