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, 22 tháng 4, 2011

Đăng ký và lấy 0,5$ hằng ngày cùng Payweb


Hướng dẫn đk Payweb - Bonus free 0.5$ daily!!!
Đầu tiên các bạn vào link sau:

 






Sẽ có giao diện:




Các bạn ấn vào dòng chữ "Open Personal Account" theo mũi tên minh họa phía trên



Tiếp theo các bạn điền đầy đủ thông tin vào, rất dễ dàng, sau khi điền xong sẽ có 1 mail gửi về để bạn xác nhận.
Thế là hoàn thành bước tạo tài khoản Payweb
Sau đó các cậu đăng nhập vào tài khoản vừa tạo để xem Payweb ID của mình, đây là 1 dãy gồm 10 số dùng để giao dịch chuyển hoặc nhận tiền.

Cách lấy Bonus hàng ngày:





Hằng Ngày các bạn vào site: http://05daily.blogspot.com/ để nhập ID và get $ nhé. Để lại time mà các bạn Get bouns + acc LR  cho mình bik để chuyển tiền

Nhập vào dãy số ID, ấn Get a Bonus và làm theo các bước xác nào
Bạn sẽ có ngay 0.5$ trong tài khoản Payweb, đơn giản phải ko nào.
Get $0.5 credited instantly to your Payweb account!













Đặc biệt mỗi ngày (duy nhất mỗi ngày một lần thôi) các bạn đều nhận đươc bonus như thế, vì thế mỗi ngày nên dành ra vài phút để lấy 0.5$ tiếp tục làm đầy tài khoản.

Tiền này dùng để exchange sang LR, hoặc để dành đợi nó trở nên phổ biến hơn lúc đó bán cho các exchanger
Nếu ex sang LR các bạn vào lại trang
: https://paywebexchange.com/
Ấn vào khung Sell payweb, điền các thông tin rồi ấn exchange để hiện ra trang PW cho các bạn điền các thông tin xác nhận vào.




Phí để ex là 1$, do đó ví dụ khi có 2$ trong PW, các bạn điền vào ô “you want to get” là 1$ vì 2$ trừ phí thì LR còn nhận đc 1$.
Vậy là các bạn có thể kiếm thêm ít tiền trong thế giới MMO rồi.
Sưu tầm.
 Bạn reg xong nó sẽ gửi thông tin về mail.Sau đó bạn chụp CMND và gửi lại cho nó CMND của bạn.Để nó kích hoạt tài khoản.Thông tin đăng ký phải trùng với CMND.

 Đăng ký tài Khoản LR tại đây :

 

Hiển thị chữ TS lên LEd ma trận

Code vi xử lý đây!

PROCESSOR 16F877A
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
#INCLUDE <P16F877A.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'11111100'
    MOVWF    PORTC
    MOVLW    B'11111110'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'11111100'
    MOVWF    PORTC
    MOVLW    B'11111101'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'00000000'  
    MOVWF    PORTC
    MOVLW    B'11111011'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'00000000'
    MOVWF    PORTC
    MOVLW    B'11110111'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'00000000'  
    MOVWF    PORTC
    MOVLW    B'11101111'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'11111100'
    MOVWF    PORTC
    MOVLW    B'11011111'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'11111100'
    MOVWF    PORTC
    MOVLW    B'10111111'
    MOVWF    PORTB
    CALL    DELAY
    MOVLW    B'11111111'
    MOVWF    PORTC
    MOVLW    B'11111111'
    MOVWF    PORTB
    CALL    DELAY  

    MOVLW    B'01111111'
    MOVWF    PORTD
    MOVLW    B'00110011'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'10111111'
    MOVWF    PORTD
    MOVLW    B'00100001'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11011111'
    MOVWF    PORTD
    MOVLW    B'00100100'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11101111'
    MOVWF    PORTD
    MOVLW    B'00100100'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11110111'
    MOVWF    PORTD
    MOVLW    B'00100100'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11111011'
    MOVWF    PORTD
    MOVLW    B'00000100'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11111101'
    MOVWF    PORTD
    MOVLW    B'10001100'
    MOVWF    PORTC
    CALL    DELAY
    MOVLW    B'11111111'
    MOVWF    PORTD
    MOVLW    B'11111111'
    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

Thứ Năm, 21 tháng 4, 2011

Hiển thị chữ SK lên Led Ma trận

Code vxl hiện thị chữ SK lên LEd ma trận.
Do 2 con Led ma trận của thầy bị hư nên mình bỏ 2 dòng cuối để thể hiện đúng chữ ( thầy chấp nhậ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'00110011'
MOVWF PORTC
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'00100001'
MOVWF PORTC
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'00100100'
MOVWF PORTC
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'00100100'
MOVWF PORTC
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'00100100'
MOVWF PORTC
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000100'
MOVWF PORTC
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'10001100'
MOVWF PORTC
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111111'
MOVWF PORTC
MOVLW B'11111111'
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'11100111'
MOVWF PORTC
CALL DELAY
MOVLW B'11101111'
MOVWF PORTD
MOVLW B'11000011'
MOVWF PORTC
CALL DELAY
MOVLW B'11110111'
MOVWF PORTD
MOVLW B'10011001'
MOVWF PORTC
CALL DELAY
MOVLW B'11111011'
MOVWF PORTD
MOVLW B'00111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111101'
MOVWF PORTD
MOVLW B'01111110'
MOVWF PORTC
CALL DELAY
MOVLW B'11111111'
MOVWF PORTD
MOVLW B'11111111'
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

Thứ Hai, 18 tháng 4, 2011

có cái máy in nè!

Có mấy bạn hỏi mình làm sao để in được orcad. Có mấy bạn cứ copy qua word nhưng phần mạch thì người ta đòi file *.pdf
Bạn cứ cài đặt bình thường. xong! vẽ mạch bấm print---> xong!
Ai có chương trình nào nhẹ nhẹ hơn chia sẽ nha!
đây nè! http://www.mediafire.com/?ugf811st0ura8fc


Mr Duxuzi


Hình minh hoạ:
Các bạn làm thử nhé!

Vào File chọn Print/...


Sau đó tích vào như hình vẽ và nhấn ok



Nhấn Print


Chọn nơi save và đặt tên




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

Hiện chữ M.U lên LED ma trận






Code hiện chữ M.U 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'00000001'
MOVWF PORTC
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'11111001'
MOVWF PORTC
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'11110011'
MOVWF PORTC
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110011'
MOVWF PORTC
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'11111001'
MOVWF PORTC
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000001'
MOVWF PORTC
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00000000'
MOVWF PORTC
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY

MOVLW B'01111111'
MOVWF PORTD
MOVLW B'00111111'
MOVWF PORTC
CALL DELAY
MOVLW B'10111111'
MOVWF PORTD
MOVLW B'00111111'
MOVWF PORTC
CALL DELAY
MOVLW B'11011111'
MOVWF PORTD
MOVLW B'10000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11101111'
MOVWF PORTD
MOVLW B'00111111'
MOVWF PORTC
CALL DELAY
MOVLW B'11110111'
MOVWF PORTD
MOVLW B'00111111'
MOVWF PORTC
CALL DELAY
MOVLW B'11111011'
MOVWF PORTD
MOVLW B'10000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11111101'
MOVWF PORTD
MOVLW B'10000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11111110'
MOVWF PORTD
MOVLW B'11000000'
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 Tiến Dũng

Hiển thị chữ LQ lên led ma trận

Code hiện chữ LQ 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'00111111'
MOVWF PORTC
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY

MOVLW B'01111111'
MOVWF PORTD
MOVLW B'10000001'
MOVWF PORTC
CALL DELAY
MOVLW B'10111111'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11011111'
MOVWF PORTD
MOVLW B'00111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11101111'
MOVWF PORTD
MOVLW B'00111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11110111'
MOVWF PORTD
MOVLW B'10011100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111011'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11111101'
MOVWF PORTD
MOVLW B'00100001'
MOVWF PORTC
CALL DELAY
MOVLW B'11111110'
MOVWF PORTD
MOVLW B'00111111'
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 Tiến Dũng)

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)

Code VXL hiển thị chữ lên Led Ma trận


Code vi xử lý hiện chữ VT lên LED ma trận
Đã test ok...^^!


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'11110000'
MOVWF PORTC
MOVLW B'11111110'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTC
MOVLW B'11111101'
MOVWF PORTB
CALL DELAY
MOVLW B'10001111'
MOVWF PORTC
MOVLW B'11111011'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'11110111'
MOVWF PORTB
CALL DELAY
MOVLW B'00111111'
MOVWF PORTC
MOVLW B'11101111'
MOVWF PORTB
CALL DELAY
MOVLW B'10001111'
MOVWF PORTC
MOVLW B'11011111'
MOVWF PORTB
CALL DELAY
MOVLW B'11100000'
MOVWF PORTC
MOVLW B'10111111'
MOVWF PORTB
CALL DELAY
MOVLW B'11110000'
MOVWF PORTC
MOVLW B'01111111'
MOVWF PORTB
CALL DELAY

MOVLW B'01111111'
MOVWF PORTD
MOVLW B'11111100'
MOVWF PORTC
CALL DELAY
MOVLW B'10111111'
MOVWF PORTD
MOVLW B'11111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11011111'
MOVWF PORTD
MOVLW B'11111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11101111'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11110111'
MOVWF PORTD
MOVLW B'00000000'
MOVWF PORTC
CALL DELAY
MOVLW B'11111011'
MOVWF PORTD
MOVLW B'11111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111101'
MOVWF PORTD
MOVLW B'11111100'
MOVWF PORTC
CALL DELAY
MOVLW B'11111110'
MOVWF PORTD
MOVLW B'11111100'
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 Tiến Dũng)

Thứ Bảy, 9 tháng 4, 2011

Code vi xử lý 16f877a đếm sản phẩm 00-99

PROCESSOR 16F877A
#INCLUDE
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF
DONVI EQU 20H
CHUC EQU 21H
DEM EQU 23H
ORG 0000H

          BCF STATUS,6
          BSF STATUS,5
          MOVLW B'11110000'
          MOVWF TRISB
          BCF TRISD,0
          BCF TRISA,0
          BCF TRISA,1
          BSF TRISA,2
          BCF STATUS,5
          CLRF PORTA
          CLRF PORTB
          CLRF PORTD
          MOVLW D'0'
          MOVWF DONVI
          MOVLW D'0'
          MOVWF CHUC
MAIN         

          MOVF DONVI,W
          MOVWF PORTB
          MOVLW B'11111110'
          MOVWF PORTA
          CALL DELAY
          MOVF CHUC,W
          MOVWF PORTB
          MOVLW B'11111101'
          MOVWF PORTA
          CALL DELAY

BATDAUDEM

          BTFSS PORTB,6
          GOTO KT
          GOTO MAIN
KT
          BTFSS PORTB,6
          GOTO BATDAUDEM
          INCF DONVI,1
          MOVLW D'10'
          XORWF DONVI,0
          BTFSS STATUS,2
          GOTO BATDAUDEM
LOOP
          CLRF DONVI
          INCF CHUC,1
          MOVLW D'10'
          XORWF CHUC,0
          BTFSS STATUS,2
          GOTO BATDAUDEM
          CLRF CHUC
          BSF PORTD,0
          GOTO BATDAUDEM

DELAY
          BSF STATUS,5
          BCF STATUS,6
          BCF OPTION_REG,3
          BCF OPTION_REG,2
          BCF OPTION_REG,1
          BSF OPTION_REG,0
          BCF STATUS,5
          MOVLW D'20'
          MOVWF DEM
BATDAU
          MOVLW D'130'
          MOVWF TMR0
          BSF STATUS,5
          BCF OPTION_REG,5
          BCF STATUS,5
LOOP1
          BTFSS INTCON,2
          GOTO LOOP1
          BCF INTCON,2
          DECFSZ DEM,1
          GOTO BATDAU
 
RETURN

END

Muốn lấy file proteus mô phỏng liên hệ yahoo: dinh_tien_dung.0112@yahoo.com