Нужно сделать вольтамперметр для БП.
Начал с вольтметра, взял мегу 88 и дисплей WH1602
Но по какой-то непонятной мне причине, Значение показываются не такие какие я ожидал.
Подключил аккумулятор 3.3в, замерил его на мультиметре показывало 3,8. Подключил к своему устройсву, показывает 8,9.
Крутил переменный резистор но значения были в пределах от 8.7 до 9.8 , никак не 3,8.
В чем может быть ошибка в моем коде?
Схема для снятия значения с батареи:
Программа:
Код
$regfile "m88def.dat"
$crystal = 8000000
'Конфигурируем ЖКИ
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Dim Volt As Single
Dim Readadc As Word
Initlcd
Cursor Off Noblink
Config Adc = Single , Prescaler = Auto , Reference = Internal
Do
Start Adc
Readadc = Getadc(5)
Volt = Readadc / 1023
Volt = Volt * 30
Stop Adc
Cls
Locate 1 , 1
Lcd "U" ; "=" ; Fusing(volt , "##.#") ; "V"
Waitms 500
Loop
End