Поиск схем. Делимся схемами Если вы ищете схему телевизора, видеомагнитофона, игровой приставки - этот раздел для вас... |
09.10.2013, 15:00
|
|
Частый гость
Регистрация: 18.09.2013
Адрес: Таганрог
Сообщений: 11
Сказал спасибо: 1
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Ищу схему управление LPT,COM,MIDI портом и исходник к нему на Delphi 7
Ищу схему управления через LPT порт на Delphi 7...Помогите пожалуста,встретил схему на 300 управляющих нагрузок но исходника к нему нет,я новичок "любитель"в программировании,но с портами дело не имел и не представляю себе как реализовать все это...Может кто поможет мне,нужна схемка управлением нагрузкой на 100 выходов и помогиие с написанием кода на Delphi 7...пожалуста помогите мне с этой проблемкой...Хочу реализовать автоматику через комп,чтоб он управлял выходами,пишу схему типа "умный дом" наткнулся на эту проблему не могу решить как это реализовать чтоб она управляла так сказать "светом,электрозамками,сигнализацией и так далее"буду сильно благодарен если к этому поможете реализовать схемку через LPT которая посылая в порт выполняла команды на компе,а потом на выходе LPT управляла устройствами...
Помогите пожалуста...Програму пишу не для продажи,а для себя.Хочу собрать нечто такое,но в портах я слаб.....
Помогите кто чем может...
Последний раз редактировалось exzitronic; 09.10.2013 в 15:31.
|
|
|
|
09.10.2013, 15:13
|
|
Частый гость
Регистрация: 18.09.2013
Адрес: Таганрог
Сообщений: 11
Сказал спасибо: 1
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Требования не кретичны,можно и через COM порт лишбы было управление и исходник к нему...
|
|
|
|
09.10.2013, 16:42
|
|
Почётный гражданин KAZUS.RU
Регистрация: 10.01.2007
Сообщений: 3,412
Сказал спасибо: 65
Сказали Спасибо 664 раз(а) в 443 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
LPT-порты встречаются всё реже и реже, что будете делать, если с завтрашнего дня их не станет совсем?
__________________
There's always more than one way to skin a cat.
|
|
|
|
09.10.2013, 17:14
|
|
Частый гость
Регистрация: 18.09.2013
Адрес: Таганрог
Сообщений: 11
Сказал спасибо: 1
Сказали Спасибо 0 раз(а) в 0 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Для этого есть переходники...
Не исчезнут,так как для начало придется выкинуть всю технику медицины-ведь она сидит вплотную на этих портах...На мою жизнь хватит,а там не важно что будет с этой схемой...Если так думать то зачем жить,ведь рано или поздно мы умрем...Думаю ответ про жизнь стоит рядом с существованием портов,надо пользоваться пока есть шанс
|
|
|
|
09.10.2013, 17:26
|
|
Почётный гражданин KAZUS.RU
Регистрация: 10.01.2007
Сообщений: 3,412
Сказал спасибо: 65
Сказали Спасибо 664 раз(а) в 443 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Сообщение от exzitronic
|
Думаю ответ про жизнь стоит рядом с существованием портов,надо пользоваться пока есть шанс
|
В жизни всё строго наоборот - нужно двигаться вперёд, пока есть шанс. А цепляние за то, что " борозды не испортит" - это как раз и есть смерть, в той или иной ипостаси.
Ладно, бог с ней, с лирикой; вы структурную схему уже продумали, вероятно - как она выглядит?
__________________
There's always more than one way to skin a cat.
|
|
|
|
09.10.2013, 18:14
|
|
Прописка
Регистрация: 16.02.2008
Адрес: Россия, Омск
Сообщений: 202
Сказал спасибо: 115
Сказали Спасибо 64 раз(а) в 46 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
exzitronic, Делал давно, есть для последовательного и параллельного портов, для LPT все очень просто, отправляете данные на номер порта, 8 бит, можете включать, как Вам угодно, самый просто вариант - 8 нагрузок, включил, выключил, уровень TTL, но естественно нужна развязка и ток там никакой, если ставить мультиплексоры или например микроконтроллер, можно уже 64 нагрузки зацепить, для использования большего числа нагрузок придется юзать служебные выводы.
С COM портом сложнее, нужен девайс(например МК) который будет получать кодовую посылку, разбирать, что там пришло и выполнять то, что соответствует пришедшему коду или курить, если пришло не то, что ожидается.
Все это уже не актуально, ну разве, что использовать USB, как виртуальный компорт используя скажем, какой нибудь переходник, например есть микрухи FTDI полностью эмулирующие и COM и LPT порты, к стати, большинство из них имеет режим битбанг(дергать ногами), так, что если нагрузок не много, то вполне вариант, ничего лишнего не нужно, только развязка, скажем буфера какие нибудь.
Во вложении исходники на Delphi для COM и LPT, делал давно, что по чем не помню, разбираться лень
Да, для работы с портами есть библиотеки, поищите в интете, во вложении вроде одна.
НЕ РАБОТАЕТ в Windows 7, закрыт прямой доступ к портам, в ХР все работало.
Для LPT находил раньше много прог в инете, которые могут включать или выключать отдельные биты порта.
Во, нашел еще проект, мерил температуру термистором подключенным к пику, ловил с компорта номер измеряемого канала и при его получении измерял температуру и пулял ее в компорт, если приходили отличные от номера канала измерения данные, пулял код ошибки в порт, исходник для ПК на Delphi, архив new.
Разгребайте
Последний раз редактировалось gres_go; 09.10.2013 в 18:25.
Причина: Добавил еще вложения
|
|
|
Сказали "Спасибо" gres_go
|
|
|
09.10.2013, 18:23
|
|
Почётный гражданин KAZUS.RU
Регистрация: 28.02.2010
Сообщений: 2,297
Сказал спасибо: 53
Сказали Спасибо 461 раз(а) в 392 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Сообщение от exzitronic
|
Требования не кретичны,можно и через COM порт лишбы было управление и исходник к нему...
|
Не совсем понятно - "100 выходов для умного дома" . А как-же входа? Датчики? LPT и COM , конечно , умеют принимать сигналы (цифру) , и отправлять (тоже цифру) , но в любом случае , без внешнего контроллера не обойтись, который берёт сигнал от компьютера по шине, и потом раскидывает по потребителям.
Например , берутся СТАНДАРТНЫЕ РЕШЕНИЯ (уже ставшие таковыми) от Igor Cesko ( http://www.cesko.host.sk/ )... Он сделал просто и гениально- "скрестил" простейшую AVR-ку( Tiny2313) с USB портом,дав возможность управлять восемью линиями на ввод-вывод (как бонус).В библиотеке прилагаются процедуры - например установить линию порта в "1" , сбросить в "0".Далее , берём последовательные сдвиг.регистры 74HC595 (8 выходов ) , соединяем в цепочку (100 каналов на выход - ну допустим 13 регистров (13*8=104 выхода)),подсоединяем каждый регистр параллельными 3 линиями -SHIFT CLOCK,LATCH CLOCK, OUTPUT ENABLE ... (и делаем FI(FO не нужен- в пустоту вышвыриваем из последнего)). SERIAL DATA OUTPUT каждого регистра- со следующим регистром в цепочке SERIAL DATA INPUT (самый первый INPUT к процессору).Итого- КЛОКАМИ сдвигаем ДАННЫЕ ,защёлкиваем, разрешаем вывод.В итоге - с помощью пяти управляющих линий (которыми можно (и нужно) из Delphi менять состояние (0,1)) получаем необходимое количество выходов.
upd . орфографию подправил
PS .А , забыл - все китайские уличные строки на светодиодах именно так и работают(каждый светодиод - это собственно и есть Канал,которым можно управлять)...там проблема одна - чем длиннее цепочка, тем больше времени- всё закачать(но это , когда на тысячи каналов без мерцания актуально ...100...200...500 - фигня в 10 мс обновлять))
Последний раз редактировалось OlegNZH; 09.10.2013 в 18:45.
|
|
|
Сказали "Спасибо" OlegNZH
|
|
|
09.10.2013, 18:43
|
|
Прописка
Регистрация: 16.02.2008
Адрес: Россия, Омск
Сообщений: 202
Сказал спасибо: 115
Сказали Спасибо 64 раз(а) в 46 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
exzitronic, Простейшая отправка в LPT порт(НЕ РАБОТАЕТ в Windows 7):
var
n:byte;//байт данных
asm
MOV DX,0378H //загружаем в регистр DX адрес порта по умолчанию, если не изменен в биос
MOV AL,n //загружаем байт данных в аккумулятор
OUT DX,AL //выгружаем аккумулятор по адресу хранящемуся в регистре DX
end;
Ассемблерная вставка специально для Delphi(паскаля).
|
|
|
|
09.10.2013, 18:57
|
|
Почётный гражданин KAZUS.RU
Регистрация: 28.02.2010
Сообщений: 2,297
Сказал спасибо: 53
Сказали Спасибо 461 раз(а) в 392 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Сообщение от gres_go
|
exzitronic, Простейшая отправка в LPT порт(НЕ РАБОТАЕТ в Windows 7):
var
n:byte;//байт данных
asm
MOV DX,0378H //загружаем в регистр DX адрес порта по умолчанию, если не изменен в биос
MOV AL,n //загружаем байт данных в аккумулятор
OUT DX,AL //выгружаем аккумулятор по адресу хранящемуся в регистре DX
end;
Ассемблерная вставка специально для Delphi(паскаля).
|
Вы не Правы - Давайте не путать Людей! При чём тут W7? ...так и в XP....Вы Паскаль просто вспомнили , под DOS и W3- прелестно к портам лазили по OUT-у.
|
|
|
|
09.10.2013, 19:02
|
|
Гуру портала
Регистрация: 06.05.2005
Адрес: Краснодар, возле укротворного моря.
Сообщений: 19,091
Сказал спасибо: 2,566
Сказали Спасибо 11,900 раз(а) в 5,973 сообщении(ях)
|
Re: Ищу схему управление LPT портом и исходник к нему на Delphi 7
Почему бы не покурить MSDN и не балдеть от API под любой виндой?
__________________
Не бейте больно, ежели чо, ну не удержался... А вааще,
"Мы за все хорошее, против всей х..., По лугам некошеным чтобы шли ступни,
Чтобы миром правила правда, а не ложь, Мы за все хорошее, нас не на...!
..." (Ленинград)
Я не несу ответственности за свои действия в Вашей голове.
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 03:49.
|
|