Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];

Вниз

Сможет ли даже глухой открыть позвонившему в дверь?   Найти похожие ветки 

 
Sega   (2003-12-09 17:07) [0]

Всем привет!!! Я слаб в программинге, но мне нравится дельфи, и я бы хотел спросить:
Хочу сделать такую программу
я сижу в наушниках, слухаю музон, вдруг звонок в дверь, на экране монитора высвечивается сообщение: "К вам звонок в дверь"
мне подсказали, что надо посмотреть в инете "Распайку СОМ - портов", потом скачать компонент, и сделать, но я даже не знаю с чего начинать и как искать компонент
Пожалуйста, подскажите, я зананее благодарен!!!


 
Gero   (2003-12-09 17:18) [1]

Так подключи наушники к звонку. Когда позвонят-точно услышишь :)


 
nikkie   (2003-12-09 17:20) [2]

купи себе открытые наушники


 
Сатир   (2003-12-09 19:02) [3]

Сможет ли даже слепой увидеть в глазок звонящего?


 
Alex_Bredin   (2003-12-09 19:04) [4]

зачем огород городить )))

повесь большой красный фонарь перед компом и кнопкой замыкай цепь.


 
ИМХО   (2003-12-09 19:08) [5]

Вот оно современное программирование: ни малейшего понятия о программинге, скачал компонент и ждем чуда.


 
alxx   (2003-12-09 19:12) [6]

Вы не поняли. Это же чтобы выпендриваться. Скачал компонент и все думают - о, программер. Цель оправдывает средства.


 
wnew   (2003-12-09 19:19) [7]

А я уже давно смотрел распайку COM портов, но на монике чёта никто не появляца:))


 
Cosinus   (2003-12-09 19:48) [8]

Что то типа того......

procedure TНтоТам(Sender: TObject);
var
Events,tmp: TComEvents;
Event: TEvent;
begin
Str:="Хито тама?"
ComPort1.Open;
Event := TEvent.Create(nil, True, False, "");
tmp:=ComPort1.Events;
ComPort1.Events:=[];
ComPort1.DiscardNull:=False;
ComPort1.Tag:=0;
WrComm(str, true);
repeat
Events := [evRxFlag];
ComPort1.WaitForEvent(Events, Event.Handle, 5000);
if (evRxFlag in Events) then break;
until (Events = []);
ComPort1.ReadStr(str1,ComPort1.InputCount);
ComDataPacket1.OnPacket(ComPort1,str1);
ComPort1.Events:=Tmp;
ComPort1.close;
end;

procedure TPST.ComDataPacket1Packet(Sender: TObject; const Str: String);
begin
If Str<>"" then
begin
if MessageDlg("Кто то приперся. Впустить?",
mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then OpenDver else PoshelNaHren;

end;
end;


 
Рамиль   (2003-12-09 20:12) [9]


> Cosinus © (09.12.03 19:48) [8]

И как, проверил? Работает?:-D


 
Cosinus   (2003-12-09 20:23) [10]

Где то глюк в процедуре PoshelNaHren, сначала нормально все, а потом посылает все дальше и дальше... вплоть до Overflow;
Видимо где то что то не обнуляю :)


 
GEN++   (2003-12-09 20:27) [11]

К Comm порту конечно можно подключиться, но не напрямую, а через
промежуточное реле, обмотка которого подключается параллельно звонку. Контакты реле соединят вход порта с запросом на прием
от него же в результате во входном регистре Comm порта появится
какая то посылка (скорее всего с ошибкой, но это неважно - важен сам факт приема). Ваша прграмма должна на это среагировать
и повесить на экран соответствующее сообщение.
Компонент модно использовать например nrConn из библиотеки
nrCommLib (найдете на сайте Turry.ru). После распакови скачанного zip архива запустите полученный exe файл и компонет
автоматически появится в Вашем Delphi на панели инструментов
Удачи


 
Petr V. Abramov   (2003-12-09 21:48) [12]

> Cosinus © [8]
У меня при вызове OpenDver COM-порт распаялся!


 
Lola   (2003-12-09 22:18) [13]


> на экране монитора высвечивается сообщение: "К вам звонок
> в дверь"

Это как правой рукой левое ухо доставать :))) Легче лампочку подключить. Как у всех глухих и сделано обычно ;)


 
konstantinov   (2003-12-09 22:31) [14]

А как быть глухим с выбором мобильника?
( т.е. не совсем глухим ) лично я сижу и чешу репу, в кормане мобильник не слышу, сажусь за руль вешаю на пепельницу, а вот таскать его, чтоб все время перед глазами маячил... стремно!
Менять мобилу? ( На фига козе баян?) Пока совсем не оглохну перебъюсь этим. Вот и вешай лампочки... хоть на уши... :))


 
Gero   (2003-12-09 22:33) [15]

А вообще для слепоглухонемых должны выпускать какие-то другие средства оповещения.


 
NetKnight   (2003-12-09 23:54) [16]

Вот она избыточность! :)
Нахер к ком-порту подключаться? Кончится тем, что спалишь его.. :)

Имхо с лампочкой самый толковый вариант и знаний по электроинике школьных хватит и реализация простая и быстрая.. :)

А вот более сложный вариант, но аппаратно проще, чем юзать ком-порт. Берёшь генератор звука и подключаешь к звонку, от него ведёшь output в саунд карточку на какой-нить незаюзаный вход и тогда в наушниках будет твой звонок, можно и прогу написать, которая будет обрабатывать входящий через этот канал сигнал и писать надписи на мониторе, печатать на принтере о том, что кто-то приходил, когда тебя небыло и.т.п. Генератор звука можно за копейки приобрести или собрать самому, может он будет со спиером, но можно его отрезать и сделать лайн-аут.. :)


 
SergP   (2003-12-10 03:48) [17]

А можно взять два провода от звонка и сесть на них. Если кто-то позвонит, то почувствуешь это без всяких сообщений на экране. :-)))


> Вот она избыточность! :)
> Нахер к ком-порту подключаться? Кончится тем, что спалишь
> его.. :)

Ну умный человек прежде чем подключиться подумает о том как это все гальванически развязать.
А спалить порт можно даже не подключая его к звонку. (Порты - они очень нежные). Я когда-то спалил LPT порт просто при попытке связать 2 компа по LPT портам. Все дело было в том что кабель я сам паял, и корпусы разъемов не соединил. А компы были не заземленными. Шнурок то работал нормально. Но втыкать его при включеных компах не стоило....

Хм... Кстати сабжевый пост + [7] неплохо смотрелись бы в орешнике...


 
SergP   (2003-12-10 04:57) [18]


> Сможет ли даже глухой открыть позвонившему в дверь?


Сможет... Безрукий не сможет. А глухой сможет.... :-)


 
SkyRanger   (2003-12-10 08:25) [19]

Эээ батенька... А вибрация которая почти у каждой мобилы есть не приделах??? Она так за печенку схватит, что мертвый заметить что ему звонят! Или может кроме проблем со зрением еще в наличии паралич всего туловища???


 
KosilkA   (2003-12-10 12:27) [20]

кстати о звонках ... Рассказывал мне один знакомый, как его позвали на день рождения. Было темно , он еле нашел в подьезде дверь , нащупал звонок , ткнул палцем - а там как оказалось - нету кнопки и торчат проводки . ... На его нечеловеческий вопль прибежали хозяева и открыли ему дверь . Вот такой вот , в общем то , бесхитростный звонок.


 
REA   (2003-12-10 13:21) [21]

Все просто: нужно, чтобы когда включался звонок выключалась розетка. Компьютер выключается и ты слышишь звонок. Изящное решение и главное простое.


 
KosilkA   (2003-12-10 13:41) [22]


> REA © (10.12.03 13:21) [21]

технически можно зделать так: закоротить звонок в коридоре болтом М10 . при попытке звонка - вырубается свет в квартире .


 
Cosinus   (2003-12-10 14:45) [23]

Зачем вообще связываться с программированием, электроникой и, тем более, электричеством? Механика решит проблеммы отца русской демократии! Звонок заменяется на веревочку или вешается рядом, как альтернативный вариант, далее путем несложных конструктивных решений доводится до куска фанеры с нужной надписью, подвешанного перед монитором на высоте 1,5-2,0 метра. При звонке он(кусок) резко падает на уровень дисплея, чем оповещает о прибытии гостей, и будет вам счастье. Совет : советую иметь под рукой пару пузырьков валидола или корвалола... Так... на всякий случай.


 
SergP   (2003-12-10 19:41) [24]


> KosilkA © (10.12.03 12:27) [20]
> кстати о звонках ... Рассказывал мне один знакомый, как
> его позвали на день рождения. Было темно , он еле нашел
> в подьезде дверь , нащупал звонок , ткнул палцем - а там
> как оказалось - нету кнопки и торчат проводки . ... На его
> нечеловеческий вопль прибежали хозяева и открыли ему дверь
> . Вот такой вот , в общем то , бесхитростный звонок.


Вот-вот... У меня когда-то тоже такое было. Два раза люди тыкали пальцем и получали неприятные ощущения.Правда они не кричали, а просто порекомендовали мне поставить нормальную кнопку...


 
Petr V. Abramov   (2003-12-10 20:25) [25]

> Cosinus © (10.12.03 14:45) [23]
Можно даже еще упростить - вместо веревочки использовать провод от тех самых наушников, и при дёргании за него наушники естественным образом из ушей вынимаются.


 
Мазут Береговой   (2003-12-10 20:28) [26]

SergP © (10.12.03 03:48) [17]

> Вот она избыточность! :)
> Нахер к ком-порту подключаться? Кончится тем, что спалишь
> его.. :)

Ну умный человек прежде чем подключиться подумает о том как это все гальванически развязать.
А спалить порт можно даже не подключая его к звонку. (Порты - они очень нежные). Я когда-то спалил LPT порт просто при попытке связать 2 компа по LPT портам. Все дело было в том что кабель я сам паял, и корпусы разъемов не соединил. А компы были не заземленными. Шнурок то работал нормально. Но втыкать его при включеных компах не стоило....


Вот именно, у них выходы открытые (Это значит коллектор или эммитер не нагружены резистором). Нужно согласующее устройство делать.


 
Sam Stone   (2003-12-10 21:24) [27]

Повесить на дверь объявление: я глухой, стучитесь громче


 
wnew   (2003-12-10 21:36) [28]

COM порты допускают эксперементирование над собой, они довольно терпимы в этом отношении, а вот LPT - малейшая неосторожность и - "зравствуйте девчонки" (Ц. Анекдот).


 
DVM   (2003-12-10 21:48) [29]

К компу микрофон - реагировать на звук звонка! К ком порту не надо ничего будет подсоединять и сжечь ничего тоже не получится.


 
SergP   (2003-12-10 21:53) [30]


> Вот именно, у них выходы открытые (Это значит коллектор
> или эммитер не нагружены резистором). Нужно согласующее
> устройство делать.


Я так не думаю (насчет открытых выходов). На LPT 100% что не открытые. К тому же я говорю что шнурок работал. (Я соединял 2 компа, типа сети чтобы было). Но когда один раз втыкал шнурок при включеных (незаземленных) компах, то на одном компе пробился один из разрядов данных. Т.е. там всегда после этого был лог "0" несмотря на то какие данные посылались в ЛПТ...
А еще это было хреново тем что порт этот был (как теперь делается уже везде) интегрирован на материнке. Если бы это была MIO-карта то можно выкинуть и вставить новую. А в моем случае это уже получается что испортил материнку...

Так что если кому-то что-то хочется подключать к портам СОМ и LPT (особенно если подключать что-то левое), то лучше сделать какое-нить согласующее устройство (желательно даже с гальванической развязкой), а то есть большая вероятность повредить порт.


 
Gero   (2003-12-10 21:54) [31]

> DVM ©

А если это телефонный звонок, то выдаст соответствующую надпись.
То, что надо. Осталось только это на Delphi реализовать.. Но это реально.


 
NetKnight   (2003-12-11 19:05) [32]

Есть ещё куча вариантов, например юзать неиспользованые свичи на мамке типа турбо и т.п. По моему их на асемблере можно перехватывать, но не уверен.


 
Рамиль   (2003-12-11 20:02) [33]

Вскрыть клавиатуру и подключить к какой нибудь ненужной клавише (среди 101 ой наверняка найдется:-D) и hook.


 
SergP   (2003-12-11 21:48) [34]


> Рамиль © (11.12.03 20:02) [33]
> Вскрыть клавиатуру и подключить к какой нибудь ненужной
> клавише (среди 101 ой наверняка найдется:-D) и hook.


Или к средней кнопке мыши...:-) Она все равно практически не используется.. :-)))



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.53 MB
Время: 0.011 c
4-12203
XenonXX
2003-10-31 08:22
2004.01.05
Стандартная кнопка максимизации,


6-12009
bloodman
2003-11-04 21:13
2004.01.05
Есть ли коппоненты для работы с IPX , или подскажите (+)


6-12025
*FoX*
2003-11-05 16:43
2004.01.05
SMS


1-11868
Tester
2003-12-18 16:13
2004.01.05
О производительности


9-11761
smilik
2003-06-15 12:08
2004.01.05
Файлы *.b3d





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский