Mạch đèn viền bảng

[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);

}
}
}

[PIC-NGHEO]

Hex file

:1000000000308A001928000010308400000803190D
:10001000182803308D008C018C0B0C288D0B0B28BD
:100020003C308C008C0B122800000000800B09284B
:10003000003484011F3083058F010F08133C031C1B
:100040004F288316061083120614463090000420B1
:1000500083160610831206108316861083128614E8
:100060004630900004208316861083128610831673
:1000700006118312061546309000042083160611DF
:10008000831206118316861183128615463090005E
:10009000042083168611831286118F0A1D288F0172
:1000A0000F08133C031C82288316061083120610C7
:1000B000463090000420831606108312061483161F
:1000C0008610831286104630900004208316861016
:1000D000831286148316061183120611463090008F
:1000E00004208316061183120615831686118312C7
:1000F00086114630900004208316861183128615DF
:100100008F0A50288F010F08133C031CB528831653
:1001100086118312861546309000042083168611BE
:10012000831286118316061183120615463090003D
:10013000042083160611831206118316861083127B
:100140008614463090000420831686108312861091
:10015000831606108312061446309000042083167E
:100160000610831206108F0A83288F010F08133C94
:10017000031CE828831686118312861146309000EE
:1001800004208316861183128615831606118312A6
:1001900006114630900004208316061183120615BE
:1001A0008316861083128610463090000420831632
:1001B00086108312861483160610831206104630AA
:1001C0009000042083160610831206148F0AB628A6
:1001D0008F010F08093C031C152983160610831292
:1001E0000614831686108312861483160611831252
:1001F000061583168611831286159630900004200A
:10020000831606108312061083168610831286103A
:100210008316061183120611831686118312861126
:100220009630900004208F0AE9288F010F08093CBE
:10023000031C4229831606108312061483168610A7
:1002400083128614831606118312061183168611F3
:1002500083128611963090000420831606108312B4
:1002600006108316861083128610831606118312D9
:100270000615831686118312861596309000042089
:100280008F0A16298F010F08093C031CB929831610
:1002900006108312061423309000042083160610E3
:1002A0008312061023309000042083160610831258
:1002B00006142330900004208316061083120610C3
:1002C0002330900004208316861083128614233076
:1002D000900004208316861083128610233090002D
:1002E0000420831686108312861423309000042085
:1002F0008316861083128610233090000420831604
:10030000061183120615233090000420831606116F
:1003100083120611233090000420831606118312E5
:10032000061523309000042083160611831206114F
:100330002330900004208316861183128615233003
:1003400090000420831686118312861123309000BA
:100350000420831686118312861523309000042012
:1003600083168611831286112330900004208F0A91
:1003700043298F010F08093C031C302A83160610FD
:100380008312061023309000042083160610831277
:1003900006142330900004208316061083120610E2
:1003A0002330900004208316061083120614233095
:1003B000900004208316861083128610233090004C
:1003C00004208316861083128614233090000420A4
:1003D0008316861083128610233090000420831623
:1003E0008610831286142330900004208316061191
:1003F0008312061123309000042083160611831205
:10040000061523309000042083160611831206116E
:100410002330900004208316061183120615233022
:1004200090000420831686118312861123309000D9
:100430000420831686118312861523309000042031
:1004400083168611831286112330900004208316B0
:100450008611831286152330900004208F0ABA2952
:100460008F010F08093C031CA72A831686118312EB
:10047000861523309000042083168611831286117E
:1004800023309000042083168611831286152330B2
:100490009000042083168611831286112330900069
:1004A00004208316061183120615233090000420C1
:1004B0008316061183120611233090000420831640
:1004C00006118312061523309000042083160611AE
:1004D00083120611233090000420831686108312A5
:1004E0008614233090000420831686108312861011
:1004F0002330900004208316861083128614233044
:1005000090000420831686108312861023309000FA
:100510000420831606108312061423309000042052
:1005200083160610831206102330900004208316D1
:100530000610831206142330900004208316061040
:10054000831206102330900004208F0A312A8F0175
:100550000F08093C031C1E2B83168611831286117B
:1005600023309000042083168611831286152330D1
:100570009000042083168611831286112330900088
:1005800004208316861183128615233090000420E0
:10059000831606118312061123309000042083165F
:1005A00006118312061523309000042083160611CD
:1005B0008312061123309000042083160611831243
:1005C00006152330900004208316861083128610AF
:1005D0002330900004208316861083128614233063
:1005E000900004208316861083128610233090001A
:1005F0000420831686108312861423309000042072
:1006000083160610831206102330900004208316F0
:10061000061083120614233090000420831606105F
:1006200083120610233090000420831606108312D4
:1006300006142330900004208F0AA82A8F010F0887
:10064000093C031C4B2B83160610831206148316D9
:1006500086108312861483160611831206158316DC
:10066000861183128615963090000420831606109A
:1006700083120610831686108312861083160611C5
:10068000831206118316861183128611963090000C
:0A06900004208F0A1F2B1C286300B2
:02400E00FA3F77
:00000001FF
;PIC16F84A

----------------------------------------------
Copy and pate vào Notepad, sau đó Save as... chọn tiêu chuẩn All files với tên ledxx.HEX