51单片机精确延时程序大集合+初值计算工具

以下程序说是精确延时，实际上都不对。调用一次差个几微秒、几百微秒，一天下来差好几分钟。

在论坛上看到不少不错的延时程序，整理如下共同分享：

精确延时计算公式:

延时时间=[(2*第一层循环+3)*第二层循环+3]*第三层循环+5

;延时5秒左右
DELAY5S:PUSH   04H;2个机器周期                 
        PUSH   05H;2个机器周期             
        PUSH   06H;2个机器周期                 
        MOV    R4,#50;1个机器周期             
DELAY5S_0:MOV R5,#200;1个机器周期                              
DELAY5S_1:MOV R6,#245;1个机器周期                               
        DJNZ   R6,$;2×245=490个机器周期                          
        DJNZ   R5,DELAY5S_1;这条2个机器周期，这层循环包含R5×（490+1）+2×R5=98600个机器周期
        DJNZ   R4,DELAY5S_0;这条2个机器周期 ，这层循环包含R4×（98600+1）+2×R4=4930150个机器周期                         
        POP    06H;2个机器周期                   
        POP    05H;2个机器周期                   
        POP    04H;2个机器周期                   
        RET;2个机器周期
;（共2+2+2+1+4930150+2+2+2+2=4930165个机器周期 ）                                         

;513微秒延时程序
DELAY: MOV     R2,#0FEH;1个机器周期
JUZINAIYOU: DJNZ    R2,JUZINAIYOU;2×R21即2×245
RET;2个机器周期
;（实际上是493个机器周期）

;10毫秒延时程序
DL10MS: MOV     R3,#14H
DL10MS1:LCALL   DELAY
        DJNZ    R3,DL10MS1
        RET
;（缺DELAY）

;0.1s延时程序12MHz
DELAY: MOV R6,#250
DL1: MOV R7,#200
DL2: DJNZ R6,DL2
DJNZ R7,DL1
RET

;延时1046549微秒(12MHz)
;具体的计算公式是:
;((((r7*2+1)+2)*r6+1)+2)*r5+1+4 = ((r7*2+3)*r6+3)*r5+5
DEL : MOV R5,#08H
DEL1: MOV R6,#0FFH
DEL2: MOV R7,#0FFH
        DJNZ R7,$
        DJNZ R6,DEL2
        DJNZ R5,DEL1
        RET

;1秒延时子程序是以12MHz晶振
Delay1S:mov r1,#50
del0: mov r2,#91
del1:   mov r3,#100
        djnz r3,$
        djnz r2,del1
        djnz r1,del0
   Ret

;1秒延时子程序是以12MHz晶振为例算指令周期耗时
KK: MOV    R5,#10    ;1指令周期×1
K1: MOV    R6,#0FFH    ;1指令周期×10
K2: MOV    R7,#80H    ;1指令周期256×10=2560
K3: NOP         ;1指令周期

;128*256*10=327680
DJNZ    R7,K3    ;2指令周期

2*128*256*10=655360
DJNZ    R6,K2    ;2指令周期

2*256*10=5120
DJNZ    R5,K1    ;2指令周期2*10=20
RET;2指令周期
;21+10+2560+327680+655360+5120+20+2=990753
;约等于1秒=1000000微秒

;这个算下来也只有0.998抄
T_0: MOV   R7,#10;
D1: MOV   R6,#200;
D2: MOV   R5,#248;
DJNZ   R5,$
DJNZ   R6,D2;
DJNZ   R7,D1;
RET

;这样算下来应该是1.000011秒
T_0: MOV   R7,#10;
D1: MOV   R6,#200;
D2: NOP
MOV   R5,#248;
DJNZ   R5,$
DJNZ   R6,D2;
DJNZ   R7,D1;
RET

DELAY_2S:   ;10MS(11.0592mhz)
MOV R3,#200
JMP DELAY10MS
DELAY_100MS:    ;100MS(11.0592mhz)
MOV R3,#10
JMP DELAY10MS
DELAY_10MS:
MOV R3,#1
DELAY10MS:    ;去抖动10MS

(11.0592mhz)
MOV R4,#20
DELAY10MSA:
MOV R5,#247
DJNZ R5,$
DJNZ R4,DELAY10MSA
DJNZ R3,DELAY10MS
RET

DELAY_500MS:                    ;500MS
MOV R2,#208
JMP DELAY_MS
DELAY_175MS:   ;175MS
MOV R2,#73
JMP DELAY_MS
delaY_120MS:   ;120MS
MOV R2,#50
JMP DELAY_MS
delay_60ms:   ;60ms
MOV R2,#25
JMP DELAY_MS
delay_30ms:   ;30ms
MOV R2,#12
JMP DELAY_MS
DELAY_5MS:   ;5MS
MOV R2,#2
;===================================
DELAY_MS:
CALL DELAY2400
DJNZ R2,DELAY_MS
RET
;===================================
DELAY2400:   ;10x244+4=2447 /1.024=2390
MOV R0,#244 ;1
DELAY24001:
MUL AB ;4
MUL AB ;4
DJNZ R0,DELAY24001 ;2
RET

DELAY: ;延时子程序(1秒)
MOV R0,#0AH
DELAY1: MOV R1,#00H
JUZINAIYOU: MOV R2,#0B2H
DJNZ R2,$
DJNZ R1,JUZINAIYOU
DJNZ R0,DELAY1
RET

MOV R2,#10 ;延时1秒
LCALL DELAY
MOV R2,#50 ;延时5秒
LCALL DELAY
DELAY: ;延时子程序
PUSH R2
PUSH R1
PUSH R0
DELAY1: MOV R1,#00H
JUZINAIYOU: MOV R0,#0B2H
DJNZ R0,$
DJNZ R1,JUZINAIYOU ;延时 100 mS
DJNZ R2,DELAY1
POP R0
POP R1
POP R2
RET

1:DEL:   MOV   R7,   #200
           DEL1:   MOV   R6,   #123
                        NOP
           DEL2:   DJNZ   R6,   DEL2
                        DJNZ   R7,   DEL1
                        RET

是50.001ms 算法是:
0.001ms+200*0.001ms+200*0.001ms+200*123*0.002ms+200*0.002ms

;(123*2+4)*200+1

2: DEL: MOV R7, #200

DEL1: MOV R6, #123

DEL2:NOP

      DJNZ R6,DEL2

      DJNZ R7,DEL1

RET

D500MS:
PUSH PSW
SETB RS0
MOV R7,#200
D51: MOV R6,#250
D52: NOP
NOP
NOP
NOP
DJNZ R6,D52
DJNZ R7,D51
POP PSW
RET

DELAY: ;延时1毫秒
PUSH PSW
SETB RS0
MOV R7,#50
D1: MOV R6,#10
D2: DJNZ R6,$
DJNZ R7,D1
POP PSW
RET

ORG   0
        LJMP    MAIN
            ORG    000BH
        LJMP    CTC0
   MAIN: MOV   SP, #50H
          CLR   EA
          MOV   TMOD, #01H
          MOV    TH0,#3CH
          MOV    TL0,#0B0H
          MOV    R4, #10
           SETB   ET0
           SETB   EA
           SETB   TR0
            SJMP $ ;
   CTC0:   MOV TH0, #3CH
           MOV TL0, #0B0H
           DJNZ R4, LP
           CPL   P1.0
           MOV   R4, #10
     LP:    RETI
          END

; 定时器中断延时
TMOD=0x01; /*定时器0工作在模式1下（16位计数器）*/
TH0=0xfd;
TL0=0x83;
TR0=1; /*启动定时器*/
TF0==0;
TR0=0;
等待中断；
100ms定时，11.0592晶振
他定时准确啊又不影响程序运行

2008-06-10 13:50:46 来源:来于网络,服务大家 作者:未知 【大 中 小】 点击： 9 次

下面几个是单片机的延时程序(包括asm和C程序，都是我在学单片机的过程中用到的),在单片机延时程序中应考虑所使用的晶振的频率，在51系列的单片机中我们常用的是11.0592MHz和12.0000MHz的晶振，而在AVR单片机上常用的有8.000MHz和4.000MH的晶振所以在网上查找程序时如果涉及到精确延时则应该注意晶振的频率是多大。
软件延时：（asm）
晶振12MHZ,延时1秒
程序如下：
DELAY:MOV 72H,#100
LOOP3:MOV 71H,#100
LOOP1:MOV 70H,#47
LOOP0:DJNZ 70H,LOOP0
NOP
DJNZ 71H,LOOP1
MOV 70H,#46
LOOP2:DJNZ 70H,LOOP2
NOP
DJNZ 72H,LOOP3
MOV 70H,#48
LOOP4:DJNZ 70H,LOOP4
定时器延时：
晶振12MHZ,延时1s，定时器0工作方式为方式1
DELAY1:MOV R7,#0AH ;; 晶振12MHZ，延时0.5秒
AJMP DELAY
DELAY2:MOV R7,#14H ;; 晶振12MHZ，延时1秒
DELAY:CLR EX0
MOV TMOD,#01H ;设置定时器的工作方式为方式1
MOV TL0,#0B0H ;给定时器设置计数初始值
MOV TH0,#3CH
SETB TR0 ;开启定时器
HERE:JBC TF0,NEXT1
SJMP HERE
NEXT1:MOV TL0,#0B0H
MOV TH0,#3CH
DJNZ R7,HERE
CLR TR0 ;定时器要软件清零
SETB EX0
RET

C语言延时程序：
10ms延时子程序（12MHZ）
void delay10ms(void)
{
unsigned char i,j,k;
for(i=5;i>0;i--)
for(j=4;j>0;j--)
for(k=248;k>0;k--);
}
1s延时子程序（12MHZ）
void delay1s(void)
{
unsigned char h,i,j,k;
for(h=5;h>0;h--)
for(i=4;i>0;i--)
for(j=116;j>0;j--)
for(k=214;k>0;k--);
}
200ms延时子程序（12MHZ）
void delay200ms(void)
{
unsigned char i,j,k;
for(i=5;i>0;i--)
for(j=132;j>0;j--)
for(k=150;k>0;k--);
}
500ms延时子程序程序: （12MHZ）
void delay500ms(void)
{
unsigned char i,j,k;
for(i=15;i>0;i--)
for(j=202;j>0;j--)
for(k=81;k>0;k--);
}
下面是用了8.0000MHZ的晶振的几个延时程序(用定时0的工作模式1)：
(1)延时0.9MS
void delay_0_9ms(void)
{
TMOD=0x01; /*定时器0工作在模式1下（16位计数器）*/
TH0=0xfd;
TL0=0xa8;
TR0=1; /*启动定时器*/
while(TF0==0);
TR0=0;
}
(2)延时1MS
void delay_1ms(void)
{
TMOD=0x01; /*定时器0工作在模式1下（16位计数器）*/
TH0=0xfd;
TL0=0x65;
TR0=1; /*启动定时器*/
while(TF0==0);
TR0=0;
}
（3）延时4.5ms
void delay_4_5ms(void)
{
TMOD=0x01; /*定时器0工作在模式1下（16位计数器）*/
TH0=0xf4;
TL0=0x48;
TR0=1; /*启动定时器*/
while(TF0==0);
TR0=0;
}
在用定时器做延时程序时如果懒得计算定时器计数的初始值可以在网上找一个专门用来做延时的小软件，我在用着感觉很实用，如果找不到的话可以留言，留下自己QQ我给发过去。

文件:	51定时器计算软件.rar
大小:	179KB
下载:	下载