da brauchste sowas in der art:


Code:
Const Maxvolt = 248                                       '14.4 volt
Const Maxvolt2 = 211                                     '13.8 volt
Const Minvolt2 = 82                                        '11.7 volt
Const Minvolt = 43                                          '11.0 volt

 die constanten hier sind abhängig vom adc, von der referenz und dem spannungsteiler

Dim Spannung As Word
Dim Spannung8 As Byte

Config Adc = Single , Prescaler = 128 , Reference = Internal
Start Adc

Spannung = Getadc(0 )
Shift Spannung , Right , 2
Spannung8 = Spannung

und dann irgenwie die leds ansteuern --->>
if spannung8 < minvolt dann rot
if spannung8 >minvolt and spannung8< maxvolt2 then gelb
if spannung8> maxvolt2 then grün