Пятница, 09.12.2016, 19:20
| RSS
Главная | Контроллер температуры и влажности - Страница 2 - Форум
Защита, контроль, управление
Форма входа
Логин:
Пароль:
[ Новые сообщения · Участники · Правила форума · Поиск · RSS · Чат ]
Страница 2 из 9«123489»
Модератор форума: Zoolu 
Форум » ФОРУМ » Домашняя автоматизация на Raspberry Pi » Контроллер температуры и влажности
Контроллер температуры и влажности


SegadorДата: Воскресенье, 18.01.2015, 21:57 | Сообщение # 11
Группа: VIP
Сообщений: 49
Статус: Offline
Уважаемый Admin!
Если можно, пару вопросов:
1. Существует ли какой-то предпочтительный тип (с учетом Вашего видения перспективы)  индикаторов, для использования в представленных на сайте контроллерах?
2. Какие рекомендуется использовать длины соединительных проводов между контроллером и датчиками температуры разных типов?
 
AdminДата: Вторник, 20.01.2015, 21:50 | Сообщение # 12
Admin
Группа: Администраторы
Сообщений: 3195
Статус: Offline
Цитата Segador ()
1. Существует ли какой-то предпочтительный тип (с учетом Вашего видения перспективы)  индикаторов, для использования в представленных на сайте контроллерах?

2-х или 4-х строчные (в зависимости от контроллера) на чипах совместимых с HD44780 (KS0066)

Цитата Segador ()
2. Какие рекомендуется использовать длины соединительных проводов между контроллером и датчиками температуры разных типов?

У меня датчики (DHT11/22) подключены 4-х жильным кабелем, длина достигает 20 метров. Думаю, что это далеко не предел smile
 


gorrec41Дата: Пятница, 30.01.2015, 21:35 | Сообщение # 13
Группа: Пользователи
Сообщений: 58
Статус: Offline
вопрос по дисплеям есть 2шт wh2004a в протеусе все работает как надо в железе на идикаторах черные прямоугольники (контрастность крутил не помогает .монтаж проверен не один раз )код на bascom контролер atmega16  фьюзы выставлены  куда еще покопать. Ятак понимаю что инициализация не проходит

$regfile = "m16def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Open "comd.0:9600,8,n,1" For Output As #1
Open "comd.1:9600,8,n,1" For Input As #2

' ------------------------
'  1 Vss
'  2 Vdd
'  3 V0
'  4 RS        PA5
'  5 R/W       gnd
'  6 E         PA7
'  7 DB0       PD0
'  8 DB1       PD1
'  9 DB2       PD2
' 10 DB3       PD3
' 11 DB4       PD4
' 12 DB5       PD5
' 13 DB6       PD6
' 14 DB7       PD7

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Porta.7 , Rs = Porta.5
Config Lcd = 20 * 4
INITLCD
Cls
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Pina.0 = Input
Start Adc

Config 1wire = Portd.2                                      ' íà ýòó íîæêó ïîäêëþ÷èì DS18B20 è ïîäòÿãèâàþùèé ðåçèñòîð íà 4,7 êîì ê + ïèòàíèÿ
Config Portb.0 = Output
Config Portb.1 = Output
Config Porta.2 = Output

'****************************?????? ?????????***********************************

Dim Signtemperatura As String * 1 , Celsium As String * 5
Dim Byte0 As Byte , Byte1 As Byte , T As Byte
Dim Dsid1(8) As Byte , Dsid2(8) As Byte
Dim Temp As Byte , X As Byte
Dim W As Word
Dim M As Word

W = 1wirecount()
Dsid1(1) = 1wsearchfirst()
Do
Dsid2(1) = 1wsearchnext()
Loop Until Err = 1

'*******************************************************************************

Do

Gosub Convallt
M = Getadc(0) : Gosub Shtory                                'ñ÷èòûâàåì ðåçóëüòàò ñ ïèíà 0 ïîðòà À.

Locate 4 , 4                                              ' ïîçèöèÿ êóðñîðà
Lcd "ADC(0):" ; M ; "   "                                 'âûâîäèì ðåçóëüòàò ïðåîáðàçîâàíèÿ íà ÆÊ

Waitms 100                                                ' çåäåðæêà 0,1 ñåêóíäû
1wverify Dsid1(1) : X = 1 : Gosub Temperature               '1 ds18b20
1wverify Dsid2(1) : X = 2 : Gosub Temperature               '2 ds18b20
Loop
End

'*******************************************************************************

Convallt:
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
Return

'*******************************************************************************

Temperature:
If Err = 0 Then
1wwrite &HBE
Byte0 = 1wread()
Byte1 = 1wread()
Waitms 750
If Byte1 >= 248 Then
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1

Signtemperatura = "-"
Reset Porta.2

Else

Reset Porta.2
Waitms 10
Set Porta.2
Waitms 10
Reset Porta.2
Signtemperatura = "+"
End If
Temp = Byte0 / 16
T = Byte1 * 16
Temp = Temp + T
Celsium = Signtemperatura + Str(temp) +

Locate X , 1

Lcd Celsium

Locate 1 , 5

Lcd "C    Dom"
Locate 2 , 5
Lcd "C    Ulica"

Print #1 , Celsium ; " " ; M

End If
Return
Shtory:
If M < 300 Then
Portb.0 = 1
Portb.1 = 0
Else
Portb.1 = 1
Portb.0 = 0
End If
Return

'***************************************************************************


Сообщение отредактировал gorrec41 - Пятница, 30.01.2015, 21:36
 
AdminДата: Пятница, 30.01.2015, 21:48 | Сообщение # 14
Admin
Группа: Администраторы
Сообщений: 3195
Статус: Offline
Цитата gorrec41 ()
код на bascom контролер atmega16

Увы, лично я не специалист ни по Бейсику, ни по Atmel
 
gorrec41Дата: Воскресенье, 01.02.2015, 18:20 | Сообщение # 15
Группа: Пользователи
Сообщений: 58
Статус: Offline
все разобрался косяк был дисплеях .дорожка не про печаталась сейчас все путем открывает и закрывает шторы в зависимости от освещения на улицеи температуру показывает как надо счас надо uart прикрутить и посмотреть как через морду управлятся будет

Сообщение отредактировал gorrec41 - Воскресенье, 01.02.2015, 18:25
 
indarikДата: Понедельник, 16.02.2015, 09:14 | Сообщение # 16
Группа: VIP
Сообщений: 98
Статус: Offline


Admin. Исправьте пожалуйстана зал или гостиная .
Прикрепления: 7252804.jpg(57Kb)
 
AdminДата: Понедельник, 16.02.2015, 11:49 | Сообщение # 17
Admin
Группа: Администраторы
Сообщений: 3195
Статус: Offline
Это с какой прошивкой? Последний вариант, который вчера выкладывал?
Непонятно наложение двух текстов (зал и кабинет) и множество курсоров. Есть возможность снять видео работы, что бы посмотреть все это в "динамике"?
 
indarikДата: Понедельник, 16.02.2015, 18:05 | Сообщение # 18
Группа: VIP
Сообщений: 98
Статус: Offline
Цитата Admin ()
который вчера выкладывал?

Да которую вчера довали .Остальное все нормально отображается.Видео выложить могу но немного позже.
 
AdminДата: Понедельник, 16.02.2015, 19:01 | Сообщение # 19
Admin
Группа: Администраторы
Сообщений: 3195
Статус: Offline
Затрудняюсь сказать в чем причина. Сейчас перепрошил свой контроллер этой же прошивкой (см. вложение), ничего подобного не наблюдается. Контроллер уже в работе месяца три точно, из всех проблем за это время - один раз ушел в зависание.

P.S. Я удалил сообщения из соседней ветки, которые относились к теме обсуждаемого здесь контроллера температуры и влажности. Поэтому выкладываю обновленное видео и дублирую прошивку микроконтроллера (никакие изменения в неё не вносились)

Прикрепления: term_6.zip(4Kb)
 
indarikДата: Понедельник, 16.02.2015, 20:24 | Сообщение # 20
Группа: VIP
Сообщений: 98
Статус: Offline
Перекрутил датчики с 2 и 3 канала на 4 и 5 стало еще веселей.Емупо-моему надо все 6 датчиков подключить чтобы все правильно отображалось.



Прикрепления: 7349187.jpg(82Kb) · 4634801.jpg(76Kb)
 
Форум » ФОРУМ » Домашняя автоматизация на Raspberry Pi » Контроллер температуры и влажности
Страница 2 из 9«123489»
Поиск:



T2M © 2016
Сайт управляется системой uCoz