Code cho pic 16f877a-quét 8 Led đơn

[222222222]

Nguyên văn bởi kenvinlam

Em mới học về pic. Bác nào biết code quét 8 led đơn chạy đuổi nhau dùng MPLAB cho em xin được không! Em nghiên cứu hoài ma không ra.

PROCESSOR P16F877A
INCLUDE <P16F877A.INC>
_CONFIG H'3F10'
ORG 0X0000
GOTO START
START BSF STATUS,5
CLRF TRISB
BCF STATUS,5
CLRF PORTB
LOOP MOVLW B'00000001'
MOVWF PORTB
CALL DELAY2
MOVLW B'00000010'
MOVWF PORTB
CALL DELAY2
MOVLW B'00000100'
MOVWF PORTB
CALL DELAY2
MOVLW B'00001000'
MOVWF PORTB
CALL DELAY2
MOVLW B'00010000'
MOVWF PORTB
CALL DELAY2
MOVLW B'00100000'
MOVWF PORTB
CALL DELAY2
MOVLW B'01000000'
MOVWF PORTB
CALL DELAY2
MOVLW B'10000000'
MOVWF PORTB
CALL DELAY2
GOTO LOOP
DELAY1 MOVLW .166
MOVLW 20H
LOOP1 DECFSZ 20H
GOTO LOOP1
RETURN
DELAY2 MOVLW .40
MOVWF 21H
LOOP2 CALL DELAY1
DECFSZ 21H
GOTO LOOP2
RETURN
END

ngoài ra bạn có thể dùng kĩ thuật bảng