Hi,
ich beschäftige mich immer noch mit dem Problem ein die Kanäle eines RC-Empfängers auszulesen. Hab jetzt (dank Hüttis Tipp) im RC-Line Forum einen hübschen kleinen Programmschnipsel gefunden (dank an den Autor Werner...der damit aber auch noch seine Probleme hat). Damit läst sich über INT0 schön ein Empfängerkanal auswerten. Jetzt habe ich versucht mit ebenfalls mit TIMER1 und über INT1 einen zweitren Kanal auszuwerten. Das Klapp gar nicht. Ich geb hier mal Werners Programmschnipsel zum besten. Hat jemand ne Idee wie man hier noch einen Zweiten Kanal auslesen kann???

Gruß

Andreas


*** Programm-Anfang ***
'D2 == Int0
'D3 == Int1

$regfile = "m32def.dat"
$crystal = 16000000
$lib "lcd4.lbx"


Dim Switch As Bit
Dim A As Long
Dim B As Long

On Int0 Abfrage
Config Int0 = Rising
Config Timer1 = Counter , Prescale = 1

Enable Int0
Enable Interrupts

do
Cls
Lcd "Timer0:" ; A

Lowerline
Lcd "Puls" ; B
Waitms 5
loop
End

'Interrupt-----------------------
Abfrage:

If Switch = 0 Then Goto Alf Else Goto Otto


Alf:

Timer1 = 0
Start Timer1
Config Int0 = Falling
Switch = 1
Goto Ende

Otto:

Stop Timer1
A = Timer1
Config Int0 = Rising
Switch = 0
Timer1 = 0

Ende:
Return
*** Programm-Ende ***