Каталог статей


Выбранная схема!!!


5353
Мышиная сигнализация

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

Для этого понадобится собственно сама мышка, фонарик и хоть малейшее знание Delphi. Итак, начнём с начала: светодиод оптической мышки очень чувствителен и даже если приподнять мышку на несколько миллиметров от твёрдой поверхности (стола), то мышка всё ещё будет реагировать на движение, но если поднять мышку чуть выше, мышка не реагирует. Наша задача - сделать мышь активной на большом расстоянии и вторая задача, сделать сигнализацию. Для начала займёмся решением второй задачи.

Итак, делаем сигнализацию. Открываем Delphi. Принцип сигнализации прост до безобразия. Курсор мышки будет находится в определённой мёртвой точке, когда он оттуда соскользнёт, должен воспроизвестись музыкальный файл, вот собственно и сама сигнализация. Начинаем её делать. Ставим на форме кнопку (или ещё чего ни будь) и делаем её размер минимальным, она получится с маленький квадратик.


Это и будет мёртвая точка. Затем ставим на форму компонент Media Player, в свойствах ставим Visible=false и AutoOpen=true. Затем выберите файл для проигрывания, собственно звук самой сигнализации. Теперь в свойствах формы, в функции OnMouseOver, прописываем MediaPlayer1.Play; Мы получаем, что если мышка соскользнёт с мёртвой точки, то сработает MediaPlayer и заиграет сигнализация, это нам и нужно.

Решаем вторую задачу - как нам повысить чувствительность мышки. Лазер мышки действует по принципу преломления света на основе движения, ну там всё гораздо сложнее, короче говоря основой движения есть сам лазер, то есть свет, вот с помощью света мы и будим усиливать чувствительность мышки. Всё элементарно и просто. Положим мышку у одной стены, а с противоположной стороны поставим фонарик, так чтобы он светил прямо на лазер мышки, теперь если провести рукой между фонариком и мышкой, произойдёт очень слабое, но достаточное преломление света и курсор мышки дёрнется. Если он не дёрнется, нужно просто поставить в настройках мышки чувствительность побольше. Итак приступаем к установке сигнализации. Включаем программку, что мы сделали в Delphi, причём нужно чтобы курсор мышки находился сразу в мёртвой точке, иначе заиграет сигнализация. Теперь аккуратно кладем мышку на пол под кровать, а с другой стороны ставим фонарик, нацеливаем на мышку и включаем. Теперь если курсор мышки дёрнется, он соскользнёт с мёртвой точки и включится сигнализация. Фонарик нужно расположить незаметно. Сигнализация готова.

Если вы дочитали до сюда это просто отлично. Я сделал следующий прикол с этой сигнализацией. В качестве музыкального файла, записал на микрофон речь типа «а ну полож компакт сволочь, не твоё не трогай». Затем попросил зашедшего ко мне друга взять у меня со стола компакт, колонки были на всю громкость, он спокойно подошёл к столу, рядом с компактом была колонка, а под столом сигнализация, мой друг ничего не подозревая делает шаг вперёд, хватает компакт, и подпрыгивает на месте когда слышит, вышеупомянутую речь. А если всё это провернуть с только что проснувшимся человеком, де ещё под Rammstein, результат сто процентный.

Применение этой штуке можно найти и другое, но это у кого на сколько фантазии хватает.


Категория: Охрана (Сигнализация) | Добавил: Cosmogor (06.05.2013)
Просмотров: 4932 | Рейтинг: 0.0/0


Всего комментариев: 0

Все ссылки на книги и журналы, представлены на этом сайте, исключительно для ознакомления, авторские права на эти публикации принадлежат авторам книг и издательствам журналов! Подробно тут!
Жалоба

Пожалуйста оставьте свои комментарии !!!!

Имя *:
Email:
Код *:


ElectroTOP - Рейтинг сайтов
Copyright Zloy Soft (Company) © 2008 - 2016