Projekt: AVR soll Strom und Temperatur messen und Daten->

[Björn]

Diesen Code habe ich mal hier im Forum gefunden und umgeschrieben:

$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

[Björn]

P.S.: Ich würde gerne die interne Referenzspannug verwenden.

Gruß, Björn