能顯示溫度及時間(能調(diào)時鬧時)的bascom-avr程序

ID:696930 · 發(fā)表于 2020-9-16 10:32

$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
............
............
..............
程序是正確的,實驗是成功的,溫度是能顯示的,時間是很準(zhǔn)確的
小問題也是存在的,基本上也是能解決的.湊合湊合也是能用的

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

能顯示溫度及時間(能調(diào)時鬧時)的bascom-avr程序

評分