|
Датччик температуры LM35
|
|
| Ethno |
Дата: Пн, 07.10.2013, 17:13 | Сообщение # 1 |
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
91
Замечания:
±
На сайте с 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
|
|
|
|
| Matrix252005 |
Дата: Пн, 07.10.2013, 17:41 | Сообщение # 2 |
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
636
Замечания:
±
На сайте с 12.10.2007
Статус:
Offline
|
Приятного времени суток!!!
Ethno, Вам обязателен весь диапазон??? Если ДА, тогда придется немного "по колдовать" над LM35...
Цитата:
THE TRUTH IS OUT THERE.
С уважением, Николай.
|
|
|
|
| Ethno |
Дата: Пн, 07.10.2013, 17:50 | Сообщение # 3 |
|
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
91
Замечания:
±
На сайте с 11.12.2012
Статус:
Offline
|
не для всего.. датчик лежит хочется его приспособить к чему нибудь.. да и интересно как работает.. как использовать...
|
|
|
|
| shaman |
Дата: Пн, 07.10.2013, 18:18 | Сообщение # 4 |
Группа:
Проверенные
Ранг:
Могу и подсказать
Сообщений:
178
Замечания:
±
На сайте с 07.11.2011
Статус:
Offline
|
День добрый в архиве программа проверяйте.......
|
|
|
|
| Ethno |
Дата: Пн, 07.10.2013, 20:19 | Сообщение # 5 |
|
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
91
Замечания:
±
На сайте с 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
Сообщение отредактировал
Ethno - Пн, 07.10.2013, 20:37
|
|
|
|
| MiXaS |
Дата: Пн, 07.10.2013, 21:20 | Сообщение # 6 |
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
549
Замечания:
±
На сайте с 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
Замечания:
±
На сайте с 11.12.2012
Статус:
Offline
|
LM35 у меня их штук пять.. я хочу их применять для термо стабилизации датчиков магнитного поля..
Сообщение отредактировал
Ethno - Пн, 07.10.2013, 21:38
|
|
|
|
| MiXaS |
Дата: Пн, 07.10.2013, 21:41 | Сообщение # 8 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
549
Замечания:
±
На сайте с 02.10.2010
Статус:
Offline
|
Цитата (Ethno) LM35 у меня их штук пять.
Жаль! А магнитное поле мощное?
|
|
|
|
| Ethno |
Дата: Пн, 07.10.2013, 21:43 | Сообщение # 9 |
|
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
91
Замечания:
±
На сайте с 11.12.2012
Статус:
Offline
|
Археологические объекты 10-100 нТесла
Сообщение отредактировал
Ethno - Пн, 07.10.2013, 21:43
|
|
|
|
| MiXaS |
Дата: Пн, 07.10.2013, 21:46 | Сообщение # 10 |
|
Группа:
Проверенные
Ранг:
Разобрался
Сообщений:
549
Замечания:
±
На сайте с 02.10.2010
Статус:
Offline
|
Интересно! Датчики на основе холла?
|
|
|
|
| Ethno |
Дата: Пн, 07.10.2013, 22:13 | Сообщение # 11 |
|
Группа:
Проверенные
Ранг:
Понимаю
Сообщений:
91
Замечания:
±
На сайте с 11.12.2012
Статус:
Offline
|
Ферозонды.. на пермалое
Сообщение отредактировал
Ethno - Пн, 07.10.2013, 22:14
|
|
|
|
