基于18b20溫度帶上限程序-LCD1602液晶顯示篇

ID:105323 · 發(fā)表于 2016-2-22 01:43

下圖為圖片:具體說明看前一篇的,這是用1602來顯示的,程序是修改前面幾個實驗的,當(dāng)溫度<40度時電風(fēng)扇不轉(zhuǎn),當(dāng)>=40度時電風(fēng)扇轉(zhuǎn)動.下面實驗做的截圖,為參加電子比賽做的單片機系統(tǒng)實驗.

全部程序:

ORG 0000H
;單片機內(nèi)存分配申明!
TEMPER_L EQU 29H;用于保存讀出溫度的低8位
TEMPER_H EQU 28H;用于保存讀出溫度的高8位
FLAG1 EQU 38H;是否檢測到DS18B20標(biāo)志位
a_bit equ 20h ;數(shù)碼管個位數(shù)存放內(nèi)存位置
b_bit equ 21h ;數(shù)碼管十位數(shù)存放內(nèi)存位置
RS EQU P3.7;確定具體硬件的連接方式
RW EQU P3.6 ;確定具體硬件的連接方式
E EQU P3.5 ;確定具體硬件的連接方式
;主程序
MAIN:
LCALL GET_TEMPER;調(diào)用讀溫度子程序
MOV A,29H
MOV C,40H;將28H中的最低位移入C
RRC A
MOV C,41H
RRC A
MOV C,42H
RRC A
MOV C,43H
RRC A
MOV 29H,A
clr c
setb p3.0;zhelikais從這里開始是我填加的溫度控制
CJNE A,#28H,FIT
SETB P3.0
AJMP DISLED
FIT:CPL C
MOV P3.0,C;jiesu到這里結(jié)束
DISLED:LCALL DISPLAY;調(diào)用數(shù)碼管顯示子程序
AJMP MAIN
;DS18B20復(fù)位初始化子程序
INIT_1820:SETB P2.2
NOP
CLR P2.2;主機發(fā)出延時537微秒的復(fù)位低脈沖
MOV R1,#3
TSR1:MOV R0,#107
DJNZ R0,$
DJNZ R1,TSR1
SETB P2.2;然后拉高數(shù)據(jù)線
NOP
NOP
NOP
MOV R0,#25H
TSR2:JNB P2.2,TSR3;等待DS18B20回應(yīng)
DJNZ R0,TSR2
LJMP TSR4 ; 延時
TSR3:SETB FLAG1 ; 置標(biāo)志位,表示DS1820存在
CLR P1.7;檢查到DS18B20就點亮P1.7LED,與傳感器通信成功
LJMP TSR5
TSR4:CLR FLAG1 ; 清標(biāo)志位,表示DS1820不存在
CLR P1.1;未檢查到DS18B20就點亮P1.1LED，與傳感器通信失敗
LJMP TSR7
TSR5:MOV R0,#117
TSR6:DJNZ R0,TSR6 ; 時序要求延時一段時間
TSR7:SETB P2.2
RET
;讀出轉(zhuǎn)換后的溫度值的子程序
GET_TEMPER:SETB P2.2
LCALL INIT_1820;先復(fù)位DS18B20
JB FLAG1,TSS2
CLR P1.2
RET ; 判斷DS1820是否存在?若DS18B20不存在則返回
TSS2:CLR P1.3;DS18B20已經(jīng)被檢測到!
MOV A,#0CCH ; 跳過ROM匹配
LCALL WRITE_1820
MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
LCALL WRITE_1820
LCALL DISPLAY;這里通過調(diào)用顯示子程序?qū)崿F(xiàn)延時一段時間,等待AD轉(zhuǎn)換結(jié)束,12位的話750微秒
LCALL INIT_1820;準(zhǔn)備讀溫度前先復(fù)位
MOV A,#0CCH ; 跳過ROM匹配
LCALL WRITE_1820
MOV A,#0BEH ; 發(fā)出讀溫度命令
LCALL WRITE_1820
LCALL READ_18200; 將讀出的溫度數(shù)據(jù)保存到35H/36H
CLR P1.4
RET
;寫DS18B20的子程序(有具體的時序要求)
WRITE_1820:MOV R2,#8;一共8位數(shù)據(jù)
CLR C
WR1:CLR P2.2
MOV R3,#6
DJNZ R3,$
RRC A
MOV P2.2,C
MOV R3,#23
DJNZ R3,$
SETB P2.2
NOP
DJNZ R2,WR1
SETB P2.2
RET
; 讀DS18B20的程序,從DS18B20中讀出兩個字節(jié)的溫度數(shù)據(jù)
READ_18200:MOV R4,#2 ; 將溫度高位和低位從DS18B20中讀出
MOV R1,#29H ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H)
RE00:MOV R2,#8;數(shù)據(jù)一共有8位
RE01:CLR C
SETB P2.2
NOP
NOP
CLR P2.2
NOP
NOP
NOP
SETB P2.2
MOV R3,#9
RE10:DJNZ R3,RE10
MOV C,P2.2
MOV R3,#23
RE20:DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
;顯示子程序
display: acall DL100MS
acall DL100MS
mov a,29H;將29H中的十六進制數(shù)轉(zhuǎn)換成10進制
mov b,#10 ;10進制/10=10進制
div ab
mov b_bit,a ;十位在a
mov a_bit,b ;個位在b
add a,#00110000b
mov b_bit,a
mov a,b
add a,#00110000b
mov a_bit,a
MOV P1,#00000001B; ；清屏并光標(biāo)復(fù)位
ACALL ENABLE;調(diào)用寫入命令子程序
MOV P1,#00111000B ;；設(shè)置顯示模式:8位2行5x7點陣
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,#00001111B ;；顯示器開、光標(biāo)開、光標(biāo)允許閃爍
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,#00000110B ;；文字不動，光標(biāo)自動右移
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,#80H ;；寫入顯示起始地址（第二行第一個位置）
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,b_bit ;；A十位送出去
SETB RS; ；RS=1
CLR RW; ；RW=0 ;準(zhǔn)備寫入數(shù)據(jù)
CLR E; ；E=0 ;執(zhí)行顯示命令
ACALL DELAY ;判斷液晶模塊是否忙?
SETB E ;；E=1 ;顯示完成,程序停車
MOV P1,#00000110B ;；文字不動，光標(biāo)自動右移
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,#81H ;；寫入顯示起始地址（第二行第2個位置）
ACALL ENABLE ;調(diào)用寫入命令子程序
MOV P1,a_bit;；字母A的代碼
SETB RS; ；RS=1
CLR RW; ；RW=0 ;準(zhǔn)備寫入數(shù)據(jù)
CLR E; ；E=0 ;執(zhí)行顯示命令
ACALL DELAY ;判斷液晶模塊是否忙?
SETB E ;；E=1 ;顯示完成,程序停車
ret
ENABLE:
CLR RS; ；寫入控制命令的子程序
CLR RW
CLR E
ACALL DELAY
SETB E
RET
DELAY:
MOV P1,#0FFH ;；判斷液晶顯示器是否忙的子程序
CLR RS
SETB RW
CLR E
NOP
SETB E
JB P1.7,DELAY; ；如果P1.7為高電平表示忙就循環(huán)等待
RET
DL100MS: MOV R7,#02H
DL1: MOV R6,#0C8H
DL2: MOV R5,#0FAH
DJNZ R5,$
DJNZ R6,DL2
DJNZ R7,DL1
RET
end

復(fù)制代碼

ID:106195 · 發(fā)表于 2016-2-24 20:16

求此電路圖。。。謝謝。

帳號		自動登錄	找回密碼
密碼			立即注冊

基于18b20溫度帶上限程序-LCD1602液晶顯示篇

相關(guān)帖子

瀏覽過的版塊