Rc5-Sender/-Empfänger in Bascom programmieren

[Searcher]

Hallo

Config Rc5 = Pinb.1                                         'Rc5 konfigurieren
Enable Interrupts                                           'Interrupts erlauben

Config Portd = Output                                       'Konfiguration der
Config Pinc.0 = Input                                       'Out- und
Config Pinc.1 = Input                                       'der Inputports
Config Pinc.2 = Input                                       'Dito
Config Pinc.3 = Input                                       'Dito
Config Pinc.4 = Input                                       'Dito
Config Pinc.5 = Input                                       'Dito
Portd = 0                                                   'Ausschalten von
                                                            'PortD

Dim Address As Byte                                         'Variablen
Dim Command As Byte                                         'dimensionieren
Dim I As Long                                               'Dito
I = 0                                                       'Variablen setzen
Address = 0                                                 'Dito
Command = 0                                                 'Dito

Main:                                                       'Hauptprogramm
Do
Portd = 1
For I = 1 To 100
Getrc5(address , Command)                                   'Auf Rc5 Signal warten
Next I
If Address < 255 Then
   Command = Command And &B10111111                         'Lösche Toggle-Bit
   Portd = 2
   Waitms 100
   If Address = 17 And Command = 16 Then
      Portd = 4
      Waitms 100
   Else
      Portd = 2
      Waitms 100
   End If
   'Waitms 10
Else
   Portd = 8
   Waitms 100
End If

Loop
End

Denke, daß Du das Rote im Empfängerprogramm ersatzlos streichen kannst. Die do-loop sorgt ja dafür, daß getrc5 immer wieder ausgeführt wird. Wird zu Beginn der for-next Schleife ein RC5 Rahmen erkannt, wird address und command entsprchend belegt. Die Schleife wird aber wieder durchlaufen und liegt kein RC5-Rahmen an wird address und command wieder mit 255 überschrieben und die folgende Auswertung nach der for-next "sieht" keinen Empfang.

Gruß
Searcher

[derfagottist]

Okay, ich werde das nochmal ausprobieren. Ich hatte allerdings das auch schon ohne diese Schleife ausprobiert und auch viele andere Varianten...

Aber trotzdem danke für deine schnelle Antwort

[Searcher]

Oh, noch was:
Das

Command = Command And &B10111111

sollte doch zum Togglebit löschen so sein
"Command = Command And &B01111111"
zumindest der Bascom Hilfe nach.

Gruß
Searcher

[derfagottist]

Oh, noch was:
Das

sollte doch zum Togglebit löschen so sein
"Command = Command And &B01111111"
zumindest der Bascom Hilfe nach.

Gruß
Searcher

Ja das soll zum löschen des Togglebits sein. Ich habe selbst leider keine Ahnung wofür das genau sein soll aber in der "Anleitung" zu diesen IR-Sender/Empfänge wars halt dabei...

[Searcher]

Ja das soll zum löschen des Togglebits sein.

Ja, das funktioniert auch. Hab selbst den Teil aus der Bascom Hilfe abgeschrieben und hat auch immer funktioniert. In Deinem Programm kann es durchaus diesen sporadischen Fehlereffekt haben. Nimm das Bitpattern, wie es in der Bascom Hilfe unter GETRC5 zu finden ist.

Gruß
Searcher

[radbruch]

Hallo

Hast du das abgeschnitten oder fehlen die Angaben zum Kontroller und der eingestellten Taktfrequenz in deinen Programmen?

Gruß

mic