Mein ADC will nicht wie ich!

[MrQu]

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



' *** 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