сигнализатор утечки газа

[Andre_san]

собрался делать сигнализатор утечки газа по схеме которую можно глянуть по ссылке http://avrproject.ru/publ/kak_podklj...leru/2-1-0-123
схему решил доработать добавив звуковую сигнализацию при срабатывании датчика газа и при разряде аккумулятора. Пожалуйста гляньте схему доработки, может есть ошибки? Хотя в протеусе все работает.
И еще вопрос, подскажите какие заводские фьюзы у атмеги 8а в програме аврдуде?

[ForcePoint]

На мой взгляд - для контроля питания надо править прошивку МК, а не накручивать такую дрянную схемищу.
Которая ещё и жрёт лишнего. Понятно, что сам датчик газа жрёт как не в себя. Но... некрасиво.

[Andre_san]

На мой взгляд - для контроля питания надо править прошивку МК

я в программировании не шарю. Ели вы в этом разбираетесь и есть желание помочь то я буду рад любой помощи.

[dgrishin]

я в программировании не шарю.

В вашей ссылке есть программа с комментариями - там все понятно даже без знания программирования. Хотя сама программа неказистая (писал тоже не большой знаток программирования) - опрос идет в бесконесном цикле что очень неэкономно по электропотреблению.

[Andre_san]

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

Может вам и понято, а для меня это китайский алфавит. Мне проще схему спаять чем разбираться даже с простейшей программой.

[mike-y-k]

Andre_san, добавьте строчку для следующего порта

Config Portb.5 = Output

и измените 0 на 1 (выделено подчеркиванием) в коде

If W › 900 Then                         'караул!
 Portb = &B00111110
End If

теперь на выводе 19 PB5/SCK будет 1 при загорании красного светодиода
Для анализа напряжения батареи нужно будет после

Dim W As Integer                        'для хранения значения полученного с АЦП

добавить строку

Dim BAT As Integer                        'для хранения значения напряжения батареи, полученного с АЦП

После строки

 W = Getadc(0)                          'датчик подключён к PortC.0

добавить строки

 BAT = Getadc(1)                          'делитель от батареи подключён к PortC.1
If BAT ‹ 99999 Then                         'пора менять батарею
 Portb = &B00110000
 Wait 1
 Portb = &B00000000
 Wait 1
 Portb = &B00110000
 Wait 1
 Portb = &B00000000
 Wait 1
End If

и после команды

Print W                                 'отсылаем показания в UART

добавить команду

Print BAT                                 'отсылаем показания в UART

Между плюсом батареи и 24 поставить сопротивление 1MΩ и от 24 еще 1MΩ на общий провод (величина сопротивления условная, можно и больше)
На выводы 2 и 3 подключить адаптер UART и посмотреть в терминале измеренное напряжение, по нему поправить константу порога для нижнего порога напряжения батареи.
Где найти компилятор bascom - уточните на том сайте
И напоследок - команды print после отладки в железе можно удалить, точнее поставить перед ними апостроф…

[Andre_san]

mike-y-k
Большое спасибо.

Где найти компилятор bascom - уточните на том сайте

зарегистрировался, авторезировался на том сайте, но форма написания коментов так и не появилась. Не понятно...

[dgrishin]

Мне проще схему спаять чем разбираться даже с простейшей программой.

Увы такая парадигма не канает при использовании микроконтроллеров.
Но раз вы большой асс в аналоговой схемотехники то точно такой же функционал (а он там очень простой) поставте 2 компаратора - они будут контроллировать 2+1 границы загазованности. Еще один компаратор - для контроля напряжения питания.
При заходе в аварийную границу также включается buzzer.
Итого - простая микросхемка типа LM339 c 4мя коппараторами + схема для опорных напряжений срабатывания компараторов.
На все компараторы потребление менее 1мА.

[Andre_san]

скачал и установил программу Bascom Avr, но не могу понять как скомпилировать hex файл. Нажимаю F7 не чего не происходит. Насколько я понял прошивка заливается прямо в МК через программатор.

[mike-y-k]

Andre_san, ну тут Вам предстоит немного самостоятельно поиском поработать
На сайте bascomavr есть много материала по работе с программой…