_WELCOMETO Radioland

Главная Схемы Документация Студентам Программы Поиск Top50  
Поиск по сайту



Навигация
Главная
Схемы
Автоэлектроника
Акустика
Аудио
Измерения
Компьютеры
Питание
Прог. устройства
Радио
Радиошпионаж
Телевидение
Телефония
Цифр. электроника
Другие
Добавить
Документация
Микросхемы
Транзисторы
Прочее
Файлы
Утилиты
Радиолюб. расчеты
Программирование
Другое
Студентам
Рефераты
Курсовые
Дипломы
Информация
Поиск по сайту
Самое популярное
Карта сайта
Обратная связь

Схемы


Схемы > Компьютеры > Чтение информации с LPT порта

Чтение информации с LPT порта

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


 


Для ввода информации я использовал 5 стандартных входов - выводы 10, 11, 12, 13 и 15.
Первоначальное состояние выводов - log1, т.е. на них напряжение 5V.
Мой тестер сказал, что там не 5, а 4.7V, может тестер не точно показывает, может блок питания в компе слабоват, а может так и надо - не важно.
Следовательно, замкнув вывод порта на землю (выводы 18-25), мы переведем его в состояние Log0. Замыкать вывод прямо на землю я не рискнул и соединил его с землей через резистор в 470 ом. Можно обойтись и без резистора - всё отлично работает, но лучше не рисковать.
Для дальнейших экспериментов я собрал себе панельку из 5 кнопочек по приведенной выше схеме и достал с архивного диска компилятор Turbo Pascal 7.1 (то же что и Pascal 7.0).

Тем, кто не умеет работать с портами, советую прочитать предыдущую статью "Основы программирования LPT", тк. сейчас я уже не буду подробно описывать как и почему.
Как я уже говорил, считать значение на выходах порта можно одной строчкой: data := port[$378], где $378 - базовый адрес порта. Это выходы, ими управлять мы уже умеем. А входы нахотятся по адресу "базовый+1", те. $379 пробуем считать:
 

Uses Dos; Var data:byte; {переменная DATA типа byte} Begin data := Port[$379]; {читаем значение порта в data} writeln(data); {выводим значение на экран} End.

В результате на экране останется число 120 (у меня так :)). Нажимаем одну из кнопок, запускаем программу ещё раз - число изменилось. Чтобы не мучиться с запуском программы и её закрытием, а просто жать на кнопки и смотреть, я немного доработал программу:

Uses dos, crt; var data : byte; BEGIN clrscr; while not keypressed do {пока не нажата кнопка на клавиатуре...} begin {повторяем код от сюда.....} data := port[$379]; {читаем значение порта в data} gotoxy(1,1); {ставим курсор в позицию 1,1 на экране} write(' '); {пишем пробелы чтобы замазать текст} gotoxy(1,1); {возвращаем курсор назад в позицию 1,1} write(data); {выводим значение на экран} delay(100); {задержка в 100мс.(не точно!)} end; {.....до сюда}END.

Для тех кто работает в Delphi, маленькая вставочка на ассемблере, тк. я не знаю как в дельфи правильно работать с портами:

asm MOV DX,379h; IN AL,DX MOV data,ALend;

Эта программа будет делать следущее: выведет значение порта на экран, подождет 100мс, вернет курсор в начало строки и заменит старое значение на новое и так до тех пор, пока не нажата кнопка на клавиатуре.
Теперь можно запустить программу, убрать клавиатуру с мышкой в сторону и наблюдать за изменениями.
Вот теперь начинается головоломка... Методом тыка я нашел, что каждой кнопке соответствует своё значение (свой бит), значения присвоены очень странно, может позже я разберусь почему, но пока просто выложу их:
 

вывод значение
10 64
11 128
12 32
13 16
15 8


Я не случайно выделил 11 вывод жирным, он отличается от других - он логически инвертирован, те. если все наши кнопки система считает отжатыми, то эту она считает замкнутой. А если её замкнуть, то система будет думать что кнопка отжата.
Теперь как это всё влияет на общее число которое мы считали (120):
Если нажать на одну из наших кнопочек, то от общего числа отнимется значение этой кнопочки (см. таблицу).
Например, мы нажимаем кнопку подключеную к выводу 10 и число сразу уменьшается на 64 (см. прогу), отпустим и значение снова увеличится на 64. А теперь, нажмем кнопку на выводе 15 - значение уменьшилось на 8, отпустили и оно опять увеличилось.
А что будет если нажать особенную 11 кнопку? Нажимаем - значение не уменьшилось, а возрасло, отпустили и оно опять уменьшилось. Вот чем эта кнопка отличается от остальных 4.

А теперь по русски, как узнать программе что нажато? Я делал так:
Запоминаю что сейчас в порте, при изменении значения сравниваю что было и что получилось, если отличается на 64, значит нажата 10кнопка, если отличается на 32, значит 12 кнопка и тд. Чтобы определить нажата или отпущена, нужно учитывать увеличилось число или уменьшилось.
То есть, если число стало меньше на 32, то нажата кнопка 12, а если число увеличилось на 32, значит кнопку 12 отпустили. НО! тут нужно учитывать, что кнопка со значением 128 (11вывод) работает наоборот.
Вот то же самое, только на программерском:

Uses Dos; uses dos, crt; var bylo,stalo : word; razn : integer ; BEGIN clrscr; bylo := port[$379]; while not keypressed do begin stalo := port[$379]; razn := stalo - bylo; case razn of -64 : writeln('нажата кнопка 10 !'); 64 : writeln('отпущена кнопка 10 !'); -32 : writeln('нажата кнопка 12 !'); 32 : writeln('отпущена кнопка 12 !'); 128 : writeln('нажата кнопка 11 !'); -128 : writeln('отпущена кнопка 11 !'); end; bylo := stalo; end; END.

Надеюсь, что этого кода достаточно для начала, дальше уже можно самостоятельно разобраться или спросить помощи на форуме

Теперь снова об электронике...
В простейшем варианте можно использовать кнопочки или переключатели как в экспериментальной панельке, можно поставить геркон, тк. это тоже кнопочка, только магнитная, можно контакты реле... Но тут нужно помнить про такую нехорошую вешь, как "дребезг" контактов - расшатаный или просто некачественный выключатель обязательно будет давать повторные срабатывания в программе. Если точность не нужна, то можно просто увеличить задержку с 100 мс до, например, 1 секунды и тогда программа просто не обработает повторные нажатия. А если нужна точность, то нужно что-то придумывать.
Теоретически, связать порт можно с любым низковольтным устройством через транзистор, те. замыкать контакты не кнопкой, а транзистором. Например, у нас есть схема, в которой светодиод загорается когда кто-то проходит рядом с устройством, если светодиод подключен прямо к выводу микросхемы, просто подпиваем к ножке микросхемы вместо светодиода резистор, а резистор к базе транзистора эмиттер с коллектором которого подключены вместо выключателя к ножке. Ух, во сказал, аж сам не понял. Просто лень рисовать схему, а примерчик этот из моей практики...
 

 


 

Источник: zps-electronics.com


Дата публикации: 2006-08-31
Прочтено: 16375
Версия для печати: Версия для печати