/* LCD GÖSTERGELİ PIR SENSÖRLÜ HIRSIZ ALARM
* LCD ekranda HIRSIZ DURUMU GÖSTERİLİR
* Hareket olduğunda buzzer ve LED iled uyarı verilir
* Alarm süresi PIR sensör üzerindeki trimpot ile ayarlanabilir
* PIR sensör hareket oluğunda trimpot ile ayarlanan sürede lojik 1 üretir
*
* Bağlantılar:
* LCD: RS=D8, EN=D9, DS4=D4, DS5=D5, DS6=D6, DS7=D7
*
* BUZZER = D11
* LED = D13
* PIR SENSÖR PİNİ = D3
*/
#include <LiquidCrystal.h>
LiquidCrystal lcd(8, 9, 4, 5, 6, 7);
int ledPin = 13; // choose the pin for the LED
int inputPin = 3; // choose the input pin (for PIR sensor)
int pirState = LOW; // we start, assuming no motion detected
int val = 0; // variable for reading the pin status
int pinSpeaker = 11; //Set up a speaker on a PWM pin (digital 9, 10, or 11)
void setup() {
lcd.begin(16, 2);
pinMode(ledPin, OUTPUT); // declare LED as output
pinMode(inputPin, INPUT); // declare sensor as input
pinMode(pinSpeaker, OUTPUT);
Serial.begin(9600);
}
void loop(){
val = digitalRead(inputPin); // read input value
Serial.println(val);
if (val == HIGH) { // check if the input is HIGH
digitalWrite(ledPin, HIGH); // turn LED ON
playTone(300, 160);
delay(150);
if (pirState == LOW) {
// we have just turned on
Serial.println("Motion detected!");
lcd.clear();
lcd.setCursor(0,0);
lcd.print("DIKKAT! HIRSIZ VAR.");
// We only want to print on the output change, not state
pirState = HIGH;
}
}
else {
digitalWrite(ledPin, LOW); // turn LED OFF
playTone(0, 0);
delay(300);
if (pirState == HIGH){
// we have just turned of
Serial.println("Motion ended!");
lcd.clear();
lcd.setCursor(0,0);
lcd.print("HIRSIZ YOK");
// We only want to print on the output change, not state
pirState = LOW;
}
}
}
// duration in mSecs, frequency in hertz
void playTone(long duration, int freq) {
duration *= 1000;
int period = (1.0 / freq) * 1000000;
long elapsed_time = 0;
while (elapsed_time < duration) {
digitalWrite(pinSpeaker,HIGH);
delayMicroseconds(period / 2);
digitalWrite(pinSpeaker, LOW);
delayMicroseconds(period / 2);
elapsed_time += (period);
}
}
Hiç yorum yok:
Yorum Gönder