Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.05.2008, 19:28
shaman shaman вне форума
Новичок
 
Регистрация: 19.07.2007
Сообщения: 65
Репутация: 5
Вопрос Работа с LPT портом

Тут такая задача. Решил сделать систему охраны для дома. Спаял хитрое устройство из деталей старого ПК от которого идут линии (выводы порта). Эти линии подключаются к герконам(магнитный датчик-подключается к двери). Вот пишу программу которая будет анализировать состояние этих линий. Вот и сам вопрос: как программно определить замкнута линия или разомкнута линия(контак, вывод порта)?
Ответить с цитированием
  #2  
Старый 26.05.2008, 07:34
uroksan uroksan вне форума
Прохожий
 
Регистрация: 24.01.2008
Сообщения: 15
Репутация: 10
По умолчанию

примерно вот таким кодом
Код:
If (fsmport.Port [STATUS_PORT_ADR] And 64) = 0 Then
  MainForm.LogError ('Предупреждение: Int активен перед записью');
 If (fsmport.Port [STATUS_PORT_ADR] And 128) = 0 Then
  MainForm.LogError ('Предупреждение: Wait в состоянии высокого уровня перед записью');
 fsmport.Port [STATUS_PORT_ADR]:=fsmport.Port [STATUS_PORT_ADR] And $0FE; // Сбросить флаг тайм-аута
 fsmport.Port[EPP_DATA_PORT_ADR] := b; вот тут как раз можеш устроить проверку переменной b                            // Write data
 if (fsmport.Port [STATUS_PORT_ADR] And 1) = 1 Then
  Begin
Ответить с цитированием
  #3  
Старый 26.05.2008, 17:06
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Советую делать систему на базе программируемого контроллера или Умного дома.
Ответить с цитированием
  #4  
Старый 30.05.2008, 19:03
shaman shaman вне форума
Новичок
 
Регистрация: 19.07.2007
Сообщения: 65
Репутация: 5
По умолчанию

Что такое "умный дом"?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:42.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025