oo:
$regfile = "m16def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Rs = Porta.5 , E = Porta.4 , Db4 = Porta.0 , Db5 = Porta.1_
, Db6 = Porta.2 , Db7 = Porta.3
Config Lcd = 16 * 2
Cursor Off
Config Single = Scientific , Digits = 1
Config 1wire = Portd.3
Dim Ss As String * 30
Dim Temp1 As String * 30
Dim Temp2 As String * 30
Dim I1 As Integer
Dim I2 As Integer
Dim I11 As Single
Dim I22 As Single
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
'##############################################################################'
Dim L As Single
Dim H As Single
Dim Ll As String * 4
Dim Hh As String * 4
Dim T As Single
Dim T1 As Single
Dim T2 As Single
Dim Dt As Single
Dim F As Byte , V As Byte , Kilid As Byte
'##############################################################################'
Dsid1(1) = 1wsearchfirst()
Dsid2(1) = 1wsearchnext()
'**************'
Config Portd.2 = Output
Config Porta.6 = Output
Config Portd.0 = Output
Config Portd.4 = Input
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
'**************'
Cls
Lcd " SAFARNEJAD"
Locate 2 , 4
Lcd "09382367005"
Wait 5
Submain:
F = 1
Cls
Cursor Off
Readeeprom L , 1
Waitms 5
Readeeprom H , 8
Waitms 5
Readeeprom Kilid , 12
Waitms 5
Ll = Fusing(l , "#.#")
Do
If Pind.5 = 0 And F = 0 Then Goto Settempon
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
If Err = 1 Then
Cls
Locate 1 , 4
Lcd "No DS18B20"
Wait 1
Else
'---------------------------------'
1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
I1 = 1wread(2)
'---------------------------------'
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
I2 = 1wread(2)
'---------------------------------'
Ss = ""
I11 = I1 \ 16
Ss = Fusing(i11 , "#.##")
Temp1 = Ss
Dt = Val(temp1)
T1 = Dt
Ss = ""
I22 = I2 \ 16
Ss = Fusing(i22 , "#.##")
Temp2 = Ss
Dt = Val(temp2)
T2 = Dt
If Kilid = 0 Then T = T1
If Kilid = 1 Then T = T2
If Pind.4 = 0 And V = 0 Then
Incr Kilid
If Kilid > 1 Then Kilid = 0
V = 1
Writeeeprom Kilid , 12
Waitms 5
Cls
Waitms 300
Cls
End If
If Pind.4 = 1 Then V = 0
Locate 1 , 1
If Kilid = 0 Then Lcd "T1=" ; Temp1 ; Chr(223) ; "C "
If Kilid = 1 Then Lcd "T2=" ; Temp2 ; Chr(223) ; "C "
Locate 2 , 1
Lcd "TEMP OFF:" ; Ll
End If
Deflcdchar 1 , 31 , 28 , 29 , 29 , 13 , 19 , 27 , 27
If T > L And T < H Then
End If
'***************'
'***************'
'Gharm Shodan'
If T > L Then
Locate 1 , 14
Lcd "L"
Set Porta.6
Set Portd.2
Waitms 1000
Reset Porta.6
Waitms 250
Else
Locate 1 , 14
Lcd " "
Reset Porta.6
Reset Portd.2
Waitms 250
End If
If Pind.5 = 1 Then F = 0
Loop
'******************************************************************************'
Settempon:
F = 1
Cursor Off
Locate 1 , 1
Cls
Lcd "SET TEMP L"
Do
If Pind.7 = 0 Then L = L + 0.1
If Pind.6 = 0 Then L = L -0.1
If Pind.5 = 0 And F = 0 Then
Writeeeprom L , 1
Waitms 5
Cls
Goto Submain
End If
Locate 2 , 1
Lcd "TEMP L = " ; L ; Chr(0) ; "c "
If Pind.5 = 1 Then F = 0
Waitms 120
Loop
'******************************************************************************'
'#############################eeprom data######################################'
Dta:
$eeprom
Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16
$data
دیدگاه