L

Er
31 Ocak 2014
Tarihinde Katıldı
Takip Ettikleri
9 üye
Görüntülenme (?)
46 (Bu ay: 0)
Gönderiler Hakkında
L
2 yıl
Ardunio akıllı otopark sistemine bluetooth ekleme
Hali hazırda çalışan koduma bluetooth eklemem gerekti yardımcı olabilir misiniz ?

Kodu buraya bırakıyorum:

#include <Servo.h> //includes the servo library
#include <Wire.h> 
#include <LiquidCrystal_I2C.h>
LiquidCrystal_I2C lcd(0x27, 2, 1, 0, 4, 5, 6, 7, 3, POSITIVE);

Servo myservo;

#define ir_enter 2
#define ir_back 4

#define ir_car1 5
#define ir_car2 6
#define ir_car3 7
#define ir_car4 8
#define ir_car5 9
#define ir_car6 10

int Y1=0, Y2=0, Y3=0, Y4=0, Y5=0, Y6=0;
int flag1=0, flag2=0; 
int yer = 6;  

void setup(){
Serial.begin(9600);

pinMode(ir_car1, INPUT);
pinMode(ir_car2, INPUT);
pinMode(ir_car3, INPUT);
pinMode(ir_car4, INPUT);
pinMode(ir_car5, INPUT);
pinMode(ir_car6, INPUT);

pinMode(ir_enter, INPUT);
pinMode(ir_back, INPUT);
  
myservo.attach(3);
myservo.write(90);

lcd.begin(20, 4);  
lcd.setCursor (0,1);
lcd.print("  Akilli Otopark ");
lcd.setCursor (0,2);
lcd.print("    Sistemi   ");
delay (2000);
lcd.clear();  

Read_Sensor();

int total = Y1+Y2+Y3+Y4+Y5+Y6;
yer = yer-total; 
}

void loop(){

Read_Sensor();

lcd.setCursor (0,0);
lcd.print("  Bos Yer: "); 
lcd.print(yer);
lcd.print("  ");  

lcd.setCursor (0,1);
if(Y1==1){lcd.print("Y1:Dolu ");}
   else{lcd.print("Y1:Bos ");}

lcd.setCursor (10,1);
if(Y2==1){lcd.print("Y2:Dolu ");}
   else{lcd.print("Y2:Bos ");}

lcd.setCursor (0,2);
if(Y3==1){lcd.print("Y3:Dolu ");}
   else{lcd.print("Y3:Bos ");}

lcd.setCursor (10,2);
if(Y4==1){lcd.print("Y4:Dolu ");}
   else{lcd.print("Y4:Bos ");}

 lcd.setCursor (0,3);
if(Y5==1){lcd.print("Y5:Dolu ");}
   else{lcd.print("Y5:Bos ");}

lcd.setCursor (10,3);
if(Y6==1){lcd.print("Y6:Dolu ");}
   else{lcd.print("Y6:Bos ");}   

if(digitalRead (ir_enter) == 0 && flag1==0){
if(yer>0){flag1=1;
if(flag2==0){myservo.write(180); yer = yer-1;}
}else{
lcd.setCursor (0,0);
lcd.print(" Park Dolu ");  
delay(1500);
}  
}

if(digitalRead (ir_back) == 0 && flag2==0){flag2=1;
if(flag1==0){myservo.write(180); yer = yer+1;}
}

if(flag1==1 && flag2==1){
delay (1000);
myservo.write(90);
flag1=0, flag2=0;
}

delay(1);
}

void Read_Sensor(){
Y1=0, Y2=0, Y3=0, Y4=0, Y5=0, Y6=0;

if(digitalRead(ir_car1) == 0){Y1=1;}
if(digitalRead(ir_car2) == 0){Y2=1;}
if(digitalRead(ir_car3) == 0){Y3=1;}
if(digitalRead(ir_car4) == 0){Y4=1;}
if(digitalRead(ir_car5) == 0){Y5=1;}
if(digitalRead(ir_car6) == 0){Y6=1;}  
}
L
4 yıl
pazar maçları yorumu
southampton----tottenham.......her ne kadar mac sonucu 2 görünsede ben var oynucam..kg var
metz-----------reims..........mac sonucu berabere görunuyor ama karşılıklı gol oynanır
strasbourg-----dijon ........ben bu macta süpriz bekliyom yani dijon diyorum karşılıklı gol oynanır artı ilk yarı 1.5 üst denenir
newcastle united---brigton....mac sonucu 1
huesca---------cadız.........mac sonucu 1
chelsea-------lıverpol.........benim gönlüm chelsea den yana ama karşılıklı gol en mantıklısı
marsilya ------lille...........mac sonucu 1 hatta ilk yarı 1 denenebilir
real sociedad--real madrid.....ilk yarı 2

hepimize bol şanslar arkadaşlar....
L
4 yıl
salı mac yorumlarım
kaiserslautern--f. dusseldorf.... karşılıklı gol var
monaco---------angers............mac sonu 1..karşılıklı gol var... ilk yarı 1.5 üst tercih sizin
schalke-------herta berlin.......mac sonucu 1...ilk yarı 1.5 üst....tercih sizin
birmingham----coventry.......... mac sonucu 1...ilk yarı 1.5 üst....tercih sizin
cardıff cıty---readıng..........ilk yarı 0......ilk yarı 1.5 üst....tercih sizin
cean--------cham.niort..........mac sonucu 1 .... 1/1.... ilk yarı 1.5 üst tercih sizin
lorient-----le mans.....mac sonucu..1.....ilk yarı 1.5 üst.... tercih sizin
orleans-----rod.aveyro...........ilk yarı 0
parıs----ajaccio................karşılıklı gol var
nantes--parıs saınt germain......ilk yarı 1.5 üst....karşılıklı gol var tercih sizin
-------------------------------------------------------------------------------
lens --troyes..........ilk yarı 0 olabilir
granada--valencia......ilk yarı 0 olabilir
L
5 yıl
kupon ve canlı bahis kuponları takip
manoco--marseille....2.5 üst banko
canlı bahiste
arjantin--ispanya deplasman 80.5 üst
toplam sayıda 148.5 ust olur bunda calı bahislerde takip edin en uygun bahisi secin
diger idda maclarını vericem
L
5 yıl
fransa 2 ligi
159 guingamp-orleans macı tahminim---- karşılıklı gol var--ilk yarı 1.5 üst--ilk yarı mac soonucu 0/2 hangisi isterseniz oynayın
160 le mans-valenciennes macı tahminim ---- karsılıklı gol var--- ilk yarı 1.5 üst---ilk yarı mac sonucu 0/0 hangisini isterseniz
163 sochaux-auxerre macı tahmini----mmac sonucu 0 ---- ilk yarı mac sonucu 2/0 tercih sizindir
hepimize bol şanslar..... üç macın tam analizini yazdım..
L
5 yıl
usta
butun tadilat işlerinizde yardımcı olunur bilgi verilir

laminant parke
fyans döseme
komple kırım banyo ve tesisat
her turlü bilgi ve soru için yazabilirsiniz arkadaşlar
L
5 yıl
iddaaya devam
424....1/1 yada ms....1
427....0/2 yada ms....2
428....0/1 yada ms....1
451....0/0 yada ms....0
hepimize bol şanslar arkadaşlar
L
5 yıl
akşam iddası
447.....ıy/ms.....1/1
457.....ıy/ms.....1/1
130.....ıy/ms.....1/1
toplam oran 13.82 dir denemek isteyen oynuyabilir
birde suprız verecem

127.....ıy/ms......2/0
128.....ıy/ms......2/0
452.....ıy/ms/.....2/0
sistem deneyebilirsiniz arkadaşlar hepimize bol şanslar
L
5 yıl
akşam iddaası
154....ıy/ms....2/2...yada mac sonucu 2
156....iy/ms....2/2...yada mac sonucu 2
157....iy/ms....2/2...yada mac sonucu 2

bi sistem yada mac sonucu ufak bi bahis yapılarak gece gecirilebilir
L
5 yıl
laminant parke
siz degerli donanm haber arkadaşlarına laminant parke hakkında elimden geldigi kadar bilgilendirme ve satış yapılır.
laminant parke döşemeside yapılır. izmir de bulunmaktayım.
artı dekarasyon işlerimizde mevcuttur sadece mutfak yapmıyoruz..
ustalarla ugraşmak istemiyoruz diyorsanız elimden geldigi kadar yardımcı olabilirim.
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.