Bascom AVR Проблемы с кодом

[Толян22]

Парни, помогите разобраться или пните в нужном направлении... Нужен был девайс который меряет напряжение и оповещает если оно ниже порога долгое время. Организовал путем логики: если напряжение ниже порога, то инкриментируем переменную каждые 100 мсек. Если переменная выше определенного числа, то сигнализируем об этом. если переменная не достигла этого числа, а напряжение выровнялось и стало выше порога, то приравниваем переменную к нулю. Все было хорошо пока не задумался о рациональности использования МК. Теоретически можно следить за двумя напряжениями и использовать по сигнализатору для каждого. А вот как запихать в код второй АЦП и второй сигнал ума не приложу. Или я возможно изначально не так все организовал? 

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[zorg74]

Какой мк пользуеш? 

Uone=getadc(0)

Utwo=getadc(1)

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[Alexeyslav]

В контроллере обычно ОДИН Ацп, и аналоговый мультиплексор который подключает разные входы к АЦП. Измерение двух каналов происходит одним и тем же АЦП с переключением мультиплексора между измерениями. Обычно в ЯВУ уже есть готовые функции для измерения напряжения на указанном входе, указывая номер входа мультиплексора.

[Реклама]

Выбираем схему BMS для корректной работы литий-железофосфатных (LiFePO4) аккумуляторов

 Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ, также как и для других, очень важен контроль процесса заряда и разряда, а специализированных микросхем для этого вида аккумуляторов не так много. Инженеры КОМПЭЛ подготовили список имеющихся микросхем и возможных решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Толян22]

МК Attiny13. Код:

Do
If Getadc(3) <= 500 Then
Incr X
Waitms 100
Else
X = 0
End If

If X => 20 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop

End

Как замерить второе напряжение и задействовать второй порт я понимаю. Не допераю как запихать это все в программу, чтобы одновременно следить за двумя напряжениями

[Alexeyslav]

Никаких проблем. Только задержки надо развернуть так чтобы они не мешали работе основного цикла - через счетчики и флаги, например. Вместо "Waitms 100" только флаг ставишь(смысловое значение флага - отсчитать 100мс и выполнить некую функцию), а в основном цикле если этот флаг активен - считаешь до 100(по 1мс например) выполняешь то что должно было быть после задержки и сбрасываешь флаг вместе со счетчиком. Получить сигнал по 1мс можно либо через аппаратный таймер, выставляя ещё один флаг(можно использовать флаг переполнения таймера) со смыслом "1мс прошла" либо вставив в основной цикл задержку в 1мс и тогда каждая итерация цикла будет квантом в 1мс и будет достаточно посчитать количество итераций.

[zorg74]

Ясно понятно, что автор пока далек от приминения таких фич как: счетчик, флаг, прерывание и решает проблему доступными ему методами. Есть есть такая штука как elseif. В хелпе к басику есть описание. Я думаю как раз тот случай. Но с точки зрения оптимальности нелучший вариант.

[Alexeyslav]

Тогда пусть учится. Зря чтоли форум посещал?

[Толян22]

В 18.02.2018 в 02:32, Alexeyslav сказал:

Тогда пусть учится

Этим и занимаюсь. Просто радиоэлектроника это мое хобби. Времени на него мало. Поэтому знания даются с трудом. Одно усвоил, другое подзабыл. 

Вариант с elseif попробую на днях... Спасибо

Do

If Getadc(3) <= 500 Then

Incr X

Elseif Getadc(2)<= 500 Then

Incr Y

Waitms 100

Else

X = 0

Y=0

End If

 

Верно суть уловил?

[zorg74]

Примерно так но только с задержкой не угадал малость. В таком варианте она выполнится когда 

2 часа назад, Толян22 сказал:

Elseif Getadc(2)<= 500

Будет true. Тоесть условие сработало и все встало на время задержки в это время может изменится напряжение на другом канале ацп, а мк об этом неузнает.

Лучше возьми бумагу и карандаш и набросай алгоритм программы. Просто писать программу из головы тяжко если опыта нет. Нарисуй выложи, там посмотрим.

[ruhi]

3 часа назад, Толян22 сказал:

Верно суть уловил?

нет. Вот так можно:

Do
If Getadc(3) <= 500 Then
Incr X
Else
X = 0
End If

If Getadc(2) <= 500 Then
Incr Y
Else
Y = 0
End If

Waitms 100 // и можно поставить 50 и соот-но, дальше: X => 40/ Y => 40 должно быть! Будет точнее время считать!

If X => 20 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop

End

If Y => 20 Then
Portb.?КАКОЙ? = 1
Else
Portb.?КАКОЙ? = 0
End If
Loop

End

 

[zorg74]

Так теже яйца только вид с боку

4 часа назад, ruhi сказал:

Waitms 100 // и можно поставить 50 и соот-но, дальше: X => 40/ Y => 40 должно быть! Будет точнее время считать!

Тогда уж так if x>0 or y>0 then Waitms 100

End if

Тогда сократится время итерации холостого цикла, а значит контроль напряжения будет точнее.

 

[ruhi]

1 час назад, zorg74 сказал:

Тогда уж так if x>0 or y>0 then Waitms 100

Нет! Wait не должен под условием стоять (наскольно я могу понять исходную задачу по тому что написано)!

Если надо мерить 2-а канала, то оба этих измерения должны происходить раз в одну десятую секунды, то есть три операции должны раз в одну десятую секунды (примерно) случиться:

первое измерение

второе измерение

отсчет периода 100мс (Тзадержки)

БЕЗ всяких условий!

А вот по результатам измерений нужно поставить заданные условия и время обработки этих услови можно не учитывать, потому что она будет намного меньше периода измерений (обычно там будет не больше 10 мИКРО секунд что много меньше 100 мИЛИ секунд).

Надо еще посмотреть сколько времени АЦП одного канала занимает! И, соответственно скорректировать период, например время АЦП=10мс, тогда, чтобы получить требуемые 100мс периодичности измерений для двух каналов:

Тзадержки = 100 - 10 * 2 = 80мс должно быть!

Соответственно, при время АЦП > 50мс. нельзя обеспечить периодичность 100мс (например!).

[zorg74]

    То, что измерять оба напряжения одновременно это само сабой разумеется. И то, что время проверки условий пренебрежительно мало тоже верно. Как мне кажется Толян 22 выбрал время равное 2 сек до изминения состояния портов после просадки напряжения. А waitms100 мсек просто 0,1 сек так удобнее, двадцать измирений всего. 

В 17.02.2018 в 08:35, Толян22 сказал:

 

 

[proekt07]

В 16.02.2018 в 18:06, Толян22 сказал:

Нужен был девайс который меряет напряжение и оповещает если оно ниже порога долгое время. 

Я бы всё же использовал таймер. При частоте тактирования 9,6 мгц и макс.делителе 1024 переполнение будет примерно через каждые 27 милисек.

Config Timer0 = Timer , Prescale = 1024                               '
On Timer0 Schet
Enable Timer0
Enable Interrupts

В обработчике прерываний увеличивать на единицу переменную типа word,ну или сколько там нужно отсчитывать.

Schet:
   Count = Count + 1                                        
Return                          

После замера напряжения проверять выполнения условия. Если напряжение выше заданного,сбрасывать переменную Count. Если оно будет ниже, Count не будет сбрасываться и таймер будет сам по себе увеличивать Count,пока не насчитает сколько нужно. Как только насчитает,светим,пикаем,делаем что нужно.

If Getadc(3) <= 500 Then
Count=0
Else
If Count > 300 Then set Portb.0 
End If

Это только набросок,первое что в голову пришло. Чем хорош таймер,он там в фоне работает себе и работает и не надо в основном цикле делать кучу задержек.

 

 

[Толян22]

В 19.02.2018 в 14:14, ruhi сказал:

нет. Вот так можно:

ruhi, спасибо! Это же элементарно было) Не понимаю почему я сам до этого допетрить не мог...

Не думал, что столь простое "уравнение" вызовет такую дискуссию. 

 

22 часа назад, zorg74 сказал:

А waitms100 мсек просто 0,1 сек так удобнее, двадцать измирений всего. 

Да, именно так. Хоть 0,1 сек, хоть 0,01 сек. суть то от этого не меняется. Чаще только АЦП будет опрашиваться. Точное время мне особо не важно, как и частота опроса. Поэтому получилось как то так.

 proekt07, Вам тоже спасибо за набросок кода с таймером. Сходу прояснилось как им пользоваться в таких случаях