Hi
ja habe ich, aber es bringt auch ncihts wenn ich das nicht mache. Außerdem sollte das Programm doch eigentlich stimmen oder?

mfg
sulu

P.s: code:

Code:
Config Porta = Input 
   For I = 0 To 5                        ' Alle internen Pullup Widerstände ein, bis auf Batteriespannungsmessungsport 
      Porta.i = 1 
   Next I 

   Print 
   Print "Ermittelte Messwerte an Port A:" 
   For I = 0 To 7                        ' Alle Eingänge inkl. messen 
      Start Adc 
      Ws = Getadc(i) 
      Volt = Ws * Ref 
      Print "Pin " ; I ; " ADC-Wert= " ; Ws ; " bei 5V REF waeren das " ; Volt ; " Volt" 
   Next I 
End Sub