Zitat Zitat von Michael
Result = Getadc(4) ; Result
das Semikolon und der Text dahinter gehören nicht dahin. Kommentare werden immer mit ' eingeleitet.
In meiner letzten Programmversion habe ich das auch verbessert.

Zitat Zitat von Michael
If
Result > 1000 Then
gehört in eine Zeile:
If Result > 1000 Then
Hab ich irgendwie immer übersehen

Zitat Zitat von Michael
Weiterhin ist zu erwarten, daß ein Wert von > 1000 nie erreicht wird.
Die Sharp-Sensoren haben ca. eine maximale Ausgangsspannung von 2,6V. Das entspricht etwa einem AD-Wert von 530.
Ich würde für die IF Abfrage einen Wert von ca 350 vorschlagen, das entspricht bei einem Sensor GP2D12 etwa 15cm.
Stimmt.
Ich habe bei mir die Interne Reverenzspannung, weshalb bei mir das höchst bei einem ganz nahen Gegenstand 1024 ist.

jon