Code:
Dim digit As Byte
Dim mask As Byte
TRISB = %00000000
OSCCON = OSCCON Or 0x70
loop:
For digit = 0 To 7
mask = LookUp(0xfc, 0xf9, 0xf3, 0xe7, 0xcf, 0x9f, 0x3f, 0x7e), digit
LATB = mask
WaitMs 500
Next digit
Goto loop
Trên đây là code trong Basic compiler của PIC18 Simulator, dùng 8 bit của port B để thử LED, kiểu knight rider, anode của các LED nối lên Vdd qua điện trở thanh. Đã compile với cấu hình bộ dao động nội. Bạn nạp thử tập tin hex gửi kèm xem mạch có làm việc không.
Thân,