天堂草原最受欢迎的角色,天堂动漫,天堂在线,色天堂下载,天堂中文在线资源,亚洲男人天堂

技術熱線: 4007-888-234
設計開發

專注差異化嵌入式產品解決方案 給智能產品定制注入靈魂給予生命

開發工具

提供開發工具、應用測試 完善的開發代碼案例庫分享

技術支持

從全面的產品導入到強大技術支援服務 全程貼心伴隨服務,創造無限潛能!

新品推廣

提供新的芯片及解決方案,提升客戶產品競爭力

新聞中心

提供最新的單片機資訊,行業消息以及公司新聞動態

單片機開發--鍵控LED的實驗

更新時間: 2019-01-05
閱讀量:2044

本實驗的目的是讓大家熟悉IO口的輸入操作,本程序的作用是用按鍵控制LED

;按S2時只有LED8發光,按S3時只有LED7發光,按S4時只有LED6發光,按S5時只有LED5發光
;PIC單片機學習網——-http://www.pic16.com
;燒寫時應注意:配置位已經在程序中寫明,加載HEX文件時會自動加載,燒寫時不用再手動設置配置位。
;實驗時請注意套件跳線選擇
;**
LIST P=16F84A,R=DEC ;定義器件為16F84,默認數制為十進制
;————————————————————————————————
__CONFIG B’11111111110001’;_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
;沒有代碼保護
;看門狗關閉
;上電廷時器開啟
;振蕩器模式為XT
;————————————————————————————————
STATUS EQU 03H ;寄存器單元定義
RP0 EQU 5
;———————————

PORTA EQU 05H
PORTB EQU 06H

TRISA EQU 5H
TRISB EQU 6H
;———————————- ;變量單元定義
DATA1 EQU 20H
;———————————RA
KEY1 EQU 3
KEY2 EQU 4
;———————————RB
KEY3 EQU 0
KEY4 EQU 1
;——————————
ORG 0000H
MAIN
CLRF PORTA ;初始IO口
CLRF PORTB

BSF STATUS,RP0 ;設置數據寄存器體1
MOVLW 00011000B ;定義RA。3,RA。4為輸入其它為輸出
MOVWF TRISA

MOVLW 00000011B ;定義RB。0,RB。1為輸入其它為輸出
MOVWF TRISB
BCF STATUS,RP0 ;恢復數據寄存器體0

LOOP
BTFSS PORTA,KEY1 ;掃描按鍵,有按鍵被按下轉到鍵值處理
GOTO SET_KEY1
BTFSS PORTA,KEY2
GOTO SET_KEY2
BTFSS PORTB,KEY3
GOTO SET_KEY3
BTFSS PORTB,KEY4
GOTO SET_KEY4
GOTO LOOP ;反復掃描
;————————————————-
SET_KEY1
BTFSC PORTA,KEY1 ;是干擾退出
GOTO LOOP
MOVLW 255
MOVWF DATA1
SET_KEY1A
BTFSC PORTA,KEY1 ;去抖動
GOTO LOOP
DECFSZ DATA1,1
GOTO SET_KEY1A
MOVLW 03H
ANDWF PORTB,1 ;熄滅所有LED
MOVLW 80H
IORWF PORTB,1 ;點亮LED8
SET_KEY1B
BTFSS PORTA,KEY1 ;等待按鍵放開
GOTO SET_KEY1B
GOTO LOOP
;————————————————-
SET_KEY2
BTFSC PORTA,KEY2
GOTO LOOP
MOVLW 255
MOVWF DATA1
SET_KEY2A
BTFSC PORTA,KEY2
GOTO LOOP
DECFSZ DATA1,1
GOTO SET_KEY2A

MOVLW 03H
ANDWF PORTB,1
MOVLW 40H
IORWF PORTB,1 ;按S3點亮LED7
SET_KEY2B
BTFSS PORTA,KEY2
GOTO SET_KEY2B
GOTO LOOP
;————————————————-
SET_KEY3
BTFSC PORTB,KEY3
GOTO LOOP
MOVLW 255
MOVWF DATA1
SET_KEY3A
BTFSC PORTB,KEY3
GOTO LOOP
DECFSZ DATA1,1
GOTO SET_KEY3A
MOVLW 03H
ANDWF PORTB,1
MOVLW 20H
IORWF PORTB,1 ;按S4點亮LED6
SET_KEY3B
BTFSS PORTB,KEY3
GOTO SET_KEY3B
GOTO LOOP
;————————————————-
SET_KEY4
BTFSC PORTB,KEY4
GOTO LOOP
MOVLW 255
MOVWF DATA1
SET_KEY4A
BTFSC PORTB,KEY4
GOTO LOOP
DECFSZ DATA1,1
GOTO SET_KEY4A
MOVLW 03H
ANDWF PORTB,1
MOVLW 10H
IORWF PORTB,1
SET_KEY4B
BTFSS PORTB,KEY4 ;按S5點亮LED5

GOTO SET_KEY4B
GOTO LOOP
;————————————————-
END

联系我们: 阜新| 扶绥县| 京山县| 基隆市| 山东省| 翁源县| 昌都县| 信宜市| 寿阳县| 高阳县| 榆中县| 镇康县| 策勒县| 大同市| 云浮市| 普兰店市| 吉木乃县| 石嘴山市| 修文县| 镶黄旗| 墨脱县| 定远县| 项城市| 阜城县| 西青区| 拉孜县| 泰州市| 衡阳县| 江城| 霍邱县| 齐齐哈尔市| 北辰区| 昌乐县| 陵川县| 扶余县| 石楼县| 朝阳县| 广东省| 洛扎县| 信阳市| 竹山县|