Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Мышинное Программирование    >>    mouse
   
 
 Mouse Unit for Turbo Pascal 5.5   Konstantin Turayev 26.07.1996

Модуль для работы с мышью в текстовом и графическом режиме. Поддерживает 10 различных видов мышкиного указателя. Кроме того, Костя Тураев приводит объяснение объяснение протокола обмена с мышью через COM-порт.
MOUSE Unit for TP5.5. From the book "OBJECT ORIENTED PROGRAMMING IN TURBO PASCAL 5.5". Graphics Cursors are predefined for use with GraphicMouse.



3k 
 

- [40] NICE.SOURCES (2:5054/2.44) ---------------- NICE.SOURCES - .Msg : 9 of 11 .From : Konstantin Turayev 2:5075/13 26 Jul 96 23:45:00 .To : Max Saprykin .Subj : mouse ----------------------------------------------------------------- Если интересует протокол обмена мыши с компьютером, то вот он: Microsoft mouse Мышь посылает через COM-порт 3-байтовые посылки о своем состоянии Первый байт : 7 бит - не использ. 6 бит - всегда 1 5 бит - левая кнопка. 1-нажата,0-нет 4 бит - правая кнопка. --//-- 3 бит - Y7 2 бит - Y6 1 бит - X7 0 бит - X6 Второй байт: 7 бит - не использ. 6 бит - 0 5 бит - X5 4 бит - X4 3 бит - X3 2 бит - X2 1 бит - X1 0 бит - X0 Третий байт: 7 бит - не использ. 6 бит - 0 5 бит - Y5 4 бит - Y4 3 бит - Y3 2 бит - Y2 1 бит - Y1 0 бит - Y0 Y7-Y0 - изменение коорд. Y в дополнит. коде X7-X0 - --//-- X --//-- Порт программируется на 1200 бит/сек, 7-битовые слова. Насчет программы: ----------------------------------------- {MOUSE.PAS creates MOUSE.TPU Unit} {From the book "OBJECT ORIENTED PROGRAMMING IN TURBO PASCAL 5.5"} {================================} {Graphics Cursors are predefined } {for use with GraphicMouse } {================================} --------------------------------------------- --- Polad Station * Origin: (2:5075/13)