'---------------------------------------------------------
'Programın adı: Uyg_12_serin.bas
'Programın işlevi: Uyg_12_serout.bas alt programından IR LED ile gönderilen 0'dan 255'e doğru artan verileri alır ve PortB'ye bağlı 8 LED'de binary sayılar biçiminde gösterir. 
'Tarih:28/08/2007	Uyarlama:1.00		Derleyici:PBP
'---------------------------------------------------------

	Include "Modedefs.Bas"

	Define	OSC		4			' Kristal frekansını kur.

' Değişken tanımları
	SI		Var	PortC.1			' SERIN giriş pin'ini PORTC.1' e kur.
	IR_Rcv		Var	Byte		' Alınan verinin saklandığı değişken

' Sabit tanımları
	Baud	Con	T1200		' Baud rate hızını gönderici ile aynı
								' (1200) yap, mod'u terslenmiş mod'a kur.
	TRISB=0          ' PortB'ye LED'ler bağlı, çıkış yap.

	Pause 400							' PIC'in kurulumları için bekle.

Ana_dongu:	
	Serin SI,Baud,IR_Rcv		' IR alıcıdan verileri al. 

	PORTB = IR_Rcv				'IR_Rcv'deki byte'ı LED'lere gönder.
    
	Goto Ana_dongu					' İşlemi devamlı yap.
'---------------------------------------------------------