精品麻豆一区二区三区乱码-人妻在线免费观看一区二区-欧美日韩在线观看精品99-美女极度色诱视频国产免费
麒麟電子
標(biāo)題:
(LED學(xué)習(xí)板)實(shí)驗(yàn)5--LED紅綠藍(lán)同時(shí)亮滅,同步實(shí)現(xiàn)4
[打印本頁(yè)]
作者:
lxqlzj
時(shí)間:
2012-2-3 14:37
標(biāo)題:
(LED學(xué)習(xí)板)實(shí)驗(yàn)5--LED紅綠藍(lán)同時(shí)亮滅,同步實(shí)現(xiàn)4
;============================================================================
;====================翼芯科技 LED紅綠藍(lán)同時(shí)亮滅,同步=========================
;============================================================================
; 此源碼版權(quán)屬 翼芯科技 全權(quán)享有,如欲引用,敬請(qǐng)署名并告知
; 嚴(yán)禁隨意用于商業(yè)目的,違者必究,后果自負(fù)
; 公司網(wǎng)站 http://www.mcu-led.com
; 公司論壇 http://www.cpu-led.com
; 淘寶店: http://cpu-led.taobao.com/ 和 http://mcu-led.taobao.com/
; 產(chǎn)品咨詢(xún) QQ :1322130074 電話:13715619122
;程序說(shuō)明:本程序用于實(shí)現(xiàn)LLED紅綠藍(lán)同時(shí)亮滅,同步實(shí)現(xiàn),延時(shí)1ms后再次檢測(cè)1次,抗干擾最好.
; IC插到U2位置.
;文件名稱(chēng):LED.ASM
;日期: 2010/12/23
;版本: 1.0
;IC配置位: 內(nèi)部RC 看門(mén)狗開(kāi) MCLRE為輸入
__CONFIG _MCLRE_OFF&_CP_ON&_WDT_ON&_IntRC_OSC;
;=============================================================================
;=============================================================================
;=============================================================================
#INCLUDE <P12F509.INC>; 引導(dǎo)文件
;========================IC輸出口定義=========================================
#define RED1 GPIO,0; //紅色輸出口
#define GREEN1 GPIO,1; //綠色輸出口
#define BLUE1 GPIO,2; //藍(lán)色輸出口
#define PSAA_ZERO GPIO,4; //過(guò)零檢測(cè)口
;=========================狀態(tài)標(biāo)志定義========================================
#define FLAG_ACZ FLAG,0;
#define FLAG_OK FLAG,1;
#define ACZ_HL FLAG,2; //過(guò)零輸入高低電平標(biāo)識(shí)
;=========================變量定義============================================
FLAG EQU 07H; //狀態(tài)標(biāo)志寄存器
T_DELAY EQU 08H; //延時(shí)用
TEMP1 EQU 09H;
DLY1 EQU 0AH;
ACZ_TEMP EQU 0BH;
ACZ_BUF EQU 0CH;
ORG 00H;
GOTO MAIN;
;==============================================================================
;功能描述:過(guò)零檢測(cè)
;隸屬模塊:無(wú)
;參數(shù)說(shuō)明:檢測(cè)50/60Hz過(guò)零,檢測(cè)兩次,兩次檢測(cè)已過(guò)零才確定以過(guò)零.
;返回說(shuō)明:無(wú)
;注:.....
;==============================================================================
AC_TIME:
CLRWDT;
MOVF GPIO,0;
XORWF ACZ_BUF,0; //檢測(cè)過(guò)零
MOVWF ACZ_TEMP;
BTFSS ACZ_TEMP,4; //過(guò)零標(biāo)識(shí)
GOTO AC05;
BTFSC FLAG_OK;
GOTO AC00;
BSF FLAG_OK;
GOTO AC05;
;//===========================================================================
AC00:
BSF FLAG_ACZ;
BCF FLAG_OK;
MOVF GPIO,0; //保存標(biāo)識(shí)
MOVWF ACZ_BUF;
AC05:
RETURN; //中斷反回
;==============================================================================
;功能描述:延時(shí)程序
;隸屬模塊:無(wú)
;參數(shù)說(shuō)明:實(shí)現(xiàn)T_DELAY*10MS的延時(shí)
;返回說(shuō)明:無(wú)
;注:.....
;==============================================================================
DELAY1:
MOVF T_DELAY,0;
MOVWF TEMP1;
D00:
MOVLW .250;
MOVWF DLY1;
D10:
CLRWDT;
DECFSZ DLY1,1;
GOTO D10;
CALL AC_TIME;
BTFSS FLAG_ACZ; //為1,已啟動(dòng)定時(shí)器
GOTO D00; //檢測(cè)過(guò)零
BCF FLAG_ACZ;
DECFSZ TEMP1,1;
GOTO D00;
RETURN
;==============================================================================
;功能描述:主函數(shù),程序開(kāi)始
;隸屬模塊:無(wú)
;參數(shù)說(shuō)明:無(wú)
;返回說(shuō)明:無(wú)
;注:.....
;==============================================================================
MAIN:
MOVLW 0X38; //定義IO口,GPIO 0,1,2為輸出,3,4,5為輸入.
TRIS GPIO;
CLRF GPIO; //GPIO清0
MOVLW B'00000101'; //分給TMR0, 2~0定義分頻為1:64位
OPTION;
CLRF FLAG;
MOVLW .100; ////100*20ms=1S
MOVWF T_DELAY;
LOOP:
;==============================================================================
;功能描述:實(shí)現(xiàn)紅綠藍(lán)同時(shí)跳變
;隸屬模塊:無(wú)
;參數(shù)說(shuō)明 無(wú)
;返回說(shuō)明:無(wú)
;注:.....
;==============================================================================
FUN1:
BSF RED1; 紅亮
BSF GREEN1; 綠亮
BSF BLUE1; 藍(lán)亮
CALL DELAY1;
BCF RED1; 紅滅
BCF GREEN1; 綠滅
BCF BLUE1; 藍(lán)滅
CALL DELAY1;
GOTO LOOP;
END
作者:
kaxev
時(shí)間:
2015-7-11 12:29
提示:
作者被禁止或刪除 內(nèi)容自動(dòng)屏蔽
作者:
電子愛(ài)好者之家
時(shí)間:
2015-9-11 10:47
嗯嗯,不錯(cuò),謝謝............
歡迎光臨 麒麟電子 (http://www.isorzjg.com/)
Powered by Discuz! X3.5