Habe nochmal mein Original Programm was funktioniert hat beigefügt.
Code:
$regfile = "m8def.dat"                                      'ATmega8-Deklarationen
$crystal = 3686400
$baud = 9600

Dim A As Word
Dim B As Single
Dim C As Single
Dim D As Single
Dim Channel As Byte




Config Adc = Single , Prescaler = Auto
Start Adc

Do
 If Channel = 0 Then D = 9.775171
 If Channel = 1 Then D = 0.293255132
 If Channel = 2 Then D = 1.9550342
 If Channel = 3 Then D = 1.1730205

 A = Getadc(channel)
 B = A * D
 C = Round(b) / 100
 Print C;
 If Channel = 0 Then Print " Grad,";
 If Channel = 1 Then Print " Ampere(3A),";
 If Channel = 2 Then Print " Ampere(20A),";
 If Channel = 3 Then Print " Volt,";
 Incr Channel
 If Channel > 3 Then Channel = 0
 Waitms 200

Loop
müßte eigendlich so klappen!!

Und jetzt nicht mehr?????? [-o<