sasha_1973
(12/5)*(5/1023)=~2.4*0.00488=~0.0117
Если бы была такая погрешнось, небыло вопросов. При 4.00В делаю переменную равной 400.
В итоге получаю при 3.50В переменная АЦП 3.2В. Хороше, что врет в нужную сторону. Занижает. Не пропустишь нужность зарядки.

Сдесь не про вопрос.
Вопрос в измерении собственного питания.

boida
Стои на работе система контроля. Собрана на мега8. Все отлично работало кроме USSD. Ответ приходил в ACS2. Дома делаю контролер котла но на мега328. Решил из ACS2 взять нужные цифры, на форуме появилась эта тема. Если сразу брать по 4 символа начиная с нужного, иногда получалась колбаса. Оказалось ответ нормальный +CUSD 0. Пишу попамяти, на суть не повлияет. Цифры начинаються с 12 символа. А иногда ответ +CUSD 1, добавляються 2 пробела. Символы начинаються с 14. Друг предложил сдвигать в начале по одному символу до первого совпадения с цифрой, дальше по 4. Отлично заработала программа на мега328. Вышел из отпуска на работу решил переписать программу на мега8. Перенес подпрограмму баланс, и в ответ колбаса. Вместо нормального ответа части hex кода. Откуда они могут взяться, если в таблице Case их нет вообще. Начал выводить на терминал все, что получаю при сдвиге строки. Оказалось переменные перехлестываються. Тоже мега8 забита на 97%. И программа начинала черезь 4 символа начинать брать когда ни попадя. Но сдесь помогло добавить в таблицу Case одну строку.
Case Else : Cifra = ""

'========Баланс==================================================================================
Баланс:
    Sim = 1
    Val_numeric = 1
    Otvet = ""
    For Bal = 0 To 60
     Sim_str = Mid(sk , Sim , 4)
    Select Case Sim_str
      Case "0030" : Cifra = "0"
      Case "0031" : Cifra = "1"
      Case "0032" : Cifra = "2"
      Case "0033" : Cifra = "3"
      Case "0034" : Cifra = "4"
      Case "0035" : Cifra = "5"
      Case "0036" : Cifra = "6"
      Case "0037" : Cifra = "7"
      Case "0038" : Cifra = "8"
      Case "0039" : Cifra = "9"
      Case "002E" : Cifra = "."
      Case "002C" : Cifra = "."
      Case "0070" : Cifra = "p"
      Case Else : Cifra = ""
    End Select
      If Cifra <> "" Then Val_numeric = 4
        Otvet = Otvet + Cifra
      If Cifra = "p" Then Bal = 60
      Sim = Sim + Val_numeric
      Cifra = ""
    Next Bal

    Otvet = "Balans:" + Otvet
  Gosub Sendsms

Return

Nord
Но сдесь он будет активным если использовать внешний источник образцового питания. В мегах если использовать
Config Adc = Single , Prescaler = Auto , Reference = Internal или Avcc на Aref выводится внутреннее образцовое напряжение 2.54В, или напряжение питания AVCC. Вешается кондюк 0.1мкФ. Который Александр в своей программе заряжает, разряжает согласно даташиту. Но для меня его программы сильно сложные. Половина на асме, который вообще не знаю.