Загрузка процессора

Простой цикл опроса клавиатуры и мыши потребляет ресурсов по самое небалуй. Калсон на процессоре крутится почти на все 100. Каким образом можно реализовать в программе разную степень загрузки процессора?

Спасибо, за неимением лучшего sleep пойдет. Но все равно как-то коряво все это...

В случае если sleep 1 слшком много, можно попробовать разбивать цикл на несколько меньших, вложенных циклов.

например, вместо

for m=0 to 100
sleep 1
print m
next

использовать код(хотя он и не тождественен первому, это так, для примера)

Dim As Integer m,n,sum
for m=1 to 10
sleep 1
for n=1 to 10
sum +=1
print sum;" ";
next
Next

Когда я писал простенькую машину моделирования частиц (к сожалению не могу сейчас код найти) использование такого способа позволило добится высокой скорости работы и при этом мой четвертый селерон был загружен всего на 10-20%.

Можно установить пониженный приоритет потока, делается это с помощью SetThreadPriority, подробнее сказать не могу, гугля поможет!

DEPOzit пишет:Простой цикл опроса клавиатуры и мыши потребляет ресурсов по самое небалуй. Калсон на процессоре крутится почти на все 100. Каким образом можно реализовать в программе разную степень загрузки процессора?

Поставьте ка хук на клавиатуру и мышку. Например WH_KEYBOARD_LL / WH_MOUSE_LL
Тогда событие будет по факту

Как я понимаю, это имеються в виду события окна windows?

Eric-S пишет:Как я понимаю, это имеються в виду события окна windows?

Почитайте вот это:
http://www.rsdn.ru/article/baseserv/winhooks.xml