versuch mal über pwm ob er funktioniert, ist anschluss 3 gleich hinter dem i2c-anschluss. meiner gibt damit werte aus von 0-1180, die müssen dann auf 360 Grad aufgeteilt werden :
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 8000000
$baud = 19200

Config Timer1 = Timer , Prescale = 256

Dim W As Word
Dim E As Word

Enable Interrupts

Do

Waitms 200
Bitwait Pinc.2 , Reset
Bitwait Pinc.2 , Set
W = Timer1
Bitwait Pinc.2 , Reset
E = Timer1 - W
Print E

Loop

End