RC Kanal auslesen

[Tazmandevil (Gast)]

Hallo.

Bin blutiger anfänger und versuche über meinen Futaba Fasst empfänger 
via Fernbedienung Landelichter und Blitzer anzusteuert. Ich benutze den 
atmega8 und habe auch schon geringe erfolge erzielt. Jetzt hänge ich 
aber fest. Ich habe mir zusätzlich ein Display angeschlossen um mir die 
Werte des entsprechenden Kanals anzeige zu lassen. Das problem ist das 
die Werte schwanken und sich nicht wirklich ändern sondern immer auf 
einem ähnlichen Level sind. So kann ich keinen definierten Schaltzustand 
herbeiführen.

Hier mal mein Bascom Code

$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100




Led1 Alias Portb.1
Config Led1 = Output

Led2 Alias Portb.2
Config Led2 = Output

Led3 Alias Portb.3
Config Led3 = Output

Led4 Alias Portb.4
Config Led4 = Output

Led5 Alias Portb.5
Config Led5 = Output

Config Timer1 = Timer , Prescale = 1

'Konfiguration des INT0
'Interrupt bei jedem Flankenwechsel (0->1 und 1->0)
Config Int0 = Change

Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
   Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cursor Off





Dim Blitzer As Integer
Blitzer = 100

Dim Pause As Integer
Pause = 500

Dim Beacon As Integer
Beacon = 30

Dim Bpause As Integer
Bpause = 150

Dim Rc_value As Word

Dim Reading As Bit

On Int0 Rc_read



'Timer-Freigabe
Enable Timer1
Stop Timer1

'Freigabe der Interrupt-Routinen
Enable Int0
Enable Interrupts


  Do
  Locate 1 , 1
  Lcd "kanalwert"

 If Rc_value > 1000 Then

  Led1 = 1
  Led2 = 1
  Waitms Blitzer
  Led2 = 0
  Waitms Pause
  Led3 = 1
  Waitms Blitzer
  Led3 = 0
  Led4 = 1
  Waitms Beacon
  Led4 = 0
  Waitms Bpause
  Led4 = 1
  Waitms Beacon
  Led4 = 0
  Waitms Bpause
  Led4 = 1
  Waitms Beacon
  Led4 = 0
  Waitms Pause
  Led5 = 1
  Waitms Beacon
  Led5 = 0
  Waitms Bpause
  Led5 = 1
  Waitms Beacon
  Led5 = 0
  Waitms Bpause
  Led5 = 1
  Waitms Beacon
  Led5 = 0
  Waitms Pause

 Else

 Led1 = 0
 Led2 = 0
 Led3 = 0
 Led4 = 0
 Led5 = 0

 End If




  Loop

 End

Rc_read:
  If Reading = 0 Then
   Start Timer1
   Reading = 1
   Toggle Portc.0
'Den Timer stoppen mit fallender Flanke
  Else
   Stop Timer1
   Rc_value = Timer1
   Cls
   Locate 2 , 5
   Lcd Rc_value
   Waitms 500
   Timer1 = 0
   Reading = 0
   Toggle Portc.1
  End If
 Return

Ich würde sehr gerne wissen wo bei mir der Schuh drückt :-)

MfG Michael

[Hannes L. (hannes)]

Tazmandevil schrieb:
> Ich würde sehr gerne wissen wo bei mir der Schuh drückt :-)

Am ganzen Konzept...

Ich hänge Dir mal ein paar kleine Spielereien in Bascom zum Thema 
RC-Schaltmodul an.

...

[Tazmandevil (Gast)]

Danke erstmal. Ich werde mir das alles mal durchlesen und ausprobieren

MfG Michael

[Tazmandevil (Gast)]

Hollo nochmal

Nach einer kleinen Pause hab ich dann mal weiterexperimentiert. Die 
Schaltung ist komplett fertig und auch schon gebaut, aber an der 
Software da hapert es nun. Mittlerweile habe ich es geschafft den RC 
Kanal auszulesen und das Programm läuft auch auf 2 Schaltzuständen 
sicher. Ich brauche einen kleinen denkanstoß um mehr als 2 Flugzustände 
zu realisieren. Ist bestimmt ganz einfach aber ich sehe wohl gerade den 
Wald vor Bäumen nicht. Momentan entscheide ich ob die Pulslänge kleiner 
als 150*10µs also 1,5ms ist und schalte alles aus und größer 1,51ms 
alles an. Ich komm nicht drauf wie ich von z.b 1,1 - 1,3ms  und dann 1,4 
- 1,6ms und 1,7 - 2,0ms auswerden kann so das ich mindestens 3 
Schaltzuszände habe. Mein Programm habe ich im Anhang

MfG Michael

[Michael (Gast)]

Tazmandevil schrieb:
> Ich komm nicht drauf wie ich von z.b 1,1 - 1,3ms  und dann 1,4
> - 1,6ms und 1,7 - 2,0ms auswerden kann

Immer schön der Reihe nach, sonst wird das zu kompliziert:

 If Messung <= 135 Then                  '
    Zustand = 0
 Elseif Messung <= 165 Then
    Zustand = 1
 Else
    Zustand = 2

[Willi W. (Gast)]

Tazmandevil schrieb:
> Ich komm nicht drauf wie ich von z.b 1,1 - 1,3ms  und dann 1,4
> - 1,6ms und 1,7 - 2,0ms auswerden kann so das ich mindestens 3
> Schaltzuszände habe.

In deinem Programm mußt du auch festlegen, was bei den Zwischenwerten 
passieren soll. Mit deinen Grenzwerten wären das sieben Bereiche:

1.  < 1,1 ms
2. >= 1,1 ms ... <= 1,3 ms
3.  > 1,3 ms ...  < 1,4 ms
4. >= 1,4 ms ... <= 1,6 ms
5.  > 1,6 ms ...  < 1,7 ms
6. >= 1,7 ms ... <= 2,0 ms
7.  > 2,0 ms

Gruß Willi

[Tazmandevil (Gast)]

Ach so, ich dachte ich lasse ein wenig "hysterese". Das ich dann 7 
Zustände habe war mir so nicht bewusst, ist aber logisch.

Das Else Zustand = 2 werde ich nachher mal probieren. Sieht wie die 
Lösung aus :)
Bin nicht drauf gekommen