Problem beim Mega8 + ADC - Roboternetz-Forum

Also mein Code in [flash width=100 height=100]Bascom [/flash]schaut so aus:

Code:

'$sim

'----- Registrations Datei und Quartz -----

$regfile = "m8def.dat"
$crystal = 4000000
'baud = 9600

'----- -----

Config Portd = Output
Ddrb = &B0000011

'----- Lcd Initialisieren -----

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.6 , Rs = Portd.7

Declare Sub Lcds

'----- ADC Initialisieren -----

Config Adc = Single , Prescaler = Auto , Reference = Avcc
'Enable Adc

'----- Variablen -----

Dim A As Word , Channel0 As Byte , Channel1 As Byte , B As Word , Channel2 As Byte , C As Word , Empfang As Byte

'Enable Interrupts
Cursor Off
Channel0 = 5
Channel1 = 4
Channel2 = 3


Do
   Start Adc
      A = Getadc(channel0)
      B = Getadc(channel1)
      C = Getadc(channel2)
   Stop Adc

   If A < 150 Then
      Portb.0 = 1
   Else
      Portb.0 = 0
   End If

   Call Lcds


Loop


End

Sub Lcds
   Cls
   Locate 1 , 1
   Lcd "Helligkeit: " ; A
   Locate 2 , 1
   Lcd "LS L:" ; B ; " R:" ; C
   'Lcd "Empfangen: " ; Empfang
   Waitms 300
End Sub

und meine Schaltung so... es soll channel 5 sein an 4 und 3 hängen auch 100K direkt auf gnd soll später die linien verfolgung ran