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

[Andre_san]

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

mike-y-k
В общем скомпилировал прошивку проверил в протеусе и почему то красный светодиод мигает и бузер подает прерывистый сигнал, при отсутствии напрсжения на входе вывод 23. Может что то не то с программой?

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200

'конфигурация АЦП
Config Adc = Single , Prescaler = Auto , Reference = Internal

'подключение светодиодов

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config PORTB.5 = Output

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

'запуск и считывание показаний с датчика
 Start Adc
 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
'в зависимости от значения показаний зажгем светодиоды индикации
If W ‹ 700 Then
 Portb = &B00000000                     'значение меньше порога срабатывания, все гуд
End If

If W › 700 And W ‹ 750 Then             'низкий уровень загазованности
 Portb = &B00000010
End If

If W › 750 And W ‹ 800 Then             'средний уровень
 Portb = &B00000110
End If

If W › 850 And W ‹ 900 Then             'загазовано чуть меньше чем полностью
 Portb = &B00001110
End If

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

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

Loop

End

На выводы 2 и 3 подключить адаптер UART и посмотреть в терминале измеренное напряжение, по нему поправить константу порога для нижнего порога напряжения батареи.

Не чего не понял. Что за Приблуда адаптер UART? Что за терминал, смотреть где на ПК? Править константу где здесь?

  If BAT ‹ 99999   Then                  'пора менять батарею
 Portb = &B00110000
 Wait 1
 Portb = &B00000000
 Wait 1
 Portb = &B00110000
 Wait 1
 Portb = &B00000000

В какой строке?

[mike-y-k]

Результат измерения напряжения на ноге 24 - часть напряжения батареи, нужно поправить константу 9999 в if (первая строка во втором окне кода)
Адаптер UART - устройство с USB на одном конце и выходами RX/TX на другом конце, посередине чип типа FT232/MCP220x/CP2102/…
При подключении к плате позволяет на терминале компьютера (программа типа putty, terminal) увидеть выводимые из МК данные.
Это выполняют команды

Print W
Print BAT

Первое число - измерение с датчика, второе - измерение с делителя от батареи…
Они будут появляться каждую секунду
Можете добавить еще один порт и светодиод для индикации низкого уровня батареи
В отношении работы в proteus сейчас ничем не помогу - это уже к знатокам программы

[Andre_san]

можно ли заменить датчик газа mq-4 на mq-5, и нужны ли изменения в прошивке? Причина, он есть в доступности, и он дешевле.
http://mini-tech.com.ua/download/dat...nsors/MQ-5.pdf
http://mini-tech.com.ua/download/dat...nsors/MQ-4.pdf

И ещё вопрос, можно ли обойтись без uart adapter? Поскольку так проект удорожается, смысл то делать самостоятельно не только получить удовольствие от процесса изготовления.

в общем я так подумал, подумал, подсчитал расходы на приобретение газ датчика, юарт адаптера, аккумулятора и т. д. Получается сумма почти эквивалентная цене бытового сигнализатора в продаже. Решил пойти более простым и более дешёвым путем. Питание будет от платы зарядки 5 вольт, 1ампер, ( которая есть у меня) остается купить датчик и рассыпуху.

[mike-y-k]

Andre_san, можно взять любой MQ
UART адаптер будет нужен для настройки прибора…

PS Для питания оптимальнее всего задействовать вариант PowerBank с работой на выход при заряде.
Формально портативный UPS для питания потребителя 5V.
Газ таки никак не связан с наличием напряжения в розетке и его лучше контролировать непрерывно…

[Andre_san]

Собрал схему с изменениями.

[mike-y-k]

Andre_san, разведите buzzer на 19 ногу МК и измените код для программы

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200

'конфигурация АЦП
Config Adc = Single , Prescaler = Auto , Reference = Internal

'подключение светодиодов

Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output

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

Do
 Wait 1
 Start Adc                             'запуск ADC
 W = Getadc                         'чтение датчика - подключён к PortC.0

 If W ‹ 700 Then                    'значение меньше порога срабатывания
  Portb = &B00000000
 End If

 If W › 700 And W ‹ 750 Then  'низкий уровень загазованности
  Portb = &B00000010
 End If

 If W › 750 And W ‹ 800 Then   'средний уровень
  Portb = &B00000110
 End If

 If W › 850 And W ‹ 900 Then   'загазовано чуть меньше чем полностью
  Portb = &B00001110
 End If

 If W › 900 Then                      'караул!
  Portb = &B00111110             'Все светодиоды и buzzer
  Wait 1
  Portb = &B00011110             'Все светодиоды без buzzer
 End If
'команду Print в окончательном варианте стоит удалить
 Print W                                   'отсылаем показания в UART для настройки
Loop
End

В таком варианте минимум писк будет прерывистым
И значения 700/750/800/850/900 - в Вашем варианте могут быть совсем иными. У этих датчиков весьма большой разброс, а на них еще оказывают влияние другие органические соединения, вызывая и ложные срабатывания, и плавание результатов.