bascomavr_i2c ds1621温度传感器仿真

ID:342822 · 发表于 2023-10-27 22:57

ds1621温度传感器仿真程序：
rem Main.bas file generated by New Project wizard
rem
rem Created: 周三 10月 25 2023
rem Processor: ATmega88
rem Compiler:  BASCOM-AVR
rem Write your code here

$regfile = "m88def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 30
$framesize = 40

'$baud = 19200                      '定义通用异步收发设备BAUD速率
Config Clockdiv = 1                                     ' 确保芯片以8 MHz运行
Config Scl = Portc.5                                     ' 使用i2c引脚
Config Sda = Portc.4
Config Twi = 400000                                        ' i2c 速度
I2cinit
$lib "i2c_twi.lbx"                                        ' 不使用模拟软I2C，使用硬TWI
$lib "glcdSSD1306-I2C.lib"                               ' 用这个特殊的lib覆盖默认lib
Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"

' 声明用于温度存储的 RAM
Dim x As string *2                '*/-符号
Dim I2ctemp As byte                '温度存储
Dim I2ctemp1 As byte

'这里使用软件模拟 I2C 例程
' 配置要用于I2C总线的引脚
'Config Scl = Portd.2                '串行时钟SCL
'Config Sda = Portd.3                '串行数据SDA
'I2cinit

' 声明常量 - I2C 芯片地址
Const Ds1621wr = &B10010000          '写入Ds1621传感器
Const Ds1621rd = &B10010001          '读取Ds1621传感器
Const TH_XIANZI = 100                '上限温度（达到上限温度DS1624的TOUT脚输出高电平）。
Const TL_XIANZI = 85                '下限温度（达到下限温度DS1624的TOUT脚输出低电平）。
'*********************************************************
' 初始化Ds1621
  I2cstart                         '发送启动条件
  I2cwbyte Ds1621wr                '总线主机发送DS1621地址；R/W=0.

'访问配置寄存器（&HAC 地址字节）
  I2cwbyte &HAC                      '主机发送访问配置命令协议.
'设置连续转换（&H02 命令字节）
  I2cwbyte &H02
  I2cstop                            '发送停止条件
  Waitms 25                         '停止后等待一段时间

  I2cstart                         ''发送启动条件
  I2cwbyte Ds1621wr                '总线主机发送DS1621地址；R/W=0.
'访问TH（&Ha1 命令字节）
  I2cwbyte &Ha1                      '总线主机发送访问TH（高温）寄存器。命令.
  I2cwbyte TH_XIANZI                '总线主机发送限制TH（高温）寄存器为上限°C的第一个字节数据
  I2cwbyte &H00                      '总线主机发送限制TH（高温）寄存器为上限°C的第二字节数据。
  I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &Ha2                   '总线主站发送访问 TL（低温）寄存器命令。
  I2cwbyte TL_XIANZI             '总线主机发送TL（低温）寄存器下限温度°C的第一个字节数据。
  I2cwbyte &H00                   '总线主机发送TL（低温）寄存器下限温度°C的第二个字节数据.
  I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &Hee                '总线主机发送启动转换T命令协议。
  I2cstop
  Waitms 25
'初始化结束
'********************************************************
'获取当前温度
Do
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &HAA                '读取温度（和 HAA 命令字节）
I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621rd             '芯片将提供寄存器内容
'I2crbyte I2ctemp , Ack
  I2crbyte I2ctemp , Nack
  I2cstop

'判断温度值正负符号
if i2ctemp<=255 and i2ctemp>=201 then gosub fwd
if i2ctemp>=0 and i2ctemp<=128 then gosub zwd
if i2ctemp=0  then gosub zxz
Waitms 25
gosub xswd:
Waitms 25
Loop
end
'******************************************************

fwd:       '计算负温度值
  i2ctemp1=256-i2ctemp
x="-"
return

zwd:       '计算正温度值
i2ctemp1=i2ctemp
x="+"
return

zxz:       '零中性值没有+-属性
i2ctemp1=i2ctemp
x=" "
return

'********************************************************
xswd:    '显示温度
Setfont Arial_16x18
Lcdat 1 , 2 ,chr(128);chr(129);chr(130);":"; '显示“温度值”字符串。
Lcdat 4, 36 , x; Str(i2ctemp1) ; chr(127);"  "; '显示：温度值，+、-值符号，摄氏度符号。
Setfont font8x8TT
Lcdat 8 , 16 ,"DS1621_I2C"
return
'******************************************************

$include "../12.font"                                  ' 字体文件
$include "../font8x8TT.font"

帐号		自动登录	找回密码
密码			立即注册

bascomavr_i2c ds1621温度传感器仿真

评分