Infrarot-Empfänger (RC5-Code)
mit TSOP1736

Demodulator fo: 36 KHz
IR-Diode + Vorverstärker
Spannung: max. 6V
Stromverbrauch: 5 mA
Reichweite: 35m
Wellenlänge: 950nm
Preis: 0,64 € (Reichelt-05)
1,51 € (Conrad-05/06)

Beschaltung:

Auszüge aus dem RC5-Code:

Gerät	Adresse
TV-Empfänger	0
Videotext	2
Videorecorder	5,6
Videocamera	9
Radio	17
Kassettenrecorder	18
CD-Player	20

Befehl	Commando
Ziffern 0-9	0-9
Programm	11
Bereitschaft	12
Stummschaltung	13
Lautstärke +	16
Lautstärke -	17
Pause	48
Rücklauf	50
Vorlauf	52
Start	53
Stop	54
Aufnahme	55

Software:

'**********************************************************
'Compiler : BASCOM-AVR
'Hardware : TSOP1736 an PB.0
' LC-Display
'Chip type : AT90S2313
'**********************************************************

$regfile = "2313def.dat"
$crystal = 3579545
$lib "mcsbyte.lbx"

Config Rc5 = Pinb.0
Enable Interrupts

Config Pinb.4 = Output

Dim Address As Byte
Dim Command As Byte

Lcd "Warte auf RC5..."
Do
  Getrc5(address , Command)
  If Address < 255 Then

    Command = Command And &B10111111
    Locate 2 , 5
    Lcd Address
    Locate 2 , 14
    Lcd Command
    If Address = 1 Then
      If Command = 12 Then
        Toggle Portb.4
      End If
    End if
    Waitms 350
    Else
    Locate 2 , 1
    Lcd "Adr: Cmd: "
  End If
Loop

End

'AT90S2313
'Quarz 3.579MHz
'ergibt kleineren Code beim Compilieren

'TSOP an PB.0
'Interrupts erlauben

'Pinb.4 = Ausgang (evtl. Relais)

'Variablenname und Typ festlegen

'Ausgabe des Textes auf LCD
'Beginn Schleife
'lese Adresse und Kommando von TSOP
'Taste an IR-FB gedrückt ?
' 255 = keine Taste gedrückt
'lösche Toggle-Bit
'LCD-Cursor auf Zeile2, Spalte5
'gebe Adresse auf LCD aus
'LCD-Cursor auf Zeile2, Spalte14
'gebe Kommando auf LCD aus
'TV-Fernbedienung
'wurde Power-Taste an IR-FB gedrückt ?
'schalte Relais um (an oder aus)

'warte 350 Millisekunden
'keine Taste an IR-FB gedrückt ?
'LCD-Cursor auf Zeile2, Spalte1
'Lösche letzte Adresse und Kommando

'zum Beginn der Schleife

zum Download: rc5_empf.bas + Datenblätter

Bezugsquellen:

TSOP1736	Conrad	Bestell-Nr.: 17 10 69-xx	1,51 Euro
TSOP1736	Reichelt	Bestell-Nr.: TSOP 1736	0,64 Euro
SFH506-36	RS	Bestell-Nr.: 193-2453	ca. 1,90 Euro

Hinweis! Ersatztyp für TSOP1736 (Pin- und Daten-Kompatibel) = SFH506/36.
In Verbindung mit IR-Sendediode SFH415 (I_F=50mA) Reichweite ca. 35m möglich.

Infrarot-Empfänger (RC5-Code) mit TSOP1736

Infrarot-Empfänger (RC5-Code)
mit TSOP1736