Einfache IR-Code Übertragung funktioniert nicht
Hallo zusammen,
Ich kämpfe zur Zeit mit den Tücken einer „Infrarot-Kanone“ für Modellflugzeuge (indoor).
Den Aufbau habe ich mir so vorgestellt:
Ein Attiny45 (da klein und leicht), eine IR Diode (LD 274-3) und ein IR Empfänger (TSOP34836), das ganze angeschlossen zwischen RC-Empfänger und Motor-Regler. Optional ein weiterer Anschluss zwischen RC-Empänger und Attiny für den Trigger (zunächst aber ohne Trigger, nur mit „Dauerfeuer“).
Wie soll das ganze funktionieren:
1. Im normalen Flug wird das RC-Throttle-Signal (Gas) durch den Attiny „durchgeschleift“.
2. Die IR-LED „feuert“ ständig. (Optional: Die IR-LED feuert erst, wenn an der Fernsteuerung ein Schalter/Taster betätigt wird).
3. Wird der IR-Empfänger von einem passenden Infrarot-Signal „getroffen“ soll der Motor für eine bestimmte Zeit ausgehen bzw. stottern (unterbrechen des bis dahin durchgeschleiften Gas-Kanals).
Ich habe bis jetzt noch nichts mit IR-Übertragungen gemacht (nur viel gelesen). Das RC5 Protokoll scheidet aber aus, da es viel zu lang ist. Mir schwebt im Moment ein sehr kurzes individuelles Protokoll vor. Meine Gedanken gehen in Richtung „3-Bit-Protokoll“. Ein Start-Bit und 2 Kommand-Bits. Damit sollten 4 verschiedene IR-Befehle übertragbar sein. Mit den unterschiedlichen Befehlen könnte man später mit mehreren Flugmodellen auf ein einzelnes Bodenziel schießen, mit anschließender Trefferauswertung. Auch ein „Team-Deathmatch“ z.B. zwei gegen zwei wäre denkbar, bei dem man sogar in der Software „friendly fire“ ausschließen könnte.
Im folgenden Code habe ich versucht, die IR-Übertragung zu realisieren. Leider klappt das nur mit mäßigem Erfolg. IR-LED und TSOP stehen sich gegenüber. Die Kontroll-LED sollte eigentlich durchgehend leuchten, flackert aber die ganze Zeit. Wird die optische Verbindung zwischen IR-LED und TSOP unterbrochen, geht die Kontroll-LED wie gewünscht aus.
Ich habe es nicht geschafft, eine halbwegs verlässliche Datenübertragung herzustellen.
Bin langsam am verzweifeln und für alle Ideen offen :cry:
mfg
Robert
Hier noch ein paar Infos, wo ich meine Inspiration her habe:
http://www.youtube.com/watch?v=TQp0mS8dtpg
oder einfach nach „20100117 IAC-ASO 52“ suchen.
Ab 1:36 geht’s los mit dem IR-Stuff, ab 2:51 Minuten sieht man „Luftkämpfe“
Meine Modelle werden allerdings etwas größer sein :-)
PS: Wenn ich die Sendepause im Code nicht ausklammere, leuchtet die Kontroll-LED gar nicht.
Code:
'===============================================================================
'IR Kanone V 01
'
'IR-LED an Pin 5 (PB0, OCR0A)
'TSOP34836 an Pin 7 (PB2, INT0)
'
'
'
'
'
'Pin 6 (PB1 Test-LED)
'===============================================================================
$regfile = "attiny45.dat"
$crystal = 8000000 'FuseBit CKDIV8 deaktivieren
$hwstack = 40
$swstack = 40
$framesize = 50
'-------------------------------------------------------------------------------------------------
'Timer konfigurieren
'-------------------------------------------------------------------------------------------------
Tccr1 = &B00000111 'Timer1 als Zeitbasis für Datenempfang starten (Prescale 64) (geht beim Attiny45 nicht mit "Config"!)
'Enable Timer1 (wird erst in der ISR enabled!!!)
On Timer1 Daten_sammeln
Config Timer0 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1 'Timer0 erzeugt 36kHz IR-Trägerfrequenz, Clear Timer setzt Timer bei Erreichen des Comparewertes auf 0 zurueck
Ocr0a = 110
'-------------------------------------------------------------------------------------------------
'Interrupt-Service-Routinen konfigurieren und freigeben
'-------------------------------------------------------------------------------------------------
Config Int0 = Rising 'bei steigende Flanke an PB2/INT0 (Ir_data_in) Int0 auslösen und in die Subroutine springen
Enable Int0
On Int0 Ir_data_start
Enable Interrupts
'-------------------------------------------------------------------------------------------------------------
'Variablen definieren
'-------------------------------------------------------------------------------------------------------------
Dim Ir_befehl As Byte 'es steht einer von 4 möglichen Sendebefehlen zur Verfügung
Dim Level As Byte
Dim Ir_data As Byte 'zusammensetzen des IR Befehl
Dim Ir_data_fertig As Byte 'fertig empfangener IR Befehl
'-------------------------------------------------------------------------------------------------------------
'Ein- und Ausgang festlegen
'-------------------------------------------------------------------------------------------------------------
Ddrb = &B00010011 'PB0, PB1 und PB4 werden Ausgänge, restlicher PortB bleibt Eingang
'======================================================
'Hauptprogramm
'======================================================
Do
Ir_befehl = &B00000101
' |||
' ||Zweites Befehlsbit
' ||
' |Erstes Befehlsbit
' |
' Startbit
'Alternative Befehle:
'Ir_befehl = &B00000100
'Ir_befehl = &B00000110
'Ir_befehl = &B00000111
'Startbit senden (immer 1)
Ddrb.0 = Ir_befehl.2 ' 36 kHz Carrier on
Waitus 500
Ddrb.0 = 0 ' 36 kHz Carrier off
Waitus 500
'Erstes Befehlsbit senden
Ddrb.0 = Ir_befehl.1
Waitus 500
Ddrb.0 = 0
Waitus 500
'Zweites Befehlsbit senden
Ddrb.0 = Ir_befehl.0
Waitus 500
Ddrb.0 = 0
Waitus 500
'(
'Sendepause einlegen
Ddrb.0 = 0
Waitus 2000
')
If Ir_data_fertig = &B00000101 Then 'Test LED soll leuchten, wenn der richtige Code empfangen wurde
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop
End
'-------------------------------------------------------------------------------------------------------------
'ISR IR Daten empfangen
'-------------------------------------------------------------------------------------------------------------
Ir_data_start:
Ir_data = &B00000001
Timer1 = 155 ' nach rund 808 us den Timer Interrupt auslösen
Enable Timer1
Disable Int0 ' weiter Interrupts durch INT0 unterbinden
Return
Daten_sammeln:
Shift Ir_data , Left
Level = Not Pinb.2 'TSOP gibt invertierte Daten aus, deshalb nochmal inventieren
Ir_data = Ir_data + Level 'eben gelesenes Bit zugeben
Timer1 = 131 ' nach rund 1000us den Timer Interrupt auslösen '
If Ir_data < &B00000100 Then
nop
Else
Disable Timer1 'weitere Interrupts durch Timer1 unterbinden
Set Gifr.intf0 'Interruptflag vom INT0 löschen
Enable Int0
Ir_data_fertig = Ir_data
End If
Return
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo zusammen,
Zitat:
Zitat von
Searcher
Abhilfetest: Nach "Timer1 = 155" ein "set tifr.tov1" (vorsorglich anstehendes TOV1 Flag löschen) einfügen?
Du wirst lachen, genau das hatte ich auch schon im Code, allerdings blieb die Kontroll-LED dann aus :-k
Zitat:
Zitat von
oberallgeier
aber das "Dauerfeuer" hast Du ja offenbar schon abgelegt.
Hier habe ich mich vermutlich etwas ungeschickt ausgedrückt. "Dauerfeuer" bezog sich lediglich auf die (noch) nicht vorhandene Möglichkeit, das Senden der IR-LED durch die RC-Fernbedienung (die das Flugmodell mittels Funk steuert) zu beinflussen (wenn ich z.B. 1-2 Minuten einfach so durch die Halle fliege und dann beschließe, durch Umlegen eines Schalters an der RC-Fernbedienung, mit meinem "Bordgeschütz" zu feuern). Es bezog sich nicht auf die vom TSOP geforderten Sendepausen.
Zitat:
Vielleicht könntest Du mal ne Skizze machen ?
Gerne. Im Bild sieht man das Signal, welches die IR-Diode sendet, wenn der Code 101 ausgegeben werden soll. Im Anschluß folgt dann noch eine längere Sendepause, aber selbst ohne diese währe nach meinem Wissen der TSOP nicht überfordert (oder habe ich etwas komplett missverstanden :-k)
Anhang 27323
Zitat:
Zitat von Datenblatt TSOP 348..
... • After each burst which is between 10 cycles and 70 cycles a gap time of at least 14 cycles is necessary. ...
Also, die Sätze habe ich in meinem Datenblatt nicht gefunden, benutze dieses hier:
https://www.it-wns.de/data/datenblatt_0000168_1.pdf
Aber auch dann: Ich habe doch bei meinem Code immer mindestens 18 cycles Pause vor dem nächsten Senden. Daran dürfte es nicht liegen.
Ich bin, wie bereits anfangs erwähnt, nicht total auf "meinen" Code fixiert. Ich nehme auch gern jede andere Möglichkeit der Codegestaltung/Übertragung/Auswertung in Kauf. Es sollen lediglich 4 verschiedene Befehle übertragen werden können und keine Wait-Befehle in einer ISR beinhalten, da ich sonst beim weiteren Ausbau des Codes (RC-Signale einlesen etc) Schwierigkeiten bekomme.
mfg
Robert
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo nochmal,
mit Logisch 1 und 0 , sowie dem Diagramm im Bild meinte ich das, was die IR-LED sendet.
Das mit dem inventierten Signal beim TSOP hab ich gesehen. Deshalb schrieb ich im Programm die erste 1 auch manuell in die Variable "Ir_data"
Code:
Ir_data_start:
Ir_data = &B00000001
'Timer1 = 155 ' nach rund 808 us den Timer Interrupt auslösen
Timer1 = 180 ' nach rund 608 us den Timer Interrupt auslösen
Mit unterschiedlichen Timerwerten versuchte ich dann, die zeitliche Abfrage des TSOP so zu timen, dass er sich sicher in einem definierten Zustand befindet (es geht ja auch Zeit für das Springen in die ISRs verloren). Da ein gesendetes high (logisch 1) beim TSOP dann als low ausgegeben wird, habe ich diese Abfrage mit "Not" wieder inventiert, siehe hier
Hier nochmal mein gedankliche Ablauf, wann was passieren "müsste"
Anhang 27325
Wenn also die IR-LED eine logische 1 sendet, sollte in der Variable "Ir_data" auch eine 1 landen.
Beim Zeichnen des Bildes kam mir allerdings ein Gedanke: Was passiert, wenn der TSOP erst die zweite 1 bemerkt. Dann wäre meine ganze Auswertung im Eimer.
Mann, das "bisschen" IR-Übertragen bringt mich bald ins Grab... :MistPC
mfg
Robert
