Chatbox Điện Tử Viễn Thông 09A

Tiến Dũng chào mừng các bạn đến với Điện Tử Viễn Thông 09A!
Cấm nói tục chửi thề...^^!

Thứ Sáu, 15 tháng 4, 2011

Hiển thị chữ PR lên LED ma trận

Code vi xử lý hiện chữ PR lên LED ma trận


PROCESSOR 16F877A
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
#INCLUDE <16f877a.inc>
DEM1 EQU 20H
DEM2 EQU 21H
ORG 0000H
BCF STATUS,5
BCF STATUS,6
CLRF PORTB
CLRF PORTC
CLRF PORTD
BSF STATUS,5
CLRF TRISB
CLRF TRISC
CLRF TRISD
BCF STATUS,5
MAIN
MOVLW B'00000000'
MOVWF PORTC
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTC
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11100100'
MOVWF PORTC
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11100100'
MOVWF PORTC
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11100100'
MOVWF PORTC
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11100100'
MOVWF PORTC
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTC
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110001'
MOVWF PORTC
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY

MOVLW B'01111111'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'10111111'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11011111'
MOVWF PORTD
MOVLW B'11000100'
MOVWF PORTC
CALL DELAY
MOVLW B'11101111'
MOVWF PORTD
MOVLW B'10000100'
MOVWF PORTC
CALL DELAY
MOVLW B'11110111'
MOVWF PORTD
MOVLW B'00000100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111011'
MOVWF PORTD
MOVLW B'00100100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111101'
MOVWF PORTD
MOVLW B'01100000'
MOVWF PORTC
CALL DELAY
MOVLW B'11111110'
MOVWF PORTD
MOVLW B'11110001'
MOVWF PORTC
CALL DELAY
GOTO MAIN
DELAY
BSF STATUS,5
MOVLW B'0000'
MOVWF OPTION_REG
BCF STATUS,5
MOVLW D'25'
MOVWF DEM1
BATDAU
MOVLW D'230'
MOVWF TMR0
BSF STATUS,5
BCF OPTION_REG,5
BCF STATUS,5
LOOP
BTFSS INTCON,2
GOTO LOOP
BCF INTCON,2
DECFSZ DEM1,1
GOTO BATDAU
RETURN

END


( write by Hữu Bình & Minh Khải)
Post by vào lúc
Nhãn:

2 nhận xét:

  1. Nặc danhlúc 04:40 2 tháng 6, 2013

    Awesome! Its genuinely awesome piece of writing, I have got much clear idea regarding from this paragraph.


    http://applescore.org/groups/how-to-buy-real-active-twitter-followers-on-corporate-contact/
    http://amherstblock.com/index.php?do=/profile-29298/info/
    http://amazonface.com/index.php?do=/blog/25059/features-of-browsing-twitter-followers-pertaining-to-businesses/add-comment/
    http://aozkentavros.gr/content/realizing-internet-marketing-overall-performance-through-social-media-services-and-therefore
    http://anepowa.com/newsite/?topic=as-an-alternative-marketing-regimen-buy-twitter-followers-get-twitter-followers

    my web blog falgs

    Trả lờiXóa
  2. Nặc danhlúc 12:20 2 tháng 6, 2013

    Appreciation to my father who shared with me regarding this weblog, this web site
    is genuinely awesome.

    http://arthemuz.free.fr/BeauxBatons/profile.php?
    mode=viewprofile&u=22937
    http://argentina.campusvirtualsp.org/?q=node/3083
    http://aquamira.com/author/BobbieJet
    http://armyofdrunks.com/topic/ordinary-advice-for-buy-twitter-followers-at-affordable-price-clarified/
    http://argucom.in/node/10044

    My weblog :: leight

    Trả lờiXóa

Đăng ký: Đăng Nhận xét (Atom)