Hallo !

Jetzt habe ich ein Problem mit dem ADC. Der sendet das Signal nicht an das Display, dass dies weiterzählt.

LCD funktioniert und ADC-Messungen am IC passten auch.
Wo ist mein Denkfehler?

$regfile = "m16def.dat"
$crystal = 1000000

Dim Slot1 As Byte
Dim Slot2 As Byte
Dim Slot3 As Byte
Dim Slot4 As Byte
Dim Durchgang As Byte

Dim Schranke2 As Word 'Lichtschranken
Dim Schranke4 As Word
Dim Schranke1 As Word
Dim Schranke3 As Word

Dim Frei1 As Bit
Dim Frei2 As Bit
Dim Frei3 As Bit
Dim Frei4 As Bit

'Alle Lichtschranken freigeben
Frei1 = 1
Frei2 = 1
Frei3 = 1
Frei4 = 1




Config Adc = Single , Prescaler = Auto , Reference = Aref
Start Adc

Do
If Frei2 = 1 Then
Schranke2 = Getadc(7)
If Schranke2 < 500 Then
Frei2 = 0
Incr Slot2
End If
End If

If Frei2 = 0 Then
Schranke2 = Getadc(7)
If Schranke2 > 800 Then Frei2 = 1
End If


Do
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
Loop

Danke im Voraus!