Mein ADC will nicht wie ich!

Hi,

ich habe ein Problem mit meinen AD-Wandler.

Ich will ihn quasi als Spannungsabhängigen Schalter verwenden.

Wenn ich im "Single" Mode arbeite ist die Auswertig nicht gleichmässig genus, jetzt wollte ich ihn als "Free" betreiben.
Da geht aber garnichts - warum???

Unten das Script

Code:

---

' *** CPU Einstellungen ***
$regfile = "At26def.dat"                    ' CPU = ATtiny26L (externer RESET)
$crystal = 1000000                          ' Takt = interner RC mit 1 MHz
' *** CPU Einstellungen ***

' *** Variablen Definieren ***
Dim Spg_batt As Word                                       
Dim Spg_lade As Word                                     
Dim Merker_lade As Bit
' *** Variablen Definieren ***

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

' *** Port Einstellungen und Ports Reseten ***
Config Porta = &B11110000                                 
Config Portb = &B01111111                                 
Porta = &B00000000                                         
Portb = &B00000000                                         
' *** Port Einstellungen und Ports Reseten ***

' *** START-Parameter festlegen ***
Spg_batt = 0
Spg_lade = 0
Merker_lade = 0
' *** START-Parameter festlegen ***

' *** START DES HAUPT-PROGRAMME´S ***
Do
  Start Adc                                            ' AD - On

  Spg_batt = Getadc(0)                          ' Abfrage der AD-Channels "0"
  Spg_lade = Getadc(1)                          ' Abfrage der AD-Channels "0"

  If Spg_lade >= 0 Then
      If Spg_lade <= 50 Then
        Merker_lade = 0
      End If
  End If
  If Spg_lade >= 51 Then
      Merker_lade = 1
  End If

  If Merker_lade = 0 Then

      '*'
      '*'
      '*'

  End If

  If Merker_lade = 1 Then

      '*'
      '*'
      '*'

  End If

  Stop Adc                                            ' AD Off

Loop
' *** ENDE DES HAUPT-PROGRAMME´S ***

' *** E N D E ***
End                                                      ' *** E N D E ***
' *** E N D E ***

---

Zusatzfrage:
Wie funktioniert eigendlich genau der "toggle" Befehl???
z.b. toggle portb.0 => stimmt das so oder muß ich es anders machen?
Bleibt beim toogle Befehl das Programm eigendlich "stehen" (wie bei wait ms) oder läuft es weiter?

Danke im vorraus.


Gruß Manuel