Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: demanik, ivan_fd  
Подскажите формулу
vanish Дата: Сб, 09.07.2011, 19:46  |                                                                                                                Сообщение # 16
Группа: Проверенные
Ранг:  Пытаюсь разобраться
Сообщений: 55
Репутация: 0   ±
Замечания:   ±
На сайте с 08.04.2010

Статус: Offline

Спасибо, все заработало как надо.Мне еще учиться и учиться, блин. Особенно операции с битами изучить нужно.
ADMIN Дата: Сб, 09.07.2011, 20:05  |                                                                                                                Сообщение # 17
Администратор
Группа: Администраторы
Ранг:  Специалист
Сообщений: 1086
Репутация: 32   ±
Замечания:   ±
На сайте с 20.08.2007

Статус: Offline

в чем все-таки проблема была?
vanish Дата: Сб, 09.07.2011, 21:08  |                                                                                                                Сообщение # 18
Группа: Проверенные
Ранг:  Пытаюсь разобраться
Сообщений: 55
Репутация: 0   ±
Замечания:   ±
На сайте с 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
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: