久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: bascomavr_i2c ds1621溫度傳感器仿真 [打印本頁]

作者: taotie    時間: 2023-10-27 22:57
標題: bascomavr_i2c ds1621溫度傳感器仿真


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                         '定義通用異步收發(fā)設備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                 '串行數(shù)據(jù)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                            '發(fā)送啟動條件
  I2cwbyte Ds1621wr                   '總線主機發(fā)送DS1621地址;R/W=0.

'訪問配置寄存器(&HAC 地址字節(jié))
  I2cwbyte &HAC                       '主機發(fā)送訪問配置命令協(xié)議.
'設置連續(xù)轉換(&H02 命令字節(jié))         
  I2cwbyte &H02                     
  I2cstop                             '發(fā)送停止條件
  Waitms 25                           '停止后等待一段時間

  I2cstart                            ''發(fā)送啟動條件
  I2cwbyte Ds1621wr                   '總線主機發(fā)送DS1621地址;R/W=0.
'訪問TH(&Ha1 命令字節(jié))
  I2cwbyte &Ha1                       '總線主機發(fā)送訪問TH(高溫)寄存器。命令.
  I2cwbyte TH_XIANZI                  '總線主機發(fā)送限制TH(高溫)寄存器為上限°C的第一個字節(jié)數(shù)據(jù)
  I2cwbyte &H00                       '總線主機發(fā)送限制TH(高溫)寄存器為上限°C的第二字節(jié)數(shù)據(jù)。
  I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &Ha2                    '總線主站發(fā)送訪問 TL(低溫)寄存器 命令。
  I2cwbyte TL_XIANZI               '總線主機發(fā)送TL(低溫)寄存器下限溫度°C的第一個字節(jié)數(shù)據(jù)。
  I2cwbyte &H00                    '總線主機發(fā)送TL(低溫)寄存器下限溫度°C的第二個字節(jié)數(shù)據(jù).
  I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &Hee                   '總線主機發(fā)送啟動轉換T命令協(xié)議。
  I2cstop
  Waitms 25
'初始化結束
'********************************************************
'獲取當前溫度
Do
  I2cstart
  I2cwbyte Ds1621wr
  I2cwbyte &HAA                   '讀取溫度(和 HAA 命令字節(jié))
I2cstop
Waitms 25
  I2cstart
  I2cwbyte Ds1621rd                '芯片將提供寄存器內(nèi)容  
'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"







歡迎光臨 (http://m.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板: 亚洲视频在线观看一区二区三区 | 国产成人午夜高潮毛片 | 在线伊人网 | 欧美日韩国产精品一区二区 | 中文字幕一二三 | 一区二区三区欧美在线 | 国产精品久久久久久久久久久久久 | 青青草一区二区 | 午夜资源 | 涩涩视频在线观看免费 | 99久久精品国产一区二区三区 | 狠狠撸在线视频 | 亚洲一区 中文字幕 | 性高湖久久久久久久久 | 精品二| 精品不卡 | 91高清视频 | 日韩免费视频一区二区 | 日本黄色大片免费 | 在线观看中文字幕亚洲 | 国产麻豆一区二区三区 | 国产精品乱码一区二区三区 | 欧美精品一区二区三区一线天视频 | ww 255hh 在线观看 | 成人久久久久 | 一级一片在线观看 | 国产黄色网址在线观看 | 国产精品1区2区3区 欧美 中文字幕 | 日韩中文字幕 | 免费v片| 午夜精品一区二区三区在线播放 | 一区二区三区四区国产 | 午夜久久久久久久久久一区二区 | 五月婷婷激情网 | 国产在线1区| 亚洲国产精品视频一区 | 免费在线观看av的网站 | 国产日韩久久 | 国产免费一区二区 | 在线播放国产一区二区三区 | 国产欧美日韩一区二区三区在线观看 |