Vielen Dank für die Antworten.

Nein, der ADC-Wert soll nicht ausgegeben werden.
Die Lichtschranke funktioniert quasi wie ein Besucherzähler. Kommt einer durch die Lichtschranke, wird ein Besuch gezählt. Dieses soll das LCD-Display dann als Zahl anzeigen.

Do
If Frei2 = 1 Then ´wenn die Lichtschranke frei ist
Schranke2 = Getadc(7) miss ADC (7)
If Schranke2 < 500 Then
´wenn die Spannung kleiner 500 ist dann Sperre die Lichtschranke
Frei2 = 0
Incr Slot2 ´erhöhe die Zahl auf dem Display in Slot2
(Die hat nicht funktioniert, als Alternative würde ich es jetzt so machen:
If Schranke2 < 500 then incr LCD SLot2)
End If
End If

If Frei2 = 0 Then ´ist die Lichtschranke gesperrt
Schranke2 = Getadc(7) ´miss ADC(7)
If Schranke2 > 800 Then Frei2 = 1
´gib sie bei der Spannung größer 800 wieder frei
End If

Cls


Lcd " 2 | 3 | 4 | 1 "
Lowerline
Lcd " | | | "
Locate 2 , 2
Lcd Slot2
Locate 2 , 6
Lcd Slot3
Locate 2 , 10
Lcd Slot4
Locate 2 , 14
Lcd Slot1

Waitms 50
Loop
End

Gruß Zappel!