Programme zum Download » RC5 Code Empfänger ( BASCOM )

Sie können sich hier anmelden

Dieses Thema hat 5 Antworten
und wurde 6.737 mal aufgerufen

Programme zum Download

Offline

Admin

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
 

Offline

#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

Offline

Admin

#3 RE: RC5 Code Empfänger ( BASCOM )

Zitat · Antworten

Tolle Idee ! Vielen Dank !

Offline

#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

Offline

#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:
Aufgrund eingeschränkter Benutzerrechte werden nur die Namen der Dateianhänge angezeigt Jetzt anmelden! rc5-Code-Tester-tiny24.zip

Angefügte Bilder:
Aufgrund eingeschränkter Benutzerrechte werden nur die Namen der Dateianhänge angezeigt Jetzt anmelden! RC5-Code-Tester.JPG

Offline

#6 RE: RC5 Code Empfänger ( BASCOM )

Zitat · Antworten

Erst mal Danke! Mfg. Christian

«« Belebtes Haus....

Quadroblitztiny »»

Sprung

Bitte geben Sie einen Grund für die Verwarnung an