'* Beispielprogramm AD-Wandler mit Mittelwertbildung und Formatierung
'* 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

Dim Digits As Word                                          '* Enthält Wandlungsergebnis als Rohwert
Dim Voltage As Single                                       '* Wandlungsergebnis in Spannung umgerechnet
Dim Zaehler As Byte                                         '* Hilfsvariable für die Messschleife
Dim Z As String * 4                                         '* Hilfsvariable zur Formatierung

Cls
Upperline
Lcd "AD-Wandler V2"
Wait 5
Cls

Do
Digits = Digits + Getadc(2)                                 '* Poti 1 auf dem RMB Board
Incr Zaehler
If Zaehler > 5 Then                                         '* Aufpassen, sonst wird eine Messung zu viel/wenig berücksichtigt!
                        Digits = Digits / 5
                        Voltage = Digits * 0.0049           '* 5V durch 1024 ergibt 0,00488..V
                        Upperline
                        Lcd "U_1:" ; Voltage
                        Z = Fusing(voltage , "#.&&")        '* Formatierung der Ausgabe, 2 Nachkommastellen
                        Lowerline
                        Lcd "U_2:" ; Z
                        Zaehler = 1
                        Digits = 0                          '* Nicht vergessen auf Null zu setzen!
                        Waitms 200
                        End If

Loop

End