|
Infrarot-Sender (RC5-Code)
|
Beschaltung:
Optimal wäre der Einsatz einer IR-Sendediode SFH415 ((IF=50mA). Damit sind Reichweiten um ca. 35m möglich.
Auszüge aus dem RC5-Code:
| Gerät | Addresse |
|---|
| 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 : IR-LED an PB.3 (OC1 !!)
'
Taster an PB.0
'
LED an PB.1
'Chip type : AT90S2313
'**********************************************************
|
$regfile = "2313def.dat"
$crystal = 3579545
Ddrb.0 = 0
Portb.0 = 1
Dim Togbit1 As Byte
Dim Togbit2 As Byte
Dim Command As Byte
Dim Address As Byte
Command = 12
Togbit1 = 0
Togbit2 = 32
Address = 5
Do
If Pinb.0 = 0 Then
Portb.1 = 1
Waitms 500
Rc5send Togbit1 , Address , Command
Rc5send Togbit2 , Address , Command
Portb.1 = 0
End If
Loop
End
|
'AT90S2313
'Quarz 3.579MHz
'Pin PB0 ist Eingang
'Pullup vom PB0 ein
'Variablenname und Typ festlegen
'Kommando für "Aus"
'0 or 32 zum Setzen des Toggle-Bits
'0 or 32 zum Setzen des Toggle-Bits
'Adresse für Videorecorder
'Beginn Schleife
'Wenn Taster gedrückt
'Kontroll-Led an
'warte 500 Millisekunden
'sende RC5-Signal
'sende RC5-Signal
'Kontroll-Led aus
'zum Beginn der Schleife
|
Hinweis! Der Ausgang für RC5 ist beim AT90S2313 Pin PB.3 (OC1).
Auf die genaue Angabe der Quarz-Frequenz "$crystal" muss geachtet werden.
Das zweimalige Senden des RC5-Codes, einmal mit Toggle-Bit=0 und einmal mit Toggle-Bit=32 machte sich bei mir erforderlich, da ansonsten keines
meiner Geräte auf das RC5-Signal reagierte.
zum Download: rc5_send.bas + Datenblätter
Bezugsquellen:
| SFH415T |
RS |
950 nm | 50 mW
380 mW | 100 mA
1 A | 1,3 V |
195-675 |
ca. 0,35 Euro |
| SFH415T |
Farnell |
950 nm | 50 mW
380 mW | 100 mA
1 A | 1.3 V |
212-635 |
0,52 Euro |
| LD274 |
Reichelt |
950 nm |
60 mW |
100 mA |
1,35 V |
LD 274 |
0,24 Euro |
| LD274 |
ELV |
950 nm |
60 mW |
100 mA |
1,35 V |
30-062-46 |
0,35 Euro |
| LD274 |
Conrad |
950 nm |
60 mW |
100 mA |
1,35 V |
14 64 98-xx |
0,57 Euro |
| CQW13 |
Conrad |
950 nm |
14 mW |
100 mA |
? V |
18 45 51-xx |
0,56 Euro |
| CQY99 |
Reichelt |
950 nm |
12 mW |
100 mA |
? V |
CQY 99 |
0,18 Euro |
| CQY99 |
Conrad |
950 nm |
12 mW |
100 mA |
? V |
18 45 00-xx |
1,07 Euro |
| SFH409 |
ELV |
950 nm |
6-12 mW
80 mW |
100 mA
1 A |
? V |
30-067-64 |
0,65 Euro |
| SFH409 |
Conrad |
950 nm |
6-12 mW
80 mW |
100 mA
1 A |
? V |
18 37 76-xx |
1,00 Euro |
| LD271 |
Reichelt |
950 nm |
10 mW |
100 mA |
1,35 V |
LD 271 |
0,18 Euro |
| LD271 |
ELV |
950 nm |
10 mW |
100 mA |
1,35 V |
30-062-45 |
0,30 Euro |
| LD271 |
Conrad |
950 nm |
10 mW |
100 mA |
1,35 V |
18 43 65-xx |
0,56 Euro |
|
|
|
