|
|
 |
|
|
|
|
Очень простой и элегантный способ создания световой сигнализации. Вы будете удивлены! Для создания не потребуется никаких особых знаний и
инструментов, кроме этой статьи.
Смастерить простенькую световую сигнализацию может каждый. Для этого нужно совсем немного: мышка (подойдет любая, кроме шариковой),
фонарик и простейшие навыки программирования на языке Delphi. Что потом с ней делать, зависит только от вашей фантазии.
Можно пользоваться ей по прямому предназначению, можно подшутить над близкими и т.д. Принцип действия световой сигнализации таков:
невидимый луч света преграждает вам путь, если кто-нибудь задевает его, то срабатывает сигнал. Такое много раз показывали в фильмах.
Принцип действия оптической мыши следующий: лазер от светодиода падает на поверхность коврика, при перемещении мыши соответственно двигается и
луч, иными словами лазер это основа перемещения курсора на экране. Одна проблема, луч очень чувствителен. Если оторвать мышку от стола на
сантиметр, то он уже не будет реагировать на перемещение. Одна из наших задач, заставить мышь реагировать на движение на гораздо дальнем
расстоянии, чем сантиметр. Мы усилим ее чувствительность с помощью фонарика. Установим его в одном конце комнаты, так чтобы свет попадал
точно на светодиод мыши. Ее соответственно расположим в другом конце. Если все правильно сделать, то курсор будет реагировать на любое
препятствие между фонарем и мышью, так как, луч начнет преломляться. Кстати, желательно замаскировать мышку и фонарик, но, не перекрывая луч.
Теперь пришла очередь самой сигнализации. Здесь нам пригодится Delphi. Устройство сигнализации таково, курсор стоит в одной точке монитора,
если он сдвигается, то начинает звучать музыка. Это и есть искомая сигнализация. Оформляется следующим образом. Опускаем на форму какую-либо
компоненту (кнопку, edit, memo, что угодно), размер сжимаем до минимума, получается крохотный квадратик. Это и будет наша исходная позиция.
Далее опускаем на форму компоненту Media Player. Редактируем ее свойства:
- Visible=false,
- AutoOpen=true.
Подбираем звук для сигнала. В опциях формы OnMouseOver, записываем MediaPlayer1.Play; Теперь если курсор сдвинется с места,
то начнет играть сигнал, а это нам и требуется. Все сигнализация готова к применнию. Очень просто и элегантно!
|
|
|
|
|
|
|
