Здесь можно немножко помяукать :)
https://radiokot.ru/forum/
Код: Выделить всё
Const Aref = 2.56 ' Напряжение ИОН.
Config Adc = Single , Prescaler = 128 , Reference = Internal ' Внутренний ИОН.
Dim x As Word
Dim y As Single
x = Getadc(0) ' Опрос канала 0 АЦП.
y = Aref * x
y = y / 1024
y = y * 1000 ' Результат в милливольтах на входе АЦП.
x = y ' В переменной 'x' целочисленный результат в милливольтах.Попробовал Ваш код, точно такие же значения получаются как и у меня.Достаточно изменить код чтения из АЦП.
А ето чавопользуйтесь диф включением каналов
такое
А у меня 3 вольта в диапазоне 10-50вольт, не хило правда?что бы ни делали, у аврки как было 1024 отсчета так и останется, 20 В/1024 = ~20 мВ в идеальном случае, а в действительности будет 8-9 бит, что эквивалентно 40мВ.
Я не знаю про какие 3 В идёт речь.SolderC писал(а): А у меня 3 вольта в диапазоне 10-50вольт, не хило правда?
Из этого следует, что моя помощь вам не нужна.SolderC писал(а): И по поводу температуры измерительные цепи не геются у меня да и контроллер тоже
Не удивительно с учетом ошибки в коде.SolderC писал(а):результат одинаков, что с ним что без него
В последней строке должно быть.SolderC писал(а):Volt_1 = Aref * Volt
Volt_1 = Volt_1 / 1024
Volt_1 = Volt_1 * 1000
Volt_1 = Volt
Код: Выделить всё
Volt = Volt_1
В коде объявление переменной.SolderC писал(а):Не работает, подаю напряжение 0-8В на индикаторах 0В, как только превышает 8,9В - сразу 9,99А 50,0В
Код: Выделить всё
Dim Volt_1 As IntegerСпасибо, что разжёвываете и извините за невнимательность, в протеусе работает, завтра опробую в железе.Мурик писал(а):В коде объявление переменной.SolderC писал(а):Не работает, подаю напряжение 0-8В на индикаторах 0В, как только превышает 8,9В - сразу 9,99А 50,0Ва должно быть Single.Код: Выделить всё
Dim Volt_1 As Integer