新人求LED变速闪烁问题 - 编程论坛

#2

xudaleihao2011-08-30 15:04

刚学单片机，果断不给力啊，在MAIN里面少了一个LJMP MAIN，这里补上，这样才可以无限实现LED闪烁，之前那个程序只能闪烁一次。现在请帮忙解决实现LED变速闪烁程序怎么写，自己虽然也知道通过让延时逐步变低来实现加速闪烁，但是具体涉及到程序缺怎么也想不出，请大家帮帮忙啊，其实我说地老师是我们部门经理，上个星期六培训留地作业，这个星期六就得交作业，泪奔不会啊！想了3天么想出。。。。。。

ORG  0000H
LJMP MAIN
ORG  0100H
MAIN:
     SETB  P1.0
     LCALL DEL
     CLR   P1.0
     LCALL DEL
     LJMP  MAIN
DEL:
     MOV   30H,#250  ；延时100ms
AA:  MOV   31H,#200
     DJNZ  31H,$
     DJNZ  30H,AA
     RET
END

DEL1:
     MOV  32H,  #100
     DJNZ  32H,

#3

xudaleihao2011-09-06 15:24

自己已经解决，请大大们指教哪些可以改进

程序如下，请指教哪些可以改进，让程序更加简化，谢谢

ORG    0000H
LJMP   MAIN
ORG    0100H
MAIN:
ST:    MOV   30H,#30             ;初始化
       MOV   31H,30H
       MOV   A,#100
CSQ:   JZ    MID        ;累加器不为0执行快速闪烁，为0转移到MID
       CLR   P1.0
       LCALL DELQ
       SETB  P1.0
       LCALL DELQ
       LJMP  CSQ
CSS:   CLR   P1.0        ;慢速闪烁
       LCALL DELS
       SETB  P1.0
       LCALL DELS
       LJMP  MID
MID:   CJNE  A,31H,CSS    ;累加器中值增加到30（30H中值）之前转移执行慢速闪烁 ,
                          ;到30转移执行快速闪烁。
       LJMP  CSQ

DELQ:                     ;快速闪烁从3S减少到0.1S
       MOV   A,30H
       DEC   A
DELQ1: MOV   32H,#250
DELQ2: MOV   33H,#200
       DJNZ  33H,$
       DJNZ  32H,DELQ2
       DJNZ  30H,DELQ1
       MOV   30H,A
       RET

DELS:                     ;慢速闪烁从0.1S延长到3S
       INC   A
       MOV   30H,A
DELS1: MOV   32H,#250
DELS2: MOV   33H,#200
       DJNZ  33H,$
       DJNZ  32H,DELQ2
       DJNZ  30H,DELQ1
       RET

END

#4

万仁全2011-09-15 21:18

不懂汇编，C语言不直观些吗？？

#5

杨茂2011-09-17 19:47

现在主流的都是C语言程序了