is der code so besser (muss ich noch testen)

Code:
 $regfile = "m8def.dat"
 $crystal = 8000000

 Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.1 , Rs = Portd.2
Config Lcdbus = 4

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Dim Ad As Word


Start Adc

Do
Ad = Getadc(0)
Waitms 100
Cls

Lcd Ad

Loop
ich hoffe es funkt jetzt