| Вопрос: Метраж | Добавлено: 16.08.04 17:22 |
Автор вопроса:  Mufasa | Web-сайт: webpricols.narod.ru
|
| Подскажите, как подсчитать пройденный путь мышака по монитору... |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 16.08.04 18:06 |
|
В пикселях?
Считываешь каждые 1/18 секунды положение мыши и... Dim Distance as double Private Sub ComputeMouse Static PL as PointAPI Sim P as PointAPI P = GetCursorPos(P) Distance = Distance + Dist(P.x, P.y, PL.x, PL.y) PL.x=P.x PL.y=P.y End Sub Private Function Dist(X1 as long, Y1 as long, X2 as long, Y2 as long) Dist = Abs(Sqr((X2 - X1)^2 + (Y2 - Y1)^2)) End Function |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 16.08.04 18:56 |
пример такой был 
|
||
|
Номер ответа: 3 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #3 | Добавлено: 16.08.04 21:28 |
| лучше дайте пример пробега мышки по коврику | ||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 17.08.04 08:25 |
| Ну это смотря что за мышка. PS/2 опрашивай как угодно, а с COM - всю жизнь она работала по прерыванию. | ||
|
Номер ответа: 5 Автор ответа: Mufasa Вопросов: 19 Ответов: 63 |
Web-сайт: Профиль | | #5 | Добавлено: 17.08.04 08:58 |
Спасибо, товарищи. 
А пример я видел, но ... он не то считает. Столько, сколько по её подсчётам пробежала моя мышь за минуту - она(мышь) не бегала за год!
|
||
Страница: 1 |