Bascom auslesen und zum PC übertragen

var = get adc(1) 'für kanal 1

print var

print get adc(1)

'###### Hier Muss Die Init Sequenz Für Den Controller Hin ######

'Baud auf 9600 setzen (standardeinstellung bei den meisten programmen)

$baud = 9600

'ADC konfigurieren

'Den prescaler ggf. selbst anpassen! imho legt der Compiler den Wert fest(optimalwert)

'Reference auch ggf. anpassen! Jetzt ist es auf AVCC also die spannungsversorgung des ADC eingestellt. AREF wäre für eine Varaible Spannung

'im Datenblatt steht wie hoch sie maximal und minimal sein muss

Config Adc = Sigle , Prescale = Auto , Reference = Avcc

'Variable für den ADC-Wert definieren

Dim Adc_wert As Integer

'Hilfsvariable für die ausgabe

Dim I As Byte

'Hier beginnt das Hauptprogramm!

'Die Ausgabe erfolgt im Sekundentakt für alle 6 Kanäle.

Do

For I = 0 To 5                                              'hier beginnt die For-Next-Schleife; Sie zählt von 0-5 hoch

  Adc_wert = Getadc(i)                                      'Der Variable wird wird der aktuelle Wert des Kanals i zugewiesen

  Print "Kanal " ; I ; ": " ; Adc_wert                      'Ausgabe des ADC-Wertes über die UART

  Print "+++"

Next I

Wait 1                                                      'eine Sekunde warten

Loop

End                                                         'Ende vom Programm