Abfrage und Anzeige des Wertes über RS232 z.B. beim RNBFRA Board

Code:
Const Ref = 5 / 1023 

Dim I As Byte 
Dim W As Word 
Dim Volt As Single 

Config Adc = Single , Prescaler = Auto 

$baud = 9600 
$crystal = 8000000                                          'Quarzfrequenz 
Portd.6 = 0                                                 'Schrittmotoren erst mal ausschalten 


Start Adc 
Do 
   W = Getadc(4) 
   Volt = W * Ref 
   Volt = Volt * 5.2941 
   Print "Spannung: " ; Volt 

   Waitms 200 
Loop 

End