Atmega16单片机实验:DS18B20和ad采集显示程序

2019-10-21来源: eefocus关键字:Atmega16  单片机  DS18B20  ad采集  显示

rem Main.bas file generated by New Project wizard
rem
rem Created:   周日 9月 16 2018
rem Processor: ATmega16
rem Compiler:  BASCOM-AVR

rem Write your code here

$regfile = "m16def.dat"
$crystal = 2000000
Config 1wire = Portb.0                               '定义BS18B20接在PB0上
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcd = 20 * 4
$baud = 19200
Cls

'Dim SysDS18B20_1 As Byte
'Dim SysDS18B20_2 As Byte

Dim Cgqidi_1(8) As Byte                                    '传感器id1数组变量
Dim Cgqidi_2(8) As Byte                                    '传感器id2数组变量
Dim Cgqidi_3(8) As Byte                                    '传感器id3数组变量
Dim Cgqidi_4(8) As Byte                                    '传感器id4数组变量
Dim Cgqidi_5(8) As Byte                                    '传感器id5数组变量
Dim Cgq_zhuangtai(5) As Byte                               '传感器——状态变量
Dim Xianzai__wendu(5) As Single                            '现在——温度变量

Declare Sub SUAXIN___WENDU()    '声明刷新转换温度过程子程序
Declare Sub FAXIAN_CGQs()        '声明发现传感器过程子程序

Call FAXIAN_CGQs()                 '调用发现——传感器过程子程序
Cls
Waitms 500





Do
  Call SUAXIN___WENDU()'转到刷新转换温度过程子程序
  Locate 1 , 1
  Lcd Fusing(XIANZAI__WENDU(1) , "#.##");"C    DS18B20-1"
  Locate 2 , 1
  lcd Fusing(XIANZAI__WENDU(2) , "#.##") ; "C   DS18B20-2"
  Locate 3 , 1
  Lcd Fusing(xianzai__wendu(3) , "#.##") ; "C    DS18B20-3"
   Locate 4 , 1
   Lcd Fusing(xianzai__wendu(4) , "#.##") ; "C    DS18B20-4"
  Waitms 1500

Config Adc = Single , Prescaler = Auto , Reference = avcc
  Start Adc
  Dim W As Word , Channel As Byte , B As Single , D1 As Single , D2 As Single                                                '加插 5V 的短路块

  Channel = 1
  W = Getadc(channel)
  b=5*w                       'B = 2.98 * W
  D1 = B / 1023
  Locate 2 , 1
'Lcd  "AD1= "
  Locate 4 , 1
  Lcd Fusing (d1 , "#.###");    "V     ADC"

  Loop
  End

'刷新转换温度过程子程序
  Sub SUAXIN___WENDU()
  Dim Readdata(9) As Byte
  Dim Temperature As Word
  Dim WENDU As Single
  Dim SysDS18B20_1 As Byte
  Dim CGQidI_ As Byte
'启动温度转换
  1wreset
  1wwrite &HCC
  1wwrite &H44
  Waitms 800
  For Cgqidi_ = 1 To 5
    If CGQ_ZHUANGTAI(CGQidI_) = 1 Then
       1wreset
       1wwrite &H55
'匹配总线ID
  For SysDS18B20_1 = 1 To 8
          If CGQidI_ = 1 Then : 1wwrite CGQidI_1(sysDS18B20_1)
          Elseif CGQidI_ = 2 Then : 1wwrite CGQidI_2(sysDS18B20_1)
          Elseif Cgqidi_ = 3 Then : 1wwrite Cgqidi_3(sysds18b20_1)
          Elseif Cgqidi_ = 4 Then : 1wwrite Cgqidi_4(sysds18b20_1)
          Elseif Cgqidi_ = 5 Then : 1wwrite Cgqidi_5(sysds18b20_1)
          End If
       Next
       1wwrite &HBE
       For SysDS18B20_1 = 1 To 9
          Readdata(sysDS18B20_1) = 1wread()
   Next
   Temperature = Readdata(2) * 256
   Temperature = Temperature + Readdata(1)
   If Readdata(2) > 15 Then
          Temperature = Not Temperature
          Temperature = Temperature + 1
          WENDU = Temperature * 0.0625
          WENDU = 0 - WENDU
       Else
          WENDU = Temperature * 0.0625
       End If
       XIANZAI__WENDU(CGQidI_) = WENDU
    Else
    XIANZAI__WENDU(CGQidI_) = -255                      '如果传感器不存在则设置为-255度
    End If
Next
End Sub







'查找传感器,总线上必须挂有至少一个传感器
Sub FAXIAN_CGQs()
  Dim SysDS18B20_4 As Byte
  Dim FAXIAN_CGQ As Byte

  Locate 1 , 1
  Lcd "FAXIAN_ CGQ"

  FAXIAN_CGQ = 0
  CGQidI_1(1) = 1wsearchfirst()'开始寻找第一个传感器
  CGQ_ZHUANGTAI(1) = 1
  Incr FAXIAN_CGQ


  For Sysds18b20_4 = 2 To 5
    If SysDS18B20_4 = 2 Then CGQidI_2(1) = 1wsearchnext()
    If SysDS18B20_4 = 3 Then CGQidI_3(1) = 1wsearchnext()
     If Sysds18b20_4 = 4 Then Cgqidi_4(1) = 1wsearchnext()
      If Sysds18b20_4 = 5 Then Cgqidi_5(1) = 1wsearchnext()

'寻找下一个传感器
  If Err = 1 Then Exit For         '错误代码为1则退出循环
    CGQ_ZHUANGTAI(sysDS18B20_4) = 1
    Incr FAXIAN_CGQ
   Waitms 1000
   Next
  Cls
  Waitms 500
  Locate 1 , 1
  Lcd "FAXIAN_ " ; FAXIAN_CGQ ; " CGQs"
  Waitms 1000
End Sub


 

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

上一篇:ATmega2560单片机12路PWM输出的程序 每路PWM可独立控制
下一篇:控制单个单片机IO的按键+定时器10ms定时器程序

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

推荐阅读

AVR ATmega1280定时器PWM输出程序
;   unsigned int temp;    timer1_ticks = 0;    timer1_ticksmin = 0;    TCCR1A = 0x00;    TCCR1B = 0x00;    TCCR1C = 0x00;    TCNT1H = 0x00;    TCNT1L = 0x00;    temp = F_CPU/16/20;    OCR1A=temp;    //temp = temp
发表于 2019-11-20
atmega8l直接驱动笔段式lcd驱动程序
#include"include.h"uchar lcdtab[3][10][3]={{{0x07,0x01,0x03},{0x04,0x00,0x02},{0x06,0x03,0x01},{0x06,0x02,0x03},{0x05,0x02,0x02},{0x03,0x02,0x03},{0x03,0x03,0x03},{0x06,0x00,0x02},{0x07,0x03,0x03},{0x07,0x02,0x03}},{{0x18,0x14,0x0c},{0x10,0x10,0x00},{0x18,0x08,0x0c},{0x18,0x18,0x08},{0x10,0x1c,0x00},{0x08,0x1
发表于 2019-11-18
Atmega32A驱动LCD1602显示屏
对于初学者来说,最烦躁的可能就是调试程序,往往小小一个问题,要找个一个小时,甚至几个小时才能解决,这个程序是刚调试完的,整整九个多小时啊,现在看着挺简单的,没调试好前根本不敢肯能调得好.高手别笑,初学者参考编程环境Atmel Studio 7.0 和Proteus 8仿真,说明:仿真和真实电路是有点区别的,仿真Proteus 8只能用内部晶振,最大8MHz,我的DIY板是16M,所以实际电路总是比仿真的跑快好多单片机源程序:/** LCD1602_AVR.h** Created: 2017/3/19 23:07:51*  Author: lyl*LCD1602的基本操作时序     
发表于 2019-11-11
Atmega32A驱动LCD1602显示屏
ATMEGA16L实现时间和温度的循环显示程序分享
//ICC-AVR application builder : 2/13 20:52:33/******************************************************************************** 版权:     ** 单片机:   ATMAGE16L* 晶振:     外部8MHz* 编译器:   ICC 7.22** 文件名:   main.c* 作者:     木子工作室* 版本:     1.0* 完成日期: * 功能描述: 在12M晶振下
发表于 2019-11-09
基于ATmega128单片机的红外控制电机系统源码
单片机源程序如下:#include "Main.h"SIGNAL(SIG_OVERFLOW0) //中断每1秒发一个数{                TCNT0 = 200;         TIMSK &= ~_BV(TOIE0);  //TIMSK中TOIE0置0        if(++g_bCount>1)        {     
发表于 2019-11-09
AVR stdio写的ATMEGA16控制步进电机正反转和速度
AVR stdio写的ATMEGA16控制步进电机正反转和速度,供大家免费参阅和批评适合初学者,总共七个按键  三个按键控制三个速度正转,三个按键控制三个速度反转,一个按键控制停止。本程序控制步进电机是和步进电机驱动器相连接的,所以脉冲只有一路,如果想直接连步进电机只需要稍加改动即可。 主程序预览:#define F_CPU 800000UL#include <avr/io.h>#include <util/delay.h>#define INT8U unsigned int#define INT16U unsigned intconst INT8U FFW[]={0x01
发表于 2019-11-09
AVR stdio写的ATMEGA16控制步进电机正反转和速度
小广播
何立民专栏 单片机及嵌入式宝典

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

电子工程世界版权所有 京ICP证060456号 京ICP备10001474号 电信业务审批[2006]字第258号函 京公海网安备110108001534 Copyright © 2005-2019 EEWORLD.com.cn, Inc. All rights reserved