'----------------------------------------------------------- 'Programın adı: Uyg_12_serout.bas 'Programın işlevi: IRserout alt programını kullanarak 16F877A'nın PortC.0 pin'inden IR LED aracılığı ile 0'dan 255'e kadar sayıları 1'er byte'lık veriler halinde gönderir. 'Tarih:28/08/2007 Uyarlama:1.00 Derleyici:PBP '----------------------------------------------------------- INLUDE "Modedefs.Bas" INCLUDE "Uyg_12_include.bas" Define OSC 4 ' Kristal frekansını kur. ' IRSEROUT tanımlamaları Define IRSEROUT_PORT PortC ' IRSEROUT çıkış Portu Define IRSEROUT_PIN 0 ' IRSEROUT çıkış pin'i Define IRSEROUT_BAUD 1200 ' IRSEROUT Baud Rate değeri i var byte ' 0'dan 255'e sayma değişkeni. Ana_dongu: for i=1 to 255 IR_Byteout = i ' i sayısını IR_ByteOut'a yükle GOSUB IRSerout ' IRserout alt programını çağır, pause 200 ' 200 mSn aralıklarla i'yi gönder. next Goto Ana_dongu ' İşlemi devamlı yap. '------------------------------------------------------------