| vanish |
Дата: Сб, 09.07.2011, 19:46 | Сообщение # 16 |
![]( "vanish")
Группа:
Проверенные
Ранг:
Пытаюсь разобраться
Сообщений:
57
Замечания:
±
На сайте с 08.04.2010
Статус:
Offline
|
Спасибо, все заработало как надо.Мне еще учиться и учиться, блин. Особенно операции с битами изучить нужно.
|
|
|
|
| ADMIN |
Дата: Сб, 09.07.2011, 20:05 | Сообщение # 17 |
Администратор
Группа:
Администраторы
Ранг:
Специалист
Сообщений:
1082
Замечания:
±
На сайте с 20.08.2007
Статус:
Offline
|
в чем все-таки проблема была?
|
|
|
|
| vanish |
Дата: Сб, 09.07.2011, 21:08 | Сообщение # 18 |
![]( "vanish")
Группа:
Проверенные
Ранг:
Пытаюсь разобраться
Сообщений:
57
Замечания:
±
На сайте с 08.04.2010
Статус:
Offline
|
В формуле обработки полученной температуры.
TERMO_CONVERT:
GoSub init1820 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
OWrite DQ,1,[$CC,$44]
Repeat
DelayMS 25
ORead DQ,4,[C]
Until C>0
GoSub init1820 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
OWrite DQ,1,[$CC,$BE]
ORead DQ,2,[R_TEMP.LowByte,R_TEMP.HighByte]
; Ýòî îáðàáîòêà ïîëó÷åíîé òåìïåðàòóðû
If R_TEMP.11 = 1 Then 'Òåìïåðàòóðà ìèíóñ
Sign = "-"
R_TEMP = ~R_TEMP + 1
Else
Sign = "+"
EndIf
TempC = (R_TEMP & $0FF0) >> 4
Float1 = R_TEMP.LowByte & $0F
float0 = LookUpL Float1, [0,1,1,2,2,3,4,4,5,6,6,7,7,8,9,9]
TEMPerature = (TempC * 10) + float0
a1 = Dig TEMPerature, 1
a2 = Dig TEMPerature, 2
Эта формула оказалась оптимальной.Спасибо всем кто помогал.
Сообщение отредактировал
vanish - Сб, 09.07.2011, 21:26
|
|
|
|
