Cny70 renk algılama projesi pic16f84 picbasic

CNY70 RENK ALGILAMA

Siyah ve Beyaz renk algılayan sensörümüz çizgi izleyen ve sumo robotlarda kullanılmaktadır. Burdaki amaç; CNY70 renk sensörünün çalışma prensibinin anlatılması.

CNY70 sensörüne üstten baktığımız zaman sol köşedeki koyu mavi kısım led Sağ taraftaki açık beyaz yada saydam olan kısım alıcımız.Ledin + ucu 100ohm Diren ç üzerinden +5V . – ucu ise şaşeye bağlanır. Alıcımızın ok gösteren ucu 47k üzerinden +5V ile pull up yapılmış olarak bağlantı yapılır. Diğer ucu ise şasedir.

Cny70 sensörün çalıştığı fotoğraf makinası yada kamera ile anlaşılır bağlantılar doğru yapıldığı takdirde cny sensör beyaz bir infrared ışık verir gözle görülmez.

Dikkat edilmesi gereken noktalar;

Ledin artı ucuna bağlanan direnç değeri 100 ohm bu değeri azaltırsak cny algılama mesafesi artmış olur örneğin cny bağlanan direnç 100ohm iken Algılama 4…5mm arası 100 direnç değeri azaltılarak algılama hassasiyeti ile Oynanabilinir direnç değeri çok düşerse yada hiç direnç bağlanmassa led ucuna CNY infrared yanabilir.

CNY siyah yada hiç ışık algılamaz ise çıkış +5V civarındadır. Eğer beyaz renk algılarsa CNY çıkışı 0 Volta yakındır.

Kaynak proteus isis ve yazılım dosyaları cny70-pic16f84-renk-algilama.rsr

Test görüntüsü ve açıklama

Devre şeması

Yazılım

'*********************************
'*  Name    : UNTITLED.BAS                     *
'*  Author  : [AYKUT YILMAZ]                  *
'*  Notice  : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                   *
'*  Date    : 29.04.2009                           *
'*  Version : 1.0                                     *
'*  Notes   :  cny70 uygulaması                 *
'*          :                                             *
'********************************

'******GİRİŞ VE ÇIKIŞLAR*****
TRISA=255
TRISB=0
PORTA=0
PORTB=0

'******DEĞİŞKENLER******
SYMBOL CNY70=PORTA.2        'CNY70 RENK SENSÖRÜ
'*****LCD TANIMLAMALARI*****
DEFINE LCD_DREG  PORTB
DEFINE LCD_DBIT  4
DEFINE LCD_EREG  PORTB
DEFINE LCD_EBIT  3
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 2
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_LINES 2
DEFINE LCD_BITS  4

CLEAR
LOW PORTB.2
LCDOUT $FE,1
PAUSE 500

BASLA:
IF CNY70=1 THEN
LCDOUT $FE,1,"SIYAH OKUNUYOR"
lcdout $FE,$C0,"RENK ALGILAMIYOR"
PAUSE 1000
ELSE
LCDOUT $FE,1,"BEYAZ OKUNUYOR"
PAUSE 1000
ENDIF
GOTO BASLA