Скачать Mouse Unit for Turbo Pascal 5.5

26.07.1996
Скачать файл (3,60 Кб)

Если интересует протокол обмена мыши с компьютером, то вот он:
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       }
             {================================}