历史上的今天
返回首页

历史上的今天

今天是:2025年05月09日(星期五)

正在发生

2018年05月09日 | 51 汇编语言编程:变速计数

2018-05-09 来源:eefocus

;用51单片机控制 2位数码管动态显示 00 ~ 99。


;从 00 开始显示,显示数字每隔一段时间加 1,一直到 99,然后回到 00。


;从 00 到 10 每隔 100ms 加 1;

;从 10 到 20 每隔 200ms 加 1;


;其它依此类推;


;从 90 到 99 然后到 00 每隔 1s 加 1。


;做而论道用汇编语言编写的程序如下:


    ORG   0000H

    JMP   MAIN

    ORG   000BH

    JMP   T0_INT

MAIN:

    MOV   TMOD, #01H

    MOV   TH0, #HIGH(65536-50000)

    MOV   TL0, #LOW(65536-50000)

    SETB  TR0

    SETB  ET0

    SETB  EA

    MOV   B, #2

    MOV   R2, B

    MOV   R4, #0

    MOV   R5, #0

    MOV   R6, #2


LOOP:

    MOV   A, R4

    ADD   A, #(TAB - $ - 3)

    MOVC  A, @A + PC

    MOV   P0, A

    MOV   P2, #2

    DJNZ  R7, $

    DJNZ  R7, $

    MOV   P2, #0


    MOV   A, R5

    ADD   A, #(TAB - $ - 3)

    MOVC  A, @A + PC

    MOV   P0, A

    MOV   P2, #1

    DJNZ  R7, $

    DJNZ  R7, $

    MOV   P2, #0


    SJMP  LOOP

;---------------------------------------

TAB:      ;共阳段码

    DB  0C0H, 0F9H, 0A4H, 0B0H

    DB  099H, 092H, 082H, 0F8H

    DB  080H, 090H

;---------------------------------------

T0_INT:

    MOV   TH0, #HIGH(65536-50000)

    MOV   TL0, #LOW(65536-50000)


    DJNZ  R2, T0_END

    MOV   R2, B


    INC   R4

    CJNE  R4, #10, T0_END

    MOV   R4, #0


    INC   R6

    INC   R6

    CJNE  R6, #22, T_B

    MOV   R6, #2

T_B:

    MOV   B, R6


    INC   R5

    CJNE  R5, #10, T0_END

    MOV   R5, #0


T0_END:

    RETI

;---------------------------------------

END


;程序中,用 T0 定时50ms(假设晶振频率是 12MHz)。


;大家都知道,每当中断 20 次,就是 1s。


;如果这个 20,不是固定的常数,而是个变量,分别是:

; 2、4、6...、20,那么,即可实现定时 100ms、200ms、...。


;程序中,使用寄存器B,保存这个变量,初始时,令其为 2。

;以后,每当计数到十位数发生变化时,就把 B 加上 2。

;加到了 22,就再令其为 2。


;程序仿真执行的截图如下:


51 汇编语言编程:变速计数 - 非著名博主 - 电子信息角落

;图中使用了共阳数码管。


;观看的效果如何呢 ?


;前面的,定时 100ms、200ms...,太快,看不很准。


;但是,可以看出来,计数速度,是逐渐减慢的。


;等到了 90~00,就可以看到,每隔一秒,跳一个字,还是很准确的。


----

C 语言程序如下:


#include


char n1 = 0, n2 = 0;     //用于显示

char n_t1 = 0, n_t2 = 2; //用于计数


char code seg[] = {      //共阳段码

    0xC0, 0xf9, 0xa4, 0xb0, 0x99,

    0x92, 0x82, 0xf8, 0x80, 0x90}; //0 ~ 9


void Main(void)

{

    char  i;

    TMOD = 0x01;

    TH0 = (65536 - 50000) / 256;

    TL0 = (65536 - 50000) % 256;

    TR0 = 1;

    ET0 = 1;

    EA = 1;


    while (1) {

      P0 = seg[n1]; P2 = 2; for(i = 0; i < 100; i++); P2 = 0;

      P0 = seg[n2]; P2 = 1; for(i = 0; i < 100; i++); P2 = 0;

    }

}


T0_INT()   interrupt 1

{

    TH0 = (65536 - 50000) / 256;

    TL0 = (65536 - 50000) % 256;

    n_t1++;

    if (n_t1 == n_t2)  {

      n_t1 = 0;


      n1++;

      if (n1 == 10) {

        n1 = 0;

        

        n_t2 += 2;

        if (n_t2 == 22) n_t2 = 2;


        n2++;

        if (n2 == 10) n2 = 0;

      }

    }

}


推荐阅读

史海拾趣

Emulation Technology Inc公司的发展小趣事

为了进一步扩大市场份额,Emulation积极实施国际化战略。公司先后在北美、欧洲和亚洲等地设立了分支机构,与当地合作伙伴建立了紧密的合作关系。这些分支机构不仅为Emulation提供了更多的市场机会,还帮助公司更好地了解当地市场需求和竞争态势。

Diode Laser Concepts公司的发展小趣事

在电子行业日益关注环保的背景下,Diode Laser Concepts公司积极响应,将环保理念融入产品设计和生产过程中。公司采用环保材料,优化生产流程,减少废弃物排放,致力于为客户提供绿色、环保的二极管激光产品。这一举措不仅提升了公司形象,也为公司赢得了更多客户的青睐。

AAEON公司的发展小趣事

在电子行业的早期,激光技术刚刚起步,而Diode Laser Concepts公司的创始人——一位激光领域的专家,看到了二极管激光器(Diode Laser)在精密制造和医疗领域的巨大潜力。他带领团队攻克了一系列技术难题,成功研发出高效、稳定的二极管激光器。这一突破性的技术为公司的创立奠定了坚实的基础。

CSR plc(剑桥硅晶无线电)公司的发展小趣事

2009年,CSR plc以1.36亿美元成功收购了SiRF技术控股公司。这一收购为CSR plc带来了GPS和A-GPS的知识产权组合、航位推算和位置中心平台等重要技术资源,使其在世界无晶圆半导体厂商中的地位得到了进一步巩固。此次收购也让CSR plc的客户群体得到了极大的扩展,包括世界排名前七位的手机制造商中的六家,以及世界前五位的个人导航设备制造商等。

A-BRIGHT公司的发展小趣事

A-BRIGHT公司的起点并不起眼,只是电子行业里众多小公司之一。然而,在XXXX年,公司成功研发出了一种新型的高效率LED芯片,这一技术突破使得A-BRIGHT的产品在能效和寿命上大幅超越竞争对手。这一创新迅速吸引了市场的关注,A-BRIGHT的订单量激增,公司开始逐渐崭露头角。

ESPROS [Espros Photonics corp]公司的发展小趣事

ESPROS的ToF传感器技术已成功应用于多个领域,包括无人机飞行避障及定高、人机交互和手势识别、机器人定位和智能导航、人体检测和物体探测、工业自动化以及汽车自动驾驶等。这些应用不仅展示了ESPROS技术的广泛适用性,也证明了其在光电传感器领域的强大实力。

问答坊 | AI 解惑

如何关闭对话框

我用WTL开发界面,用DoMode()调用对话框,但用EndDialog(0)关闭对话框时出现错误。 显示IsWindow(m_hWnd) 这是为什么 请教高手…

查看全部问答>

uClinux在ARM开发板44b0芯片上运行程序,提示中断异常错误?

请教高人,在44B0的ARM开发板上uClinux操作系统下,调试ADC与LCD应用程序。     两个程序分别运行的时候,都正常。但是把ADC与LCD应用程序都加入到一个文件work中,编译后运行,就提示如下问题: Unhandled fault: alignment exception ...…

查看全部问答>

如何在WinCE里加入 ping命令?

如何在WinCE里加入 ping命令?…

查看全部问答>

100分:最新的新手请教最基础的问题

大家好,刚刚接触WINCE,什么都不懂,现请教几个问题: 我使用一个软件(西门子WinCC flexible)来开发监控程序,然后下载到触摸屏(MP370)上。下载程序的功能是WinCC flexible自身提供的。 在触摸屏上运行的是windows se 3.1英文系统。触摸屏提供了RS2 ...…

查看全部问答>

EE_FPGA 2.0版本出炉!狂多PCB!

      迫不及待地焊接了一个     …

查看全部问答>

PWM输出的占空比如何改变

void TIM_Configuration(void)//TIM初始化函数{   TIM_TimeBaseInitTypeDef  TIM_TimeBaseStructure;//定时器初始化结构  TIM_OCInitTypeDef  TIM_OCInitStructure;//通道输出初始化结构 //TIM3初始化  TIM_DeInit(TIM2) ...…

查看全部问答>

(转自深度技术)让Ubuntu也能运行Windows程序-Wine的安装与使用

花了这么多心血才搞好的,我觉得此贴已经具备了置顶的素质,望版主把此贴置顶,让更多的人能来学习Linux,用好Linux。转载请注明出处。   安好了ubuntu,摆弄了几天,基本上手了,已经爱上了Linux,但因为用Windows这么长时间了 ...…

查看全部问答>

收到铁电板了!

收到论坛的铁电了,同时收到LAUNCHPAD!!!!!!感谢EE,感谢TI:rose:…

查看全部问答>