Даташит не соотносится ни с каким языком и если выбрали Bascom - это Ваше лично дело, но внимательного чтения Datasheetа никто не отменял.Magicanin писал(а):Даташит не соотносится с Bascom
) . Как я понял на одной линии висит несколько DS18b20.
флаг устанавливается аппаратно, после подачи команды CONVERT T [44h]Magicanin писал(а):Вот только не знаю как прочитать флаг с кажной DS'ки
...а больше наверное и не нужноMagicanin писал(а):В даташите написано что эта функция аналогична поиску ROM и на этом все пояснения.
Как DS18b20 может сообщить мастер-устройству на запрос ALARM SEARCH [ECh], что у него установлен бит тревоги? ... конечно только своим ROM-кодом (ведь если у нескольких датчиков установлен бит тревоги, то они ответят одновременно и на шине будет конфликт) именно поэтому функция аналогична поиску ROM
не знаком с Bascom-AVR, а даташиты по ангельски мы и сами читать умеем.
Код: Выделить всё
Sub Init
Cls
Do
W = 1wirecount()
Dsid(1) = 1wsearchfirst()
If W > 0 Then
Locate 1 , 3 : Lcd "CeЅcop oІЅapy¶eЅ "
Locate 2 , 3
For L = 1 To 8
Lcd Hex(dsid(l))
Next
Locate 3 , 4 : Lcd "CoxpaЅёїД єaє:"
Wait 1
Do
If Left_ = 0 Then
Waitms 300
Incr P
If P > 9 Then P = 1
Elseif Right_ = 0 Then
Waitms 300
Decr P
If P < 1 Then P = 9
End If
Locate 4 , 2
If P = 1 Then Lcd " y»ёеa "
If P = 2 Then Lcd " ґapa¶ "
If P = 3 Then Lcd " ѕoґpeІ "
If P = 4 Then Lcd " єopёгop "
If P = 5 Then Lcd " ·a» "
If P = 6 Then Lcd "1№ є-p ѕoгaАa "
If P = 7 Then Lcd "1№ є-p oІpaїєa "
If P = 8 Then Lcd "2№ є-p ѕoгaАa "
If P = 9 Then Lcd "2№ є-p oІpaїєa "
Loop Until Menu_ = 0
L = P - 1
L = L * 8 'вычисление ячейки памяти
For M = 1 To 8
K = M + L
Value = Dsid(m)
Writeeeprom Value , K
Next M
Scw(1) = 30
Scw(2) = 35
Scw(3) = &B00111111
1wreset
1wverify Dsid(1)
1wwrite &H4E
For M = 1 To 3
1wwrite Scw(m)
Next M
Waitms 10
1wverify Dsid(1)
1wwrite &H48
1wreset
Locate 3 , 4 : Lcd "CoxpaЅeЅo єaє:"
Wait 2
Cls
Else
Locate 2 , 2 : Lcd "©cїaЅoіёїe ceЅcop"
End If
Loop
End Sub
...
...
Sub Style1
Locate 1 , 1 : Lcd "Teјѕepaїypa іЅeБЅЗЗ:"
Locate 2 , 1
Call Gettemperature(1)
Lcd "©»ёеa " ; Temp_sign ; X10 ; "," ; X01 ; Chr(3) ; " " 'текущая темп-ра
Locate 3 , 1
Call Gettemperature(2)
Lcd "Ўapa¶ " ; Temp_sign ; X10 ; "," ; X01 ; Chr(3) ; " " 'текущая темп-ра
End Sub
...
...
Sub Gettemperature(byval Numds As Byte)
L = Numds - 1
L = L * 8
For M = 1 To 8
K = M + L
Readeeprom Value , K
Dsid(m) = Value
Next M
1wverify Dsid(1)
If Err = 1 Then
'Lcd "Err " 'Err = 1 if something is wrong
X10 = 999
X01 = 9
Temperature = 999
'Call Write_eeprom(20 , 0 )
Elseif Err = 0 Then 'lcd " Sensor found"
1wwrite &HBE
Sc(1) = 1wread(2) 'read bytes into array
Temperature = Makeint(sc(1) , Sc(2)) 'складываем старший с младшим байты
Temperature = Temperature * 10
Temperature = Temperature / 16
'If Temperature > 999 Then Temperature = 999
If Sc(2) > 127 Then 'если отрицательная температура
Minus = 1
Temp_sign = "-"
Temperature = Not Temperature 'инвертируем
Temperature = Temperature + 1 'добавляем еденичку (такая уж процедура...)
Else
Minus = 0
Temp_sign = "+"
End If
X10 = Temperature / 10
N_temp = X10 * 10
X01 = Temperature - N_temp
End If
End Sub
...