@PicNick

hmmm,

moment das heist.

Code:
' *** CPU Einstellungen ***
$regfile = "At26def.dat"
$crystal = 1000000
' *** CPU Einstellungen ***

' *** AD-Wandler ***
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
' *** AS-Wandler ***

Dim Spg_lade1 As Word
Dim Spg_lade2 As Word
Dim Merker As Integer

Spg_lade1 = Getadc(0)
Spg_lade2 = Spg_lade1

Do

   Spg_lade1 = Getadc(0)

   Merker = Spg_lade1 * 20
   Merker = Merker / Spg_lade2
   Merker = Merker - 20

   If Merker < 6 Then
      Gosub Ok
   Else
      Spg_lade2 = Spg_lade1
   End If


Loop

End

Ok:

Return

kannst mal ankuken???

gruß manuel