Автоматизация аквариума. Первый ШАГ! - Сторінка 5 - Аквафорум

nice · 28.01.2008, 18:52

Так как пробуждение в реальность из глубокой бездны сна происходит всегда по-разному, и в разное время… то и рыбок моих это тоже касается! По этому чтоб не тревожить их своею непостоянностью решил я сделать то, о чём мечтал уже несколько месяцев!
Взял и немного автоматизировал свой аквас! То есть сделал 3 розетки которые управляются микроконтроллером. В 1ю подключён мой свет, 220 на неё подается в 8:00 а выключается в 23:00. 2я это фильтр, запускается в 8:10 и выключается в 23:10. И 3я это компрессор для воздуха (может когда-то поцэплю СО2 на него…). Запрограммировал я ему такой вот режим работы: с 1:00 по 1:05, с 3:00 по 3:05, с 5:00 по 5:05, с 7:00 по 7:05, с 12:00 по 16:00 и с 18:00 по 21:00! Кстати если есть замечания, то буду даже благодарен!
Тем кому интересно, вот код программы:
void main (void)
{
int b=0;
int c=1320; /* 22.00 - 1320*/
unsigned long t;
P1.7=1;
P1.6=1;
P1.5=0;
while (1)
{
for (t = 2540; t > 0; t--); /*задержка в секунду*/
b++;
P1.3^=1; /* индикатор секунд */
if(b>=60)/*1-мин*/
{
b=0;
c++;
}
if(c>=1440)/*1-день*/
{
c=0;
}
/*--------------------------------------------*/
if(c>=480 && c<=1380)
{
P1.7=1; /* свет 1 */
}
else
{
P1.7=0; /* свет 0*/
}
/*--------------------------------------------*/
if(c>=490 && c<=1390)
{
P1.6=1; /* фильтр 1 */
}
else
{
P1.6=0; /* фильтр 0*/
}
/*--------------------------------------------*/
if((c>=720 && c<=960) || (c>=1080 && c<=1260) || (c>=60 && c<=65) || (c>=180 && c<=185) || (c>=300 && c<=305) || (c>=420 && c<=425))
{
P1.5=1; /* компрессор 1 */
}
else
{
P1.5=0; /* компрессор 0*/
}
/*--------------------------------------------*/
}
}
P.s. Задержку подбирал руцями… лень было считать

Ну а вот и схемка, по которой всё это уже работает!

Для программирования микросхемы использовал программатор, спаянный год назад…

Кому интересно что-то спрашивайте, обязательно отвечу! А если надумали сделать такое же могу помочь с прошивкой… Или даже сделать, но то уже в личку!

Starcomputer · 12.03.2008, 17:01

Цитата:

Допис від nice

я так понял оно ничего не меряет...
это такой савецкий старый таймер...
крутит се диск с контактами...а дальше сам на него цепляй устройства шо нада...

Жаль... а так было бы хорошо, ни компов тебе, ни программ, крутится себе диск и щелкает контактами. Вообщем музыкальная шкатулка.

Whitemoon · 12.03.2008, 22:23

А чем вам нехватает терморегуляторов в нагревателях?? Или вообще тогда зачем вы нужны аквариуму или он вам если все полностью автоматически

))

Starcomputer · 14.03.2008, 12:33

Цитата:

Допис від Whitemoon

А чем вам нехватает терморегуляторов в нагревателях?? Или вообще тогда зачем вы нужны аквариуму или он вам если все полностью автоматически

))

Хм. Хороший вопрос.
Но понимаете, я не всегда дома, а ночью еще и сплю.

Так что хотелось бы что-бы комп контролировал не только температуру, но и рН ну и в будущем далее, поскольку это очень гибкая система. А вообще это просто ХОББИ. Нравится мне возиться.

sport_rib · 14.03.2008, 14:45

Кому интересно, вот моя прога , умеет измерять температуру (1 термодатчик), измерять РН (игровой порт, но в данной версии программы этот модуль реализован не до конца, только измеряет и выводит показания), работа по таймерам и т.д... Внимание!! программа писалась под старые компы и ОС WIN9x/ME
на NT платформе работать не будет ! Схемы приводились выше по теме или в типичных темах.

vanessa · 15.03.2008, 11:58

Цитата:

Допис від sport_rib

ОС WIN9x/ME
на NT платформе работать не будет

Я би не радив її використовувати. Маю поганий досвід коли ця ОС, яка чимось управляла, приводила до катастроф. Той-же код, перенесений на NT працював набагато краще, ну про юнікси я взагалі мовчу,це штука, яку при прямих руках ще треба сильно постаратись щоб завалити.

sport_rib · 15.03.2008, 15:29

vanessa-- На Nt методика управления Lpt портом и игровым потром другая, да и попробуйте поставте Nt на 133 машинк, на счет юникс платформ не спорю, но я этой платформы не знаю до такой степени чтобы разрабатывать под неё ПО,
По поводу завалить, былобы желание а средства найдуться, У меня эта прога уже месяц крутиться, ни одного глюка я не увидел, даже после отключения света....И вообще я же не продаю прогу, а даю пользоваться

vanessa · 15.03.2008, 16:13

А то я незнаю що на NT до lpt порту за допомогою інструкцій in та out не доберешся

я просто хвилююсь за вас же, собі ж можете біди наробити.....

Starcomputer · 15.03.2008, 18:58

Цитата:

Допис від vanessa

Я би не радив її використовувати. Маю поганий досвід коли ця ОС, яка чимось управляла, приводила до катастроф. Той-же код, перенесений на NT працював набагато краще, ну про юнікси я взагалі мовчу,це штука, яку при прямих руках ще треба сильно постаратись щоб завалити.

По поводу МЕ согласен на 120 %, сырая как топляк.
WIN98 майкрософтовцы вылизали хорошо. Только не надо этот же комп юзать для еще каких либо задач.

Sem · 23.03.2008, 08:43

Ребята, помогите.Не могу найти. Или здесь или на казусе или на электрониксе(ну не помню) проходила ссылка на адаптеры 1-wire. Притом русский сайт. Адаптеры предлагали уже собранные. И программку они продавали для управления (мониторинга).
И второй вопрос кто реально юзал 1-wire сеть?
Интерес в расстоянии от датчика до хоста. Только реально.
Столкнылся с проблемой не работает "Мастеркитовский "девайс более, чем на 20 метров. Линия витая пара.

vanessa · 23.03.2008, 15:12

У мене 4 Ds18b20 на мережі, всі з активним живленням. довжина із кінця в кінець ~10м більше у мене немає нобхідності. Все працює. А ще все залежить від схеми підключення даткика на хості, у мого колеги один раз получилося що вже на 2м не працювало. Але, звертаю увагу, датчики ми прикручували не до ком-порта, а до однокристалки.
Ps: є думка що на довгих лініях біля датчиків треба ставити конденсатори ~10мкФ на живлення, все-таки тут уже може сказуватись індуктивний опір лінії живлення.

sport_rib · 23.03.2008, 17:28

Sem глянь в 52 посте есть ссылка, я юзаю три датчяка растояние от хоста до датчака 1й-10м, 2й-14м, 3й-5м, провод я использую от пажарной сигнализации-он тоньше чем витая пара, на витой паре я ставил кондер на питание 1мк, но это особо не помогало, программно делал коррекцию погрешности, мой знакомый юзает туже схему что и я на один датчик 20м- жалоб нет но нужна корекция, поскольку свойства датчиков таковы что они измеряют температуру и на выводах микросхемы. Хотя если подобрать емкость, и сделать нормальный экран то можно и витую пару юзать. Все писал относительно датчика ds1820.

Sem · 24.03.2008, 10:57

Спасибо откликнувшимся!
Сайт нашел http://www.benuks.nm.ru/index.dhtml
А расстояние под вопросом

sash81 · 24.03.2008, 22:19

Я не в тему со своим "простющим" вопросом. Не специалист в электроннике. Гдет на форуме встречал схемку временного отключения фильтра во время кормежки. Нажал кнопку конденсатор зарядился - тиристор закрылся - фильтр 5мин (10, 15) не работает - потом включился. Подскажите, буду благодарен

Или чтот похожее - но до ужаса простое....

nice · 26.03.2008, 22:04

я ток знаю как на контроллер зашить