Обработчик прерываний LPT порта (IRQ7)

[newonline]

Добросовестно перелопатил ресурсы нета и теперь думаю, что могу вынести вопрос на форум.
Собственно говоря ищу библиотеку или компонент, который наряду с Read/Write данные в LPT имеет процедуру или функцию обработки аппаратного прерывания LPT (замкнул pin 10 - выполнилась процедура). Вот собственно и все.
Помогите если есть у кого ссылка на ресурс. Разумеется нужен full free компонент.
SPASIBO ZARANEE

[Alexander N. Samarin]

http://digital.ni.com/public.nsf/websearch/953a4ab52663089d85256427004778c4?OpenDocument
Где-то уже писал об этом

[tyomitch]

Alexander, судя по названию - это всё же не то...

[newonline]

Я несколько продвинулся в этом вопросе.
По сути дела я собираю датчик пройденного пути (временно в качестве колеса я приспособил движок от старого Floppy 3.5 с механизмом замыкания). Я организовал постоянный цикл чтения состояния порта:

Код: Выделить всё

Public Sub Process()
Do While Status = True 'пока не нажата кнопка СТОП
    NewValue = DlPortReadPortUchar(&H379) 'значение состояния
    If NewValue <> PrevValue Then 'если да, то  произошло замыкание
'или размыкание Pin10
        MyLen = MyLen + 0.5 'счетчик
        Form1.Text2.Text = CStr(MyLen)
    End If
    PrevValue = NewValue
    Form1.Text1.Text = CStr(PrevValue)
    DoEvents 'даем отдышаться
Loop
End Sub

При замыкании Pin10 на землю, DlPortReadPortUchar(&H379) становится = 68, при размыкании - 126.
За один оборот двигателя механика 1 раз замыкает и размыкает Pin10. Отсюда легко посчитать кол-во оборотов.

Проблема вот в чем:

Все работает отлично при скоростях до 1000 об/мин. При больших скоростях замыкание Pin10 начинает попадать между двух опросов порта и он, соответственно, пропускает регистрацию оборота.
Решение - либо проц мощнее - это хреновое решение, либо еще какой-нибудь наворот с портом.
Может кто-нибудь подскажет???



[/code]

[newonline]

Вобщем то в идеале хотелось бы соорудить СОБЫТИЙНУЮ модель...
Как насчет помощи аудитории????

[newonline]

Почему то не обнаружил кнопочку для исправления своего сообщения - поэтому добавляю.

Молчаливость коллектва на форуме вызывает тревогу...
Посмотрел http://www.sysadmins.ru/rtfm/ask_howto.htm - вроде бы старался как можно ближе к рекомендациям по корректному оформлению вопроса.......
Не уж то вопрос бестолковый???
Надеюсь на помощь старших...по разуму.
Спасибо.

[newonline]

И на этом спасибо тебе, добрый человек.

[Info_m.be_free]

будем подумать...

[Бяка]

А комп не подтупляет?:) Когдато у меня, в почти такомже коде, была загрузка цпу 99% почемуто пока я эти дувайлы и лупы на таймер не поменял

А проц мощнее то и ненуна ! это ведь при тыщи об/мин твоего датчика получается гЫдето чуть больне 16Гц - частота замыкания ножки 10

Слушай а в уэтом Floppy 3.5 механизм замыкания какой? тупая механика или электромагнитный или оптический?

если механика то нуна от дребезга контактоф избавлятыся
совет вазми пообольше колесо (от филасипеда ) поставь туда геркон и магнитик на спицы! и ноу праблемы

гыдето у меня валалась прога " частотомер из LPT" - тапа считает количество импульсов за 1сек пришедьших на лпт- найду кину

[newonline]

А вообще-то загрузку проца я и не посмотрел. Вроде через DoEvents комок не зацикливается в себе...
Посмотрю...

[newonline]

Насчет трещетки - ты прав. Но вообще-то те условия для работы в которых предназначен это датчик - его просто не будет слышно - в ГАЗельке. Но все равно - приспособить геркон - это идея получше.

[newonline]

А что, событийная модель с портом не пройдет???