16F877 MicroController ve PicBasic Pro ile LED kontrolü

Devre Şeması(ISIS):

Picbasic Kodu:

'****************************************************************
'****************************************************************
'*  Name    : LED_Kontrol.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 20.11.2015                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'***************************************************************
TRISB=%00000000 'B0-B7 portlarini çıkış olarak ayarla
ikili VAR BYTE  '1 byte'lık bir değişken tanımla
ikili=0
PORTB=ikili     'B portlarinin çıkış degerlerini 00000000 yap
main:
     ikili=ikili+1
     PORTB=ikili
     PAUSE 100  '100 milli saniye dur
     IF ikili=127 THEN   ikili=0
goto main

Bu PicBasic kodu,0-127 arası sayıları saymakda ve bu sayıların ikili karşılıklarini portb'e gondererek,led ler uzerinde göstermekdedir.Yanan led'ler 1'e,yanmayanlar 0'a karşılık gelmektedir.