'* Beispielprogramm AD-Wandler
'* Stefan Weißer - Getestet, funktioniert

Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portb.4 , Rs = Portb.5
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc                                                   '* AD-Wandler einschalten

Dim Digits As Word                                          '* Enthält Wandlungsergebnis
Dim Voltage As Single                                       '* Wandlungsergebnis in Spannung umgerechnet

Do
Cls
Digits = Getadc(2)                                          '* Poti 1 auf dem RMB Board
Upperline
Lcd "Digits:" ; Digits
Voltage = Digits * 0.0049                                   '* Umrechnen in eine Spannung
Lowerline
Lcd "Spg:" ; Voltage
Waitms 100                                                  '* Wartepause, sonst ist nichts zuerkennen
Loop

End