能显示温度及时间(能调时闹时)的bascom-avr程序

2020-09-17来源: 51hei关键字:显示温  闹时  bascom-avr

$regfile = "m16def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0
Config Lcd = 16 * 2
Config 1wire = Porta.0
'*************************************************
Dim Id(8) As Byte
Dim I As Byte
Dim C(2) As Byte
Dim T As Word                                             
'*************************************************
Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32        ' 定义度的显示字符
Deflcdchar 1 , 4 , 10 , 17 , 4 , 31 , 2 , 4 , 8             '定义汉字今的显示字符
Deflcdchar 2 , 31 , 4 , 31 , 4 , 12 , 10 , 18 , 17          '定义汉字天的显示字符
'***************************************************

Dim Shi As Byte , Fen As Byte , Miao As Byte               
Dim S As String * 2 , F As String * 2 , M As String * 2   

Dim N_shi As Byte , N_fen As Byte , Zt As Bit              
Dim N_s As String * 2 , N_f As String * 2                  

Dim Key_in As Byte                                          
Dim Beep_times As Byte

Config Portb = Input                                    
Portb = &HFF                                             


Initlcd                                                     
Cls

Shi = 12
Fen = 0
Miao = 0
N_shi = 12
N_fen = 0
Zt = 0


Cursor Off                                             

Main:
   Cls                                                   
   Gosub Disp                                             
   Gosub Ds18b20csh                                      
   Gosub 18b20js
   Gosub Key_scan                                         
   Gosub Naoshi
   Gosub Jishi

Goto Main

End
............
............
..............
程序是正确的,实验是成功的,温度是能显示的,时间是很准确的
小问题也是存在的,基本上也是能解决的.凑合凑合也是能用的

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

上一篇:AVR单片机熔丝位的设置及拯救方法
下一篇:basic语言与汇编语言混合编程---电子手表

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

推荐阅读

2018年全球显示器需求有望增 运动赛事添动能
屏幕朝大型化方向发展,包括电视、监视器、手机、车载等应用均是,2018年还有平昌冬奥会和FIFA世界杯等运动赛事加持,可望带动全球显示器需求增温。然而,2018年也有不少面板新产能开出,台湾面板业者认为,由于产品组合不同,发展低阶产品的厂商,面临新产能开出将遭受较大的冲击,但发展高阶产品的业者,受新产能开出的冲击力道较低,台湾厂商预估2018年整体的面板景气将从高峰走向平稳。 2018年的全球平面显示器需求成长主要驱动力,将来自于朝更大尺寸方向的转型,加上面板价格下降以及对于全球经济复甦有着较高的期待,因此IHS Markit预估,2018年的全球平面显示器需求将比2017年成长7.2%,可望达到2.1亿平方米,这将是自2014年
发表于 2017-12-03
2018年全球显示器需求有望增 运动赛事添动能
屏幕朝大型化方向发展,包括电视、监视器、手机、车载等应用均是,2018年还有平昌冬奥会和FIFA世界杯等运动赛事加持,可望带动全球显示器需求增温。然而,2018年也有不少面板新产能开出,台湾面板业者认为,由于产品组合不同,发展低阶产品的厂商,面临新产能开出将遭受较大的冲击,但发展高阶产品的业者,受新产能开出的冲击力道较低,台湾厂商预估2018年整体的面板景气将从高峰走向平稳。 2018年的全球平面显示器需求成长主要驱动力,将来自于朝更大尺寸方向的转型,加上面板价格下降以及对于全球经济复甦有着较高的期待,因此IHS Markit预估,2018年的全球平面显示器需求将比2017年成长7.2%,可望达到2.1亿平方米,这将是自2014年
发表于 2017-11-30
BASCOM-AVR 驱动数码管简洁代码
''''''''''''''''''''''  BASCOM-AVR 驱动一个数码管显示数字 0-9 下载附件查看原理图 代码 实物照片 '''''''''''''''''''''''''''''''
发表于 2020-09-17
<font color='red'>BASCOM</font>-<font color='red'>AVR</font> 驱动数码管简洁代码
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
何立民专栏 单片机及嵌入式宝典

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

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