Технический форум по робототехнике.
'настраиваю ацп, источник питания внутренний, подбробнее см. справку
Config Adc = Single , Prescaler = Auto , Reference = Internal
...
Dim Lword1 As Word 'переменная для хранения значения АЦП
Start Adc 'запускаю измерения
Lword1 = Getadc(2):Lword1 = Getadc(2):Lword1 = Getadc(2) 'беру значение с АЦП2
Stop Adc 'останавливаю АЦП
Lword1 = Lword1 /4