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

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: demanik, ivan_fd  
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Датччик температуры LM35
Датччик температуры LM35
Ethno Дата: Пн, 07.10.2013, 17:13  |                                                                                                                Сообщение # 1
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

Прицепил датчик температуры Lm35 вроде все показывает кроме отрицательных температур.. как вывести минусовую температуру?

Device =16F873A
Xtal=4
Declare Adin_Res = 10
Declare adin_tag = FRC
Declare  Adin_Stime = 50

Declare LCD_Type ALPHA
Declare LCD_DTPin PORTB.4
Declare LCD_ENPin PORTB.3
Declare LCD_RSPin PORTB.2
Declare LCD_Interface 4
Declare LCD_CommandUs 2000
Declare LCD_DataUs 50
Declare LCD_Lines 2

Dim VAR1 As Word

TRISA = %00000111
ADCON1 = %11000000

Again:
VAR1 = ADIn 0
DelayUs 1
If VAR1 > 24 Then VAR1 = VAR1 - 1
Print At 1, 1,  Dec VAR1 /2
DelayMs 200
GoTo Again

Сообщение отредактировал Ethno - Пн, 07.10.2013, 17:16
ЯНДЕКС Дата: 07.10.2013
Matrix252005 Дата: Пн, 07.10.2013, 17:41  |                                                                                                                Сообщение # 2
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 636
Репутация: 43   ±
Замечания:   ±
На сайте с 12.10.2007

Статус: Offline

Приятного времени суток!!!

Ethno, Вам обязателен весь диапазон??? Если ДА, тогда придется немного "по колдовать" над LM35...

Цитата:
"Типовая схема включения ИДТ LM35 для измерения положительных температур приведена на рис. 3а, а для всего диапазона температур — на рис. 3б."
http://www.kosmodrom.com.ua/data/termo/nscter3.gif


THE TRUTH IS OUT THERE.

С уважением, Николай.
Ethno Дата: Пн, 07.10.2013, 17:50  |                                                                                                                Сообщение # 3
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

не для всего.. датчик лежит хочется его приспособить к чему нибудь.. да и интересно как работает.. как использовать...
shaman Дата: Пн, 07.10.2013, 18:18  |                                                                                                                Сообщение # 4
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 178
Репутация: 5   ±
Замечания:   ±
На сайте с 07.11.2011

Статус: Offline

День добрый в архиве программа проверяйте.......
Прикрепления: LM35.7z (16.0 Kb)
Ethno Дата: Пн, 07.10.2013, 20:19  |                                                                                                                Сообщение # 5
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

Коряво, но получилось все работает..

Device =16F873A
Xtal=4
Declare Adin_Res = 12
Declare adin_tag = FRC
Declare  Adin_Stime = 50

Declare LCD_Type ALPHA
Declare LCD_DTPin PORTB.4
Declare LCD_ENPin PORTB.3
Declare LCD_RSPin PORTB.2
Declare LCD_Interface 4
Declare LCD_CommandUs 2000
Declare LCD_DataUs 50
Declare LCD_Lines 4

Dim VAR1 As Word
Dim VAR2 As Word
Dim VAR3 As Word

TRISA = %00000011
ADCON1 = %11000000

Again:

VAR1 = ADIn 0
DelayUS 1
VAR2 = ADIn 1
DelayUS 1
VAR1 = (VAR1 - VAR2) /2
VAR3 =32768
VAR3 = VAR3 -VAR1
If VAR1 =0 And VAR1 <=55 Then GoTo loop
If VAR1 <=32767 And VAR1 >=32713 Then GoTo loop1
If VAR3 =0 And VAR3 <=55 Then GoTo loop1

loop:

Print At 1, 1, $12,  Dec2 VAR1, $DF, "C"
GoTo Again
loop1:

Print At 1,1, "-", Dec2 VAR3, $DF, "C"
GoTo Again

Прикрепления: 9083638.jpg (22.0 Kb)

Сообщение отредактировал Ethno - Пн, 07.10.2013, 20:37
MiXaS Дата: Пн, 07.10.2013, 21:20  |                                                                                                                Сообщение # 6
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 550
Репутация: 27   ±
Замечания:   ±
На сайте с 02.10.2010

Статус: Offline

Дело конечно Ваше, но давно уже отказался от подобного барахла, тем более что цена такая же как у цифрового даласа DS18b20.
+:

1.Точность у него отличная 0,25 гр С, но на самом деле он точнее
2 с отрицательными температурами работает отлично
3. диапазон измеряемых температур от -55 до + 128 (В даташите до 125)
4. по однопроводной шине можно подключить до 32 датчиков, (на один порт), с аналоговым такая вата не пролезет.
5. Цена с каждым днем все меньше, у китайцев можно купить за 1$, если поискать и взять десяток, то еще дешевле.
6. Есть в железном корпусе с проводами, правда уже стоит >=2$

Если вам точность не нужна огромная (инкубатор например), то вот это лучший вариант, есть другие цифровые, намного точнее, но они уже стоят от 10$, имеют корпус безвводный QNFP, но паяльником можно запаять, пробовал.
Короче когда я их попробовал, на аналог вообще переходить не охота! Если знаете ID датчика, то 2 команды и вы знаете температуру, потом еще одна строка, и прочитать её уже можно человеку.
Ethno Дата: Пн, 07.10.2013, 21:35  |                                                                                                                Сообщение # 7
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

LM35 у меня их штук пять.. я хочу их применять для термо стабилизации датчиков магнитного поля..
Сообщение отредактировал Ethno - Пн, 07.10.2013, 21:38
MiXaS Дата: Пн, 07.10.2013, 21:41  |                                                                                                                Сообщение # 8
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 550
Репутация: 27   ±
Замечания:   ±
На сайте с 02.10.2010

Статус: Offline

Цитата (Ethno)
LM35 у меня их штук пять.


Жаль! А магнитное поле мощное?
Ethno Дата: Пн, 07.10.2013, 21:43  |                                                                                                                Сообщение # 9
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

Археологические объекты 10-100 нТесла
Сообщение отредактировал Ethno - Пн, 07.10.2013, 21:43
MiXaS Дата: Пн, 07.10.2013, 21:46  |                                                                                                                Сообщение # 10
Группа: Проверенные
Ранг:  Разобрался
Сообщений: 550
Репутация: 27   ±
Замечания:   ±
На сайте с 02.10.2010

Статус: Offline

Интересно! Датчики на основе холла?
Ethno Дата: Пн, 07.10.2013, 22:13  |                                                                                                                Сообщение # 11
Группа: Проверенные
Ранг:  Понимаю
Сообщений: 91
Репутация: 2   ±
Замечания:   ±
На сайте с 11.12.2012

Статус: Offline

Ферозонды.. на пермалое
Сообщение отредактировал Ethno - Пн, 07.10.2013, 22:14
ЯНДЕКС Дата: 07.10.2013
Форум Picbasic.ru » Программирование МК » Proton PicBasic » Датччик температуры LM35
  • Страница 1 из 1
  • 1
Поиск: