Sie sind vermutlich noch nicht im Forum angemeldet - Klicken Sie hier um sich kostenlos anzumelden Impressum 
Sie können sich hier anmelden
Dieses Thema hat 5 Antworten
und wurde 5.288 mal aufgerufen
 Programme zum Download
Sven Löffler Offline

Admin


Beiträge: 3.376

16.10.2012 03:16
RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Hallo zusammen,

da ich heute Nacht irgendwie nicht schlafen kann, habe ich mich nochmal an den Rechner gesetzt und einen ganz einfachen RC5 Code Empfänger gebastelt. Dieser Empfänger bietet die Möglichkeit, 8 Kanäle zu schalten. Controller ist ein Tiny2313. Der PD0 wird als Eingang für den IR Empfänger Benutzt. Mein IR Empfänger ist aus der Bastelkiste. Könnte ein 36 oder 38 KHz ( TSOP 1736 oder 1738 ) Empfänger sein. Wichtig ist, dass zwischen VCC und GND ein Kondensator ~ 10 µF kommt. Als Widerstabd habe ich einen 20R Wiederstand davor - bei 3,7 V. Die PB´s 0 - 7 sind die Schaltausgänge, welche mittels den Tasten 1 - 8 geschaltet werden. Die Ausgänge werden einfach nur getoggelt. Das heißt wird eine Taste betätigt, schaltet sich die Funktion ein. Wird sie erneut betätigt, schaltet sie die Funktion wieder aus. Da der RC5 Code recht schnell ist, gab es manchmal Fehlfunktionen ... Einen Tick zu lange gedrückt, und die LED war sofort wieder aus. Daher habe ich eine kleine Sicherheit von 500 Millisekunden eingebaut. Das macht sich bemerkbar. Nun funktioniert es, zumindest bei mir, einfandfrei.

Der Bauaufwand ist wirklich super gering. Würde man an die Ausgänge noch Transistoren hängen, könnte man auch größere Lasten schalten. Vielleicht ist das ja eine kleine Möglichkeit, auf euren Modulen irgendwelche Sachen zu schalten. Oder bei einem Anhänger irgendwelche Sonderfunktionen. Wie auch immer. Hoffe ihr habt Spaß mit dem programm. Ihr könnte es verändern wie ihr wollt. Wäre schön, wenn ihr es hier auch posten würdet.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
'******************** RC5 Code Fernbedienung für 8 Kanäle*******************************
'******************** Sven Löffler 16.10.2010 *******************************
 
$crystal = 4000000
$regfile = "attiny2313.dat"
 
Config Rc5 = Pind.0 ' Eingang Sensor
Config Portb = Output ' PortB als Ausgang
 

Enable Interrupts ' Interrupts zulassen
 
Portb = 1 ' PortB auf High
 

Dim Addr As Byte 'Variablen festlegen
Dim Comm As Byte
 

A1 Alias Portb.0 ' Port Pins Definieren
A2 Alias Portb.1
A3 Alias Portb.2
A4 Alias Portb.3
A5 Alias Portb.4
A6 Alias Portb.5
A7 Alias Portb.6
A8 Alias Portb.7
 
Do 'Rc5 Empfang starten
Getrc5(addr , Comm)
If Addr <> 255 Then
Reset Comm.7
 
Select Case Comm
 
Case 1 : Toggle A1 ' Wird 1 gedrückt, schalte Ausgang 1
Waitms 500 ' Sicherheit zum Schalten wegen toggle Befehl
Case 2 : Toggle A2
Waitms 500
Case 3 : Toggle A3
Waitms 500
Case 4 : Toggle A4
Waitms 500
Case 5 : Toggle A5
Waitms 500
Case 6 : Toggle A6
Waitms 500
Case 7 : Toggle A7
Waitms 500
Case 8 : Toggle A8
Waitms 500
 
End Select
 

 
End If
 
Loop
 
End
 

xenton Offline




Beiträge: 677

17.10.2012 11:41
#2 RE: RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Moin Sven,
dann stelle ich mal meinen, schon vor einiger Zeit geschriebenen, RC5-Code Tester dazu.
Dieser stellt die empfangenen RC5-Adressen und Codes auf einem LCD-Display dar.
Ist ganz nützlich, wenn man wissen will, was aus der Fernbedienung so 'rauskommt.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
'-----------------------------------------------------------------------------------------
'RC5-Code-Tester
'-----------------------------------------------------------------------------------------
 
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx" 'use byte library for smaller code
 
'Definition des LCD-Displays und der Belegung
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Rc5 = Pind.2
 
Enable Interrupts
 
'Variablendeklaration
Dim Address As Byte , Command As Byte
 
Cls 'Display löschen
Cursor Off 'Cursor unsichtbar
 
'statische Displayanzeige
Locate 1 , 3
Lcd "RC5-Code Tester"
Locate 3 , 1
Lcd "Adresse:"
Locate 4 , 1
Lcd "Befehl:"
Locate 3 , 15
Lcd Chr(20) ; Chr(20) ; Chr(20) 'Leerzeichen als Platzhalter für Werte
Locate 4 , 15
Lcd Chr(20) ; Chr(20) ; Chr(20)
 
Do
Getrc5(address , Command) 'IR-Kommando einlesen
Command = Command And &B01111111 'Toggle-Bit ausblenden
If Address = 255 Then
Locate 3 , 15
Lcd Chr(20) ; Chr(20) ; Chr(20)
Else
Locate 3 , 15
Lcd Address
End If
If Command = 127 Then
Locate 4 , 15
Lcd Chr(20) ; Chr(20) ; Chr(20)
Else
Locate 4 , 15
Lcd Command
End If
Loop
End
 



Gruß, Martin

>>> Hilfe! Mein Ball ist umgefallen! <<<

http://www.microtruckracing.de - http://mikromodellbau.voll-der-hammer.de

Sven Löffler Offline

Admin


Beiträge: 3.376

17.10.2012 19:48
#3 RE: RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Tolle Idee ! Vielen Dank !

blaulicht Offline




Beiträge: 117

02.01.2015 22:25
#4 RE: RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Hallo
Martin hast du ein Schaltplan für den RC 5 tester?
Und welch ein display hast du benutzt?

Mfg. Christian

xenton Offline




Beiträge: 677

04.01.2015 14:08
#5 RE: RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Hi Christian,
ich habe mal alle Daten in ein Zip-File gepackt. Das sind die Layoutdaten aus Target3001 und der Schaltplan nochmal extra als .pdf sowie eine leicht geänderte Version des Bascom Codes, da ich auf einen Tiny24 gewechselt habe.
Das Display ist, glaube ich, von Pollin.
Wenn Interesse besteht: ich habe hier noch zwei geätzte Platinen liegen.

Gruß
Martin

>>> Hilfe! Mein Ball ist umgefallen! <<<

http://www.mikro-rc.de - http://www.microtruckracing.de

Dateianlage:
rc5-Code-Tester-tiny24.zip
Angefügte Bilder:
RC5-Code-Tester.JPG  
blaulicht Offline




Beiträge: 117

04.01.2015 17:35
#6 RE: RC5 Code Empfänger ( BASCOM ) Zitat · antworten

Erst mal Danke!

Mfg. Christian

 Sprung  

Xobor Forum Software von Xobor
Einfach ein eigenes Forum erstellen