ICh hab jetzt dank x-ryder ein Prog. das den abstand des sensors zu einem gegenstand mit hilfe der Leds angibt(sehr hilfreich für Einsteiger):
$regfile = "m16def.dat"
$crystal = 7372800
Config Portc = Output
Portc = 0
Dim W As Word
Enable Interrupts
Start Adc
Do
W = Getadc(0)
If W > 0 Then Portc.7 = 1 Else Portc.7 = 0
If W > 128 Then Portc.6 = 1 Else Portc.6 = 0
If W > 256 Then Portc.5 = 1 Else Portc.5 = 0
If W > 384 Then Portc.4 = 1 Else Portc.4 = 0
If W > 512 Then Portc.3 = 1 Else Portc.3 = 0
If W > 640 Then Portc.2 = 1 Else Portc.2 = 0
If W > 768 Then Portc.1 = 1 Else Portc.1 = 0
If W > 896 Then Portc.0 = 1 Else Portc.0 = 0
Waitms 10
Loop
End
Lesezeichen