Alat Pendeteksi Kebakaran Sensor Asap dan Api Bascom AVR

Alat Pendeteksi Kebakaran Sensor Asap dan Api Bascom AVR 

         Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang dapat digunakan untuk pendeteksi kebakaran dengan menggunakan ATMega16 sebagai mikrokontrollernya. alat ini juga dilengkapi sensor smoke atau asap yang digunakan untuk pendeteksi asap jika terjadi kebakaran, selain itu juga ada sensor api yang mana jika terdapat api maka akan membunyikan alarm / buzzer dan menyalakan led sebagai indikatornya. untuk lebih jelasnya berikut komponen dan programnya.  

a. Minimum System ATMega16

b. Sensor Asap MQ-2

c. Sensor Api 

d. Program Bascom AVR

$regfile = "m16def.dat"

$crystal = 8000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2

Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5

Config Lcd = 16 * 2

Cursor Off

Cls

'led

Ddrd.2 = 1

Ddrd.3 = 1

Ddrd.4 = 1

'buzzer

Ddrd.5 = 1

Portd.5 = 1

Led1 Alias Portd.2

Led2 Alias Portd.3

Led3 Alias Portd.4

Buzzer Alias Portd.5

Led1 = 0

Led2 = 0

Led3 = 0

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

Dim Gas As Word

Dim Volt1 As Single

Dim Api As Word

Dim Volt2 As Single

Cls

Cursor Off

Start Adc

Do

Gas = Getadc(0)

Api = Getadc(1)

Upperline

Lcd "Asap= " ; Gas ; "   "

Lowerline

Lcd "Api= " ; Api ; "   "

If Gas > 500 And Api < 800 Then

Led1 = 0

Led3 = 1

Buzzer = 0

End If

If Gas < 500 And Api > 800 Then

Led1 = 1

Led3 = 0

Buzzer = 1

End If

Waitms 100

Loop

e. VIDEO HASILNYA