roboforum.ru

Технический форум по робототехнике.

Как измерить напряжение аккума

Как измерить напряжение аккума

wan0 » 04 янв 2011, 18:57

Здравствуйте! Подскажите, пожалуйста.
Как измерить напряжение с помощью ADC ?
Код: Выделить всёРазвернуть
$regfile = "m32def.dat"                                     
$crystal = 16000000                                       
$baud = 19200

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim U As Single                                           
Dim I As Single                                       
Dim Ul As Single
Dim Uadc As Word
Dim Iadc As Word
Dim Uacc As Word

Start Adc
Uadc = Getadc(0)
Iadc = Getadc(1)
Stop Adc
Do
I = Iadc * 0.001668
U = Uadc * 0.02529

Waitms 1000
Ul = I * 1.5
Uacc = U - Ul
I = I * 1000
Print "Charge, " ; Uacc ; " Volt "
Print "Charging current is " ; I ; " Ma"

Loop

End

Нашёл вот такой исходниик, но он отображает.
В поиске нашёл только измерение в процентах.
Дайте код плиз.
Заранее благодарен.
Последний раз редактировалось wan0 04 янв 2011, 20:24, всего редактировалось 1 раз.

Re: Как измерить напряжение и силу тока аккума

avr123.nm.ru » 04 янв 2011, 19:00

посмотрите примеры BASCOM с АЦП

Re: Как измерить напряжение и силу тока аккума

EdGull » 04 янв 2011, 19:00

какая еще сила тока аккумулятора?

Re: Как измерить напряжение аккума

wan0 » 04 янв 2011, 21:56

Почитал пример на робозоне, вспомнил и написал.
Если кому-то пригодится.
Код: Выделить всёРазвернуть
$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 16000000                                         ' указываем на какой частоте будем работать
$baud = 19200


Config Adc = Single , Prescaler = Auto , Reference = Internal '2.56

Config Pinb.0 = Output : Led1 Alias Portb.0                 'КРАСНЫЙ ногу сконфигурировали как выход и обозвали Led1
Config Pinb.1 = Output : Led2 Alias Portb.1                 'ЗЕЛёНый ногу сконфигурировали как выход и обозвали Led2
Config Pinb.2 = Output : Led3 Alias Portb.2                 'СИНИЙ ногу сконфигурировали как выход и обозвали Led3



Dim U As Word
Dim I As Byte
Dim Volt As Single
       Start Adc

Do

   U = Getadc(0)
   Volt = 0.005 * U
   Print "charge " ; Volt ; " V"
   Waitms 1000
Loop


End

Re: Как измерить напряжение аккума

Myp » 05 янв 2011, 11:17

особенно красиво наверно должны моргать 3 цветных светодиода :D


cron
Rambler\'s Top100 Mail.ru counter