Problem mit ADC beim Atmega8a/au

[Franz112]

Problem behoben   ich hab meine Fehler gefunden  

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

Config Portd.3 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Dim Wert As Integer

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

Portd.3 = 0

Do

Wert = Getadc(1)

If Wert < 300 Then
Portd.1 = 1
Portd.2 = 0
End If
If Wert > 300 Then
Portd.2 = 1
Portd.1 = 0
End If

Loop
End

Es war gleich mal ein anderer ADC port den ich gestern abend angelötet hatte ..hatte ich vergessen..  .. und man muss Wert als integer configurieren..jetzt gehts