BASCOM-AVR 驱动数码管简洁代码

2020-09-17来源: 51hei关键字:BASCOM-AVR  驱动数码管

''''''''''''''''''''''  BASCOM-AVR 驱动一个数码管显示数字 0-9 下载附件查看原理图 代码 实物照片 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

$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 = 1                                                 '第1位数码管不亮

Porta.1 = 1

Porta.2 = 1

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


关键字:BASCOM-AVR  驱动数码管 编辑:什么鱼 引用地址:http://news.eeworld.com.cn/mcu/ic510507.html 本网站转载的所有的文章、图片、音频视频文件等资料的版权归版权所有人所有,本站采用的非本站原创文章及图片等内容无法一一联系确认版权者。如果本网所选内容的文章作者及编辑认为其作品不宜公开自由传播,或不应无偿使用,请及时通过电子邮件或电话通知我们,以迅速采取适当措施,避免给双方造成不必要的经济损失。

上一篇:basic语言与汇编语言混合编程---电子手表
下一篇:分享一个UCOS-atmega128程序

关注eeworld公众号 快捷获取更多信息
关注eeworld公众号
快捷获取更多信息
关注eeworld服务号 享受更多官方福利
关注eeworld服务号
享受更多官方福利

推荐阅读

能显示温度及时间(能调时闹时)的bascom-avr程序
$regfile = "m16def.dat"$crystal = 8000000Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0Config Lcd = 16 * 2Config 1wire = Porta.0'*************************************************Dim Id(8) As ByteDim I As ByteDim C(2) As ByteDim T As Word&nb
发表于 2020-09-17
BASCOM AVR 版 RC5红外发射与接收遥控
单片机源程序如下:rem Main.bas file generated by New Project wizardrem  RC5编码发射rem Created:   周六 12月 21 2019   taotierem Processor: ATmega8rem Compiler:  BASCOM-AVRrem Write your code here$regfile ="m8def.dat"$crystal =8000000DDRD=&B00000000PORTD=&B11111111  main:  do
发表于 2020-09-16
<font color='red'>BASCOM</font> <font color='red'>AVR</font> 版 RC5红外发射与接收遥控
bascom avr tiny45驱动74hc595
如题,代码如下:$regfile = "attiny45.dat"                                   '指定单片机型号$crystal = 8000000                     &
发表于 2020-09-16
BASCOM-AVR利用AVR-DOS库读写SD卡
试验了用BASCOM读写SD卡,完全可以把SD卡当作磁盘来操作,与VB/QB语法兼容,编程非常简单。  AVR-DOS介绍  Features:           ·  Read and writeASCII-Files·  Read and writeBinary-Files·  Drivers available forCompact Flash Cards, Hard disk, MMC, SD etc.·  Completly integrated
发表于 2020-09-15
bascom avr 数字电位器控制仿真
rem Main.bas file generated by New Project wizardremrem Created:   周二 5月 12 2020     TAOTIErem Processor: ATmega8rem Compiler:  BASCOM-AVR控制数字电位器AD5206仿真rem Write your code here$regfile = "m8def.dat"  $crystal = 8000000  Dim c As Byte   
发表于 2020-09-07
<font color='red'>bascom</font> <font color='red'>avr</font> 数字电位器控制仿真
51单片机驱动CT1642数码管显示源程序
拆解电视机顶盒找到带CT1642控制的数码管 在网上找到代码修改了一下 没有解决按键检测的问题  可根据自己的需求修改对应引脚制作出来的实物图如下: 单片机源程序如下:sbit DAT=P2^2;sbit CLK=P2^1;sbit KEY=P2^0;u8 NixieTable[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,0x7F,0x6F};u8 NixieTablepos[]={0,0x02,0x04,0x08};void CT1642_Write(u8 Pos, u8 Val){u8 i,Posn;// 1、移18位:对应C1--C4、6位空、Q2
发表于 2020-08-31
51单片机<font color='red'>驱动</font>CT1642<font color='red'>数码管</font>显示源程序
何立民专栏 单片机及嵌入式宝典

北京航空航天大学教授,20余年来致力于单片机与嵌入式系统推广工作。

换一换 更多 相关热搜器件
电子工程世界版权所有 京ICP证060456号 京ICP备10001474号 电信业务审批[2006]字第258号函 京公海网安备110108001534 Copyright © 2005-2020 EEWORLD.com.cn, Inc. All rights reserved