|
Контроллер температуры и влажности
|
|
| Segador | Дата: Воскресенье, 18.01.2015, 21:57 | Сообщение # 11 |
Группа: Пользователи
Сообщений: 55
Статус: Offline
| Уважаемый Admin!
Если можно, пару вопросов:
1. Существует ли какой-то предпочтительный тип (с учетом Вашего видения перспективы) индикаторов, для использования в представленных на сайте контроллерах?
2. Какие рекомендуется использовать длины соединительных проводов между контроллером и датчиками температуры разных типов?
|
| |
| |
| Admin | Дата: Вторник, 20.01.2015, 21:50 | Сообщение # 12 |
 Admin
Группа: Администраторы
Сообщений: 4260
Статус: Offline
| Цитата Segador (  ) 1. Существует ли какой-то предпочтительный тип (с учетом Вашего видения перспективы) индикаторов, для использования в представленных на сайте контроллерах?
2-х или 4-х строчные (в зависимости от контроллера) на чипах совместимых с HD44780 (KS0066)
Цитата Segador ( ) 2. Какие рекомендуется использовать длины соединительных проводов между контроллером и датчиками температуры разных типов?
У меня датчики (DHT11/22) подключены 4-х жильным кабелем, длина достигает 20 метров. Думаю, что это далеко не предел 
|
| |
| |
| 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
Группа: Администраторы
Сообщений: 4260
Статус: 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 |
Группа: Пользователи
Сообщений: 104
Статус: Offline
| 
Admin. Исправьте пожалуйстана зал или гостиная .
|
| |
| |
| Admin | Дата: Понедельник, 16.02.2015, 11:49 | Сообщение # 17 |
|
Admin
Группа: Администраторы
Сообщений: 4260
Статус: Offline
| Это с какой прошивкой? Последний вариант, который вчера выкладывал?
Непонятно наложение двух текстов (зал и кабинет) и множество курсоров. Есть возможность снять видео работы, что бы посмотреть все это в "динамике"?
|
| |
| |
| indarik | Дата: Понедельник, 16.02.2015, 18:05 | Сообщение # 18 |
|
Группа: Пользователи
Сообщений: 104
Статус: Offline
| Цитата Admin ( ) который вчера выкладывал?
Да которую вчера довали .Остальное все нормально отображается.Видео выложить могу но немного позже.
|
| |
| |
| Admin | Дата: Понедельник, 16.02.2015, 19:01 | Сообщение # 19 |
|
Admin
Группа: Администраторы
Сообщений: 4260
Статус: Offline
| Затрудняюсь сказать в чем причина. Сейчас перепрошил свой контроллер этой же прошивкой (см. вложение), ничего подобного не наблюдается. Контроллер уже в работе месяца три точно, из всех проблем за это время - один раз ушел в зависание.
P.S. Я удалил сообщения из соседней ветки, которые относились к теме обсуждаемого здесь контроллера температуры и влажности. Поэтому выкладываю обновленное видео и дублирую прошивку микроконтроллера (никакие изменения в неё не вносились)
|
| |
| |
| indarik | Дата: Понедельник, 16.02.2015, 20:24 | Сообщение # 20 |
|
Группа: Пользователи
Сообщений: 104
Статус: Offline
| Перекрутил датчики с 2 и 3 канала на 4 и 5 стало еще веселей.Емупо-моему надо все 6 датчиков подключить чтобы все правильно отображалось.
|
| |
| |
