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

**Björn** · 18.07.2005, 15:28

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