历史上的今天
返回首页

历史上的今天

今天是:2024年09月07日(星期六)

2020年09月07日 | BASCOM-AVR 4个数码管同时显示数字0-9

2020-09-07 来源:51hei

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

$regfile = "m16def.dat"                                     'ATMega16 单片机

$crystal = 8000000                                          '8兆赫晶振


Dim I As Byte


'PORTB 8个引脚PB0-PB7连接了数码管 A B C D E F G H

Config Porta = Output

Config Portb = Output


Porta.0 = 0                                                 '第1位数码管亮

Porta.1 = 0

Porta.2 = 0

Porta.3 = 0                                                 '第4个数码管亮

'====================

'数码管显示0-9,1秒钟切换1次

Do

   Wait 1

   I = I + 1

   If I >= 10 Then I = 0


   If I = 0 Then Portb = &HC0

   If I = 1 Then Portb = &HF9

   If I = 2 Then Portb = &HA4

   If I = 3 Then Portb = &HB0

   If I = 4 Then Portb = &H99

   If I = 5 Then Portb = &H92

   If I = 6 Then Portb = &H82

   If I = 7 Then Portb = &HF8

   If I = 8 Then Portb = &H80

   If I = 9 Then Portb = &H90

Loop

End

推荐阅读

史海拾趣

Advantech公司的发展小趣事

Advantech公司是一家全球领先的工业计算机、自动化和嵌入式解决方案提供商,其发展历程充满了创新、合作和技术进步。以下是关于Advantech公司发展的五个相关故事:

  1. 创立与早期发展: Advantech公司成立于1983年,最初名为台湾多媒体公司,其初衷是提供音频和视频卡。随着技术的发展和市场需求的变化,公司逐渐转型为提供工业计算机和自动化解决方案的领先供应商。

  2. 全球化战略: 随着全球市场的不断扩大,Advantech制定了全球化战略,积极拓展海外业务。1994年,公司在美国成立了第一家子公司,标志着其国际化发展的开始。此后,Advantech陆续在欧洲、亚洲和其他地区建立了办事处和分支机构,构建起了覆盖全球的销售和服务网络。

  3. 技术创新与合作伙伴关系: 作为工业自动化领域的领导者之一,Advantech不断进行技术创新,并与全球各类合作伙伴密切合作。公司积极投入研发资金,不断推出新产品和解决方案,以满足客户不断变化的需求。同时,Advantech与众多软件和硬件供应商建立了紧密的合作关系,共同推动行业的发展。

  4. 智能化转型: 随着工业4.0和物联网的迅速发展,Advantech积极响应智能化转型的趋势,推出了一系列智能化解决方案,涵盖工业自动化、智慧城市、智能交通等多个领域。公司致力于为客户提供智能化、数字化的整体解决方案,助力其实现生产效率提升和智能化升级。

  5. 生态系统建设: 为了进一步提升解决方案的综合性和竞争力,Advantech积极构建生态系统,与行业合作伙伴共同打造全方位的服务体系。公司通过开放式的合作模式,与合作伙伴共享资源和技术,实现优势互补,共同拓展市场,推动行业的发展和进步。

以上述五个方面为基础,Advantech在电子行业中不断发展壮大,成为了全球工业自动化和智能化领域的领导者之一。

Fenwal Controls公司的发展小趣事

在电子行业快速发展的同时,Fenwal Controls也面临着诸多挑战和危机。例如,随着环保法规的日益严格,公司需要不断升级产品以满足环保要求。此外,原材料价格的波动和劳动力成本的上升也给公司带来了不小的压力。然而,Fenwal Controls凭借其强大的研发能力和敏锐的市场洞察力,成功应对了这些挑战和危机。公司通过优化生产流程、提高生产效率、降低生产成本等措施,有效缓解了外部压力,保持了公司的稳定发展。

Alpha (Taiwan)公司的发展小趣事

面对全球环保意识的日益增强,Alpha (Taiwan)公司积极响应号召,致力于绿色电子产品的研发和生产。公司投入大量资金研发环保材料和技术,成功推出了一系列绿色环保电子产品。这些产品不仅具有优异的性能,而且在使用过程中对环境的影响较小,符合现代社会的环保理念。此外,公司还积极参与环保公益活动,宣传环保知识,推动电子行业的绿色发展。

Box Enclosures公司的发展小趣事

在追求经济效益的同时,Box Enclosures公司也积极履行社会责任。公司注重环保和可持续发展,采用环保材料和节能技术生产产品。同时,公司还积极参与公益事业,为社会做出贡献。这种对社会责任的承担和绿色发展的理念,使得Box Enclosures公司赢得了社会的认可和尊重。

以上是关于Box Enclosures公司发展的5个虚构故事,虽然这些故事是基于虚构的,但它们可能反映了Box Enclosures公司在实际发展中可能遇到的一些情况和挑战。

Habia Cable公司的发展小趣事

随着国内市场的逐渐饱和,Box Enclosures公司决定将目光投向海外市场。公司制定了一系列国际化战略,包括参加国际电子展会、建立海外销售网络等。经过几年的努力,Box Enclosures的产品逐渐打入国际市场,赢得了众多海外客户的青睐。这一国际化战略为公司带来了更广阔的发展空间。

Frolyt Condensers & Elements GmbH公司的发展小趣事

在电子元件领域,Frolyt Condensers & Elements GmbH起初是一家专注于电容器研发的小型制造商。2005年,公司研发团队成功开发出一种新型高性能铝电解电容器,该电容器在耐高温、长寿命和低阻抗方面表现出色,迅速吸引了市场的关注。通过持续的技术创新和严格的品质控制,Frolyt的电容器产品在汽车电子、通信设备等多个领域得到广泛应用,公司因此实现了市场份额的快速增长。

问答坊 | AI 解惑

请问谁有borland c++ 3.1这个软件 ?

请问谁有borland c++ 3.1这个软件? 我同学下了一个,是以前老版本安装,现在装不了 …

查看全部问答>

STC单片机能不能写无刷马达驱动啊?

本信息来自合作QQ群:电子工程师技术交流(12425841) 群主在坛子ID:Kata 问下大家,STC单片机能不能写无刷马达驱动啊? …

查看全部问答>

SD卡驱动的问题

小弟正在开发WINCE6.0的BSP中的SD卡驱动,CPU中有两个sd controller:一个连接了inand在系统中显示为storeage card并且可以进行正常的读写。另外一个controller连接了外接的sd card卡座(可以对sd card进行插拔)。 问题:现在插拔的sd card初始化 ...…

查看全部问答>

RS232串口数据的问题

有一台西门子的CT机!以前传送图片都是用Dicom传输的!现在要改为用RS232串口传送! 请问大家:传送过来的数据格式会是怎么样?给个思路也好!有格式最佳! 注:老总要我们在网上找个它的数据自己猜格式!(晕)!西门子没提供数据格式! 这个问题应该怎么解 ...…

查看全部问答>

南京伟福的2440的板子如何???

南京伟福的2440的板子如何???…

查看全部问答>

串口读写函数是同步的吗?

在WINCE下通过writefile写串口,原以为该函数应该是阻塞式的,与串口发送过程是同步的,即串口实际发送完毕,该函数才 能返回。现在用示波器测量了下,发现不是这样,特别是写多个字节时,串口还没有发送完毕,writefile函数就返回了。 请问在 ...…

查看全部问答>

IXP425开发平台的问题?

24交换口的多网口主板一般多少钱? IXP425的开发平台是什么?厂家给提供开发平台吗?厂家还需要提供什么?…

查看全部问答>

关于硬盘读写的很棘手的问题

哪位大侠能说说从计算机加电,到进入windows的蓝天白云界面,对硬盘的读写到底是通过什么方式进行的,有人说是通过int 13h中断,还有的说是通过dma+int13h, 还有的说是通过in/out,天哪,到底是哪种方式? 另外,在dma方式下,硬盘的读写要不要 ...…

查看全部问答>

论坛兑换板子调试心得+程序+protues仿真(蜂鸣器)

延时程序中有个这样的公式,大家思考下 /*---------------------------------------------------------------------------------     延时程序计算方法     计数个数j = 延时时间/6*晶振周期 - 1-------- ...…

查看全部问答>

stm32单片机发热是什么回事?

                                 单片机一上电就发热 手指触感有轻微的热量 不知道正常不正常 芯片可以下载运行程序…

查看全部问答>