[PIC-NGHEO]

///////////////////////////////////////////////////////////
//-Mach Den Led vien bang quang cao (update)
//-PIC-NGHEO Thuc hien
//-Thuc hien ngay 23-06-2005 (moi toanh !!!)
//-Phan cung:
// *PIC 16F84A thach anh 10M
// *PIN BO-B1-B2-B3 (ra muc cao=+5V) noi voi led
// qua dien tro 470 om ( la 4 led nha!)
// *Chuc nang moi voi 11 (12) chu ky hieu ung
//
///////////////////////////////////////////////////////////

#include <16F84A.h>
#fuses NOWDT,HS, NOPUT, NOPROTECT
#use delay(clock=10000000)

#define LED_0 PIN_B0
#define LED_1 PIN_B1
#define LED_2 PIN_B2
#define LED_3 PIN_B3

void main()
{
int8 i;

while(TRUE) {

//1- Chay diem sang tu trai qua phai 20 lan

for(i = 0; i < 20; i++) {
output_high(LED_0);
delay_ms(70);
output_low(LED_0);
output_high(LED_1);
delay_ms(70);
output_low(LED_1);
output_high(LED_2);
delay_ms(70);
output_low(LED_2);
output_high(LED_3);
delay_ms(70);
output_low(LED_3);
}

//2- Chay diem den tu trai qua phai 20 lan

for(i = 0; i < 20; i++) {
output_low(LED_0);
delay_ms(70);
output_high(LED_0);
output_low(LED_1);
delay_ms(70);
output_high(LED_1);
output_low(LED_2);
delay_ms(70);
output_high(LED_2);
output_low(LED_3);
delay_ms(70);
output_high(LED_3);
}

//4-Chay diem sang tu phai qua trai 20 lan

for(i = 0; i < 20; i++) {
output_high(LED_3);
delay_ms(70);
output_low(LED_3);
output_high(LED_2);
delay_ms(70);
output_low(LED_2);
output_high(LED_1);
delay_ms(70);
output_low(LED_1);
output_high(LED_0);
delay_ms(70);
output_low(LED_0);
}

//5-Chay diem den tu phai qua trai 20 lan

for(i = 0; i < 20; i++) {
output_low(LED_3);
delay_ms(70);
output_high(LED_3);
output_low(LED_2);
delay_ms(70);
output_high(LED_2);
output_low(LED_1);
delay_ms(70);
output_high(LED_1);
output_low(LED_0);
delay_ms(70);
output_high(LED_0);
}

//6-Chop tat 10 lan

for(i = 0; i < 10; i++) {

output_high(LED_0);
output_high(LED_1);
output_high(LED_2);
output_high(LED_3);
delay_ms(150);
output_low(LED_0);
output_low(LED_1);
output_low(LED_2);
output_low(LED_3);
delay_ms(150);
}

//7-Dao dong flipflop 10 lan

for(i = 0; i < 10; i++) {

output_high(LED_0);
output_high(LED_1);

output_low(LED_2);
output_low(LED_3);
delay_ms(150);

output_low(LED_0);
output_low(LED_1);

output_high(LED_2);
output_high(LED_3);
delay_ms(150);
}

//8-Chop duoi diem sang 10 lan

for(i = 0; i < 10; i++) {
output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);

output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);

output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);

output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);
}

//9-Chop duoi diem den 10 lan

for(i = 0; i < 10; i++) {
output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);

output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);

output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);

output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);
}

//10-Chop duoi nguoc diem sang 10 lan

for(i = 0; i < 10; i++) {
output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);

output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);

output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);

output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);
}

//11-Chop duoi nguoc diem den 10 lan

for(i = 0; i < 10; i++) {
output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);
output_low(LED_3);
delay_ms(35);
output_high(LED_3);
delay_ms(35);

output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);
output_low(LED_2);
delay_ms(35);
output_high(LED_2);
delay_ms(35);

output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);
output_low(LED_1);
delay_ms(35);
output_high(LED_1);
delay_ms(35);

output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);
output_low(LED_0);
delay_ms(35);
output_high(LED_0);
delay_ms(35);
}

//12-Chop tat 10 lan

for(i = 0; i < 10; i++) {

output_high(LED_0);
output_high(LED_1);
output_high(LED_2);
output_high(LED_3);
delay_ms(150);
output_low(LED_0);
output_low(LED_1);
output_low(LED_2);
output_low(LED_3);
delay_ms(150);

}
}
}