Hi Sven,

den Ursprung des Programms erkenne ich, damit hab ich vor gut einem Jahr auch angefangen !!!
Paar Tipps hab ich für Dich:

-Gewöhn Dir das mit den Wait-Befehlen ab. Die Main-Schleife wird dadurch unnötig lang, das ganze Programm wird sehr träge, die Interrupts unterbrechen und die Zeiten werden dadurch ungenau. Sowas macht man mit einem Zähler, der in einem eigenen Timer raufgezählt wird. In der Main-Schleife wird der aktuelle Zählerstand ausgewertet und die Aktionen ausgeführt.
Versuchs mal, wenn Du Hilfe brauchst ...

- Diese Code-Zeile in der "RC-Read"-Routine ist sehr fehleranfällig:

If Reading = 0 Then
 

Probleme treten auf, wenn der µC genau in der Phase gestartet wird, wenn das Signal vom Empfänger kommt. Dann ist nämlich das Bit "Reading" noch 0 wenn die fallende Flanke des Signals erkannt wird, folglich wird der falsche Zweig der If-Abfrage abgearbeitet. Besser wäre:

If PinB.1 = 0 Then
 

- die Auswertung der Impulslängen sieht irgendwie bischen schräg aus:

If Rc_value > 113 Then   
  'Mittelstellung
  Call Rkl
Else
  Portb.4 = 0
End If
If Rc_value > 85 Then
  'Vollausschlag
  Portb.3 = 0
Else
  Call Blitz
End If
 

welche Impulslängen bekommst Du raus und wann soll welche If-Abfrage ausgeführt werden?
Beispiel: Rc_value = 120
es wird die erste If ausgeführt, da 120 größer 113 -> RKL wird aufgerufen
die zweite IF wird aber auch ausgeführt, weil 120 größer 85 -> Blitz wird auch aufgerufen
ist das so Absicht? Komisch.
Wann ist Nullstellung und es wird nichts ausgeführt? eigentlich nur bei Rc_value < 85


Gruß
Gerhard

Hallo Sven,

Du hast den Timer0 mit Prescale = 8 konfiguriert. Das heißt der Timer läuft nach 0,2 Millisekunden über. Somit ist die Erfassungen von Impulen, die bis 2ms dauern können, nicht sinnvoll.
Setz dort mal Prescale = 256. Damit braucht der Timer genau 8,192ms zum Überlaufen. Das heißt dann, daß bei einem Impuls von 1ms Länge der Timer bis ca. 31 zählen wird, bei 1,5ms sinds dann ca. 47 und bei 2ms sinds 63.
Dann sollte auch Deine If-Abfrage funktionieren


Gruß
Gerhard

Zitat von Sven Löffler

---

das Programm funktioniert ja einwandfrei.

---

aber wahrscheinlich nur mit dem einen Sender und mit dem einen Empfänger und vielleicht auch nur bei 20°. Verstell doch mal den Servoweg an der Funke...

Hi Sven,

endlich zu Hause. Puhhh.
Hab grad nochmal nachgerechnet und in Deinen Code geschaut. Die Zeiten, die ich oben geschrieben habe, basieren auf 8MHz. Sorry, hatte gar ned geschaut, was Du programmiert hast.

'Taktfrequenz (4,8Mhz, CKDIV8 Vorteiler Fuse gesetzt)
$crystal = 600000
 

Wenn das stimmt, hast Du in den Fuses 4,8MHz eingestellt, Bascom sagst Du aber 0,6MHz. Sollte schon übereinstimmen, sonst stimmen deine Wait-Längen nicht.

Falls Du mal bischen mit Timer und Zeiten spielen willst, finde ich diese Seite recht gut:
http://www.bunbury.de/technik/avr/bascom.htm#Timer

Wenn ich dort übrigends Deine Konfiguration eintippe, kommt raus, daß der Timer alle 0,4ms überläuft.


Gruß
Gerhard