-
Diesen Code habe ich mal hier im Forum gefunden und umgeschrieben:
Code:
$regfile = "m8def.dat"
$crystal = 7372800
Config Portc = Input
Dim Adc_wert As Integer , Spannung As Single
'===============================================================================
' LCD Parametrieren
'===============================================================================
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , _
Db7 = Portb.2 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Cls
Cursor Off Noblink
'===============================================================================
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Do
Start Adc
Adc_wert = Getadc(5)
Spannung = Adc_wert * 0.004883
Stop Adc
Cls
Lcd Spannung
Loop
Gruß, Björn
-
P.S.: Ich würde gerne die interne Referenzspannug verwenden.
Gruß, Björn
