So eine Frage konnte ich mir nun doch nicht beantworten.
Mein Programm ist soweit ganz gut es macht das was ich wollte es liest die Stellung der Poties und gibt mir diese im Display an.

Habe auch die % Funktion etwas Verändert.

Ein hacken hat die ganze Geschichte noch wollte die Spannungsangabe nur mit 2 Komma stellen machen.
Habe dazu Fusing benutzt

jetzt liest er aber nicht mehr die Kanäle aus also mcht er schon noch aber nur wenn alle auf 0 Stehen sobald der 1-7 einen wert über 0 haben spinnt das Programm der 0 Kanal funzt allerdings

Kann mir einer sagen warum

Code:
$regfile = "m16def.dat"
$crystal = 8000000


Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.0 , Rs = Portc.1
Config Lcdbus = 4

Config Adc = Single , Prescaler = 64 , Reference = Avcc

Start Adc

Dim A As Word , B As Single , C As Word , D As Word , E As Single , F As String * 5 , Channel As Byte

Channel = 0

Do

  A = Getadc(channel)                                       ' AD Wert wird in das A word geladen

  B = 100 * A                                               ' Zwischenrechen

  C = B / 1023                                              ' Ausgabe der Prozente

  D = C * 5                                                 ' Zwischenrechnen um auf Volt zu kommen

  E = D / 100                                               ' Ausgabe der Volt


  F = Str(e)                                                ' Runden auf 2 Kommastellen


  Cls


  Lcd "Kanal " ; Channel ; "  " ; Fusing(e , "#.##") ; "V"
  Locate 2 , 1
  Lcd C ; "%                  "

  Incr Channel
  If Channel > 7 Then Channel = 0



  Waitms 5

Loop
End