PIC Vietnam - Quét LED dùng lệnh quay

Tham khảo tài liệu liệu từ diễn đàn, đệ cũng ghép nối được một vài bài về nháy led, đưa thử một bài cho anh em mới bắt đầu với Pic tham khảo. Nội dung là nháy lần lượt 8 Led, dùng lệnh rotate.

Code:

#include <16F877A.h>

#include <DEFS_16F877A.h>

#FUSES NOWDT, HS, NOPUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOCPD, NOWRT

#device 16F877A*=16 ADC=8

#use delay(clock=20000000)

#use fast_io(B)

unsigned char a;

void main()

{

// Thiet lap cho PORTB

SET_TRIS_B(0x00); //Tat ca PORTB deu la cong xuat du lieu

a=0x01;

While(TRUE)

{

   PORTB =a;

   delay_ms(500);

   rotate_left(&a,1);

}

}