Mhh also wenn ich das jetzt richtig verstehe ist das evtl. so richtig?

Code:
$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 40
$framesize = 60

'Displaykonfiguration als 4 Port Anschluss

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portb.0 , Rs = Portd.4
Cursor Off
Config Adc = Single , Prescaler = 128 , Reference = Avcc
'-------------------------------------------------------------------------------------------------------
Dim B As Single
Dim V As Integer

Start Adc
 V = Getadc (4)
If V > B Then B = V
EndIf
Korrigiere mich bitte wenn ich falsch liege.

Gruß Johannes