Подскажите формулу - Страница 2 - Форум Picbasic.ru
Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 2 из 2«12
Модератор форума: demanik 
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Подскажите формулу (Преобразование температуры 18в20)
Подскажите формулу
vanish Дата: Сб, 09.07.2011, 19:46  |                                                                                                                Сообщение # 16
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 60
Репутация: 0   ±
Замечания:   ±
На сайте с 08.04.2010

Статус: Offline

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

Статус: Offline

в чем все-таки проблема была?
vanish Дата: Сб, 09.07.2011, 21:08  |                                                                                                                Сообщение # 18
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 60
Репутация: 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
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Подскажите формулу (Преобразование температуры 18в20)
Страница 2 из 2«12
Поиск: