全林电子世界-原创分类:|电子制作|
小键盘控制的花样彩灯
2008-09-01 23:47:52  叶全林- 阅读:2149  关键词:
该程序示例了单片机键盘控制p1口流水灯花样的方法;具体表现为:p3.2 3.2 3.4  3.5四个小按键
分别实现了四个控制:
1启动, 停止;在任何状态下按此键程序停止运行.
2 跑灯,p1.0---1.7亮点流动:
3 流水灯; p1.0-1.7 依次点亮
4 交错等; p0.O,P0.2,P0.4,P0.6和p0.1,P0.3,P0.5,P0.7轮流点亮
该程序在本站XP开发套件上调试通过:
 
;************;

;亮灯控制程序;

;************;

;

;************;

;中断入口程序;

;************;

;

ORG 0000H

LJMP START

ORG 0003H

RETI

ORG 000BH

RETI

ORG 0013H

RETI

ORG 001BH

RETI

ORG 0023H

RETI

;

;************;

; 初始化程序 ;

;************;

;

CLEAR: RET

;

;************;

; 主 程 序 ;

;************;

;

START:ACALL CLEAR

STAR1:MOV P3,#0FFH

JNB P3.4,FUN0

JNB P3.5,FUN1

JNB P3.2,FUN2

JNB P3.3,FUN3 ;关闭按纽

JNB F0,STAR1 ;曾经有键按下F0置1

RET

;

FUN0:LCALL DL10MS ;消岸抖动

JB P3.4,STAR1

WAITL0:JNB P3.4,WAITL0 ;等待键释放

SETB F0

FUN01:LCALL FUN00

LCALL STAR1

LJMP FUN01

;

FUN1:LCALL DL10MS ;消岸抖动

JB P3.5,STAR1

WAITL1:JNB P3.5,WAITL1 ;等待键释放

SETB F0

FUN10:LCALL FUN11

LCALL STAR1

LJMP FUN10

;

FUN2:LCALL DL10MS ;消岸抖动

JB P3.2,STAR1

WAITL2:JNB P3.2,WAITL2 ;等待键释放

SETB F0

FUN20:LCALL FUN22

LCALL STAR1

LJMP FUN20

;

FUN3:LCALL DL10MS ;消岸抖动

JB P3.3,STAR1

WAITL3:JNB P3.3,WAITL3 ;等待键释放

CLR F0

MOV P1,#0FFH ;关显示

LJMP STAR1

;

FUN00:MOV A,#0FEH

FUN000:MOV P1,A

LCALL DL05S

JNB ACC.7,OUT

RL A

AJMP FUN000

OUT: RET

;

FUN11:MOV A,#0FEH

FUN111:MOV P1,A

LCALL DL05S

JZ OUT

RL A

ANL A,P1

AJMP FUN111

;

FUN22:MOV A,#0AAH

MOV P1,A

LCALL DL30S

CPL A

MOV P1,A

LCALL DL30S

RET

;

;************;

; 延时程序 ;

;************;

;

DL512:MOV R2,#0FFH

LOOP1: DJNZ R2,LOOP1

RET

DL10MS:MOV R3,#14H

LOOP2: LCALL DL512

DJNZ R3,LOOP2

RET

DL05S:MOV R4,#0AH

LOOP3: LCALL DL10MS

DJNZ R4,LOOP3

RET

DL30S:MOV R5,#03H

LOOP4:LCALL DL05S

DJNZ R5,LOOP4

RET 

end
以下是他的HEX文件, 复制到记事本并存为TXT文件,烧入XP开发套件即可!
:03000000020025D6
:0100030032CA
:01000B0032C2
:0100130032BA
:01001B0032B2
:100023003222112475B0FF30B40D30B51E30B22F1B
:1000330030B34030D5EE221200B620B4E730B4FD21
:10004300D2D51200871200270200451200B620B550
:10005300D330B5FDD2D512009512002702005912F4
:1000630000B620B2BF30B2FDD2D51200A3120027D2
:1000730002006D1200B620B3AB30B3FDC2D575904C
:10008300FF02002774FEF5901200BE30E703230140
:10009300892274FEF5901200BE60F62355900197F5
:1000A30074AAF5901200C6F4F5901200C6227AFFE6
:1000B300DAFE227B141200B1DBFB227C0A1200B6AB
:0B00C300DCFB227D031200BEDDFB22EF
:00000001FF


原文网址:
http://www1.upweb.net/peradmin/htmlfile/yequanlin/200809012347529378665.htm
[我来说几句]
评论人姓名:
验证码:
(*) 验证码效期15分钟,超过15分钟请按'重新显示验证码'看不清楚,重新显示验证码
个人网站:
评论内容:
(127字符以内)
尚能输入:
  个字符
 
    发表评论请自觉遵守和维护《全国人大常委会关于维护互联网安全的决定》,也请不要发表威胁本站生存和声誉(如政治敏感、非法传销)的言论,如发表不良言论,文责自负,谢谢合作。
  一、一旦违犯法律法规,您将承担一切因您的行为而直接或间接导致的民事或刑事法律责任,本站工作人员有义务配合相关部门,提供必要的技术资料(如IP地址等)。
  二、自觉遵守爱国、守法、自律、真实、文明的原则,严禁发表有人身攻击倾向、有造谣生事嫌疑的言论,严禁发表虚假广告、色情、网络传销性质的内容,管理人员有权删除违反规定的内容或取消违规网友的发文权限甚至删除其ID。

全林电子世界 版权所有©
Copyright©2003-2004 All Rights Reserved