아두이노 > 아두이노 - 가까울 수록 LED ON 갯수가 증가

TODAY179 TOTAL270,695
사이트 이용안내
Login▼/회원가입
포럼 동영상강좌 회원가입


▼ BASIC4MCU 후원업체 최신 정보 ▼

▲ BASIC4MCU 후원업체 최신 정보 ▲

BASIC4MCU | 아두이노 | 아두이노 | 아두이노 - 가까울 수록 LED ON 갯수가 증가

페이지 정보

작성자 master 작성일2018-06-10 09:59 조회375회 댓글0건

본문

	

 

// DateTime : 2018-06-10 오전 10:02:14
// by Ok-Hyun Park
//
#define RED    10
#define YELLOW 11
#define GREEN  12
#define BUZZ   13
//
void led(int r,int y,int g){
  digitalWrite(RED,r); digitalWrite(YELLOW,y); digitalWrite(GREEN,g);
}
//
void setup(){
  pinMode(TRIG,OUTPUT); pinMode(ECHO,INPUT);
  pinMode(RED,OUTPUT); pinMode(YELLOW,OUTPUT); pinMode(GREEN,OUTPUT); pinMode(BUZZ,OUTPUT);
  Serial.begin(9600);
}
//
void loop(){
  digitalWrite(TRIG,HIGH); delayMicroseconds(10); digitalWrite(TRIG,LOW);
  int distance=pulseIn(ECHO,HIGH)*17/1000Serial.println(distance);
  //
  if(distance>60){
    led(0,0,0); noTone(BUZZ); // LED ALL OFF
  }
  else if(distance>40){
    led(0,0,1); tone(BUZZ,2093,500); delay(500); // LED 1개 ON
    led(0,0,0); noTone(BUZZ);        delay(500); // LED ALL OFF
  }
  else if(distance>20){
    led(0,1,1); tone(BUZZ,2093,300); delay(300); // LED 2개 ON
    led(0,0,0); noTone(BUZZ);        delay(300); // LED ALL OFF
  }
  else if(distance>10){
    led(1,1,1); tone(BUZZ,2093,300); delay(200); // LED 3개 ON
    led(0,0,0); noTone(BUZZ);        delay(200); // LED ALL OFF
  }
  else{
    led(1,1,1); tone(BUZZ,2093,100); // LED 3개 ON
  }
}

 

댓글 0

조회수 375

등록된 댓글이 없습니다.

아두이노HOME > 아두이노 > 전체 목록

아두이노 목록
제목 작성자 작성일 조회
305 아두이노 작동 중인 팬모터를 블루투스와 연결된 앱으로 RPM 조절하는 코드를 추가해야하는데요. 새글 RobustWalKeR 18-10-19 7
답변 답변글 답변 : 작동 중인 팬모터를 블루투스와 연결된 앱으로 RPM 조절하는 코드를 추가해야하는데요. 새글 master 18-10-19 5
303 아두이노 master님 rc카 적외선센서 추가 질문 해도될까요? ㅠㅠ 새글 윤재 18-10-19 7
답변 답변글 답변 : master님 rc카 적외선센서 추가 질문 해도될까요? ㅠㅠ 댓글[1] 새글 master 18-10-19 6
301 아두이노 앱인벤터 스크린마다 블루투스 댓글[1] 새글 intoo07 18-10-19 11
300 아두이노 온도가 특정 온도 이상이면 팬이 동작하지 않고, 그 온도로 코드를 수정하면 팬이 작동합니다. 새글 RobustWalKeR 18-10-18 8
답변 답변글 답변 : 온도가 특정 온도 이상이면 팬이 동작하지 않고, 그 온도로 코드를 수정하면 팬이 작동합니다. 새글 master 18-10-18 6
298 아두이노 앱인벤터를 이용해 블루투스 통신 오류해결 댓글[1] 새글 개준범 18-10-18 10
297 아두이노 아두이노 우노보드R3 로 블루투스 스피커를 만들려고 하는데요 댓글[2] 새글 ㅁㅋㄴㅌ 18-10-18 14
296 아두이노 12v 팬 구동하려고합니다. 새글 zi9104 18-10-18 14
답변 답변글 답변 : 12v 팬 구동하려고합니다. 댓글[7] 새글 master 18-10-18 26
294 아두이노 아두이노 I2C.h 댓글[5] 새글 김리락 18-10-18 13
293 아두이노 2축 엑츄에이터 사용법 댓글[1] 이미지 날다람쥐 18-10-17 20
292 아두이노 온습도출력까진 되는데 그 뒤에 팬이 동작하지를 않습니다. 이미지첨부파일 RobustWalKeR 18-10-17 14
답변 답변글 답변 : 온습도출력까진 되는데 그 뒤에 팬이 동작하지를 않습니다. 댓글[5] master 18-10-17 23
게시물 검색

Privacy Policy
MCU BASIC ⓒ 2017