Also, Dein Projekt ist ja ganz schön groß, mit ´nem Haufen Subroutinen, Printbefehlen, etc., etc. Wenn´s dutzende Stellen gibt an denen es haken könnte, ist es manchmal ganz hilfreich, nochmal gaaaaanz von vorne anzufangen, und dann schön nacheinander Stufe für Stufe dazuzuprogrammieren. Dann merkt man nämlich sofort, bis wohin es geht - und ab wann nicht mehr.
Als erstes würde ich mal checken, ob der Controller den Empfängerimpuls überhaupt versteht. Ganz einfacher Code:
Code:
$regfile=m32def.dat
$Crystal=16000000
Config Timer2 = Timer, Prescale = 256
Stop Timer2
Timer2=0
Dim Zahl as Byte
PORTD.2=1 'PullUp-Widerstand - für alle Fälle...
Print "Test - Test" 'nur um zu sehen, ob die Kommunikation mit dem PC klappt...
wait 1
Do
Bitwait PIND.2, reset
Bitwait PIND.2, set
Start Timer2
Bitwait PIND.2, reset
Stop Timer2
Zahl = Timer2
Timer2=0
Print Zahl
waitms 500
Loop
Hack´ das doch mal rein und schließ den Empfänger an den Eingang D.2 an. Das müsste je nach Knüppelstellung Werte zwischen etwa 60 und 120 geben.
Lesezeichen