Конференция VBStreets

**Black_T** » 10.02.2006 (Пт) 11:44

Такая вот проблемка.
Сделал прогу, она считает кучу уравнений,
расчет длится от минуты и дальше,
за это время прога "подвисает",
ну это система так считает,
прогресс бар замирает и т.п.
После завершения расчета она "отмирает".
Как можно сделать так чтобы система не считала ее зависшей ?

**Konst_One** » 10.02.2006 (Пт) 11:48

DoEvents в цикл вычислений можно поставить

**xqz_me** » 10.02.2006 (Пт) 12:02

Как то давно делал тупую программу. Прсто быстро меняла цвет формы, рисовала линии. Смотрелась прикольно... Ну так, вот... Она накак не хотела закрываться, подвисала система и т.д. Тогра я во все циклы вставил таймер на несеолько милисекунд и тормаза исчезли. :wink:

**Twister** » 10.02.2006 (Пт) 12:03

DoEvents в цикл вычислений можно поставить

Не можно, а НУЖНО!

**Twister** » 10.02.2006 (Пт) 12:10

Тогра я во все циклы вставил таймер на несеолько милисекунд и тормаза исчезли.

Какой таймер и в какие циклы? :shock:

Может это была задержка?...

**Konst_One** » 10.02.2006 (Пт) 12:15

наверное он Sleep поставил

**xqz_me** » 10.02.2006 (Пт) 12:21

Там был вечный цикл, в котором менялся случайным образом цвет формы. Туда таймер и поставил. Наверно, получилось нерационально, но зато тормазить перестало.

**Денис Победря** » 10.02.2006 (Пт) 15:31

xqz_me ты наверно сделал процедуру отрисовки в событии таймера

Black_T
DoEvents или (хотя не советую, очень не советую) сделай в событии таймера

**CORBA** » 10.02.2006 (Пт) 17:03

xqz_me писал(а):Там был вечный цикл, в котором менялся случайным образом цвет формы. Туда таймер и поставил. Наверно, получилось нерационально, но зато тормазить перестало.

Надо было в событие Timer прописать код прорисовки твоих линий. а не таким гемором заниматься.

**Black_T** » 11.02.2006 (Сб) 11:03

>DoEvents

Если можно раскажите поподробнее,
или линк на статью, где пример с этой командой есть...

Это может отразиться на скорости работы программы ?

**VVitafresh** » 11.02.2006 (Сб) 13:24

Какой тут пример? Вставляешь в цикл и все!
Ну чтоб понятнее:

Код: Выделить всё: Do While a<b a=a+1 DoEvents 'Позволяет ОС обработать события Loop

Особо сильно на скорости не отражается, зато программа не замирает на все время выполнения цикла.

**Black_T** » 11.02.2006 (Сб) 14:09

Спасибо!
Разобрался, на скорость влияет, но не сильно.

1. Расчет без DoEvents - длился 3 мин 7 сек.
2. Расчет с DoEvents шаг через 10 уравнений- длился 3 мин 17 сек.
3. Расчет с DoEvents на каждом уравнении- длился 3 мин 18 сек.

**Twister** » 12.02.2006 (Вс) 19:15

Разобрался, на скорость влияет, но не сильно.

Конечно, DoEvents позволяет проге обрабатывать другие события во время выполнения цикла, но не повышает скорость...

**Fencer** » 14.02.2006 (Вт) 17:51

Функция DoEvents ОЧЕНЬ сильно замедляет работу. Если вам необходимо вычислить большой цикл и в нём вы используете DoEvents - скорость обработки цикла упадёт в десятки раз! Поэтому лучше прибегнуть к использованию API функции GetInputState (она возвращает True если форме было послано сообщение от клавиатуры или мыши):

Declare Function GetInputState Lib "user32" _
Alias "GetInputState" () As Long

For c = 1 To 100000
temp = 2 * 2 * 2
If GetInputState() Then DoEvents ' здесь 312 мс.
DoEvents ' а здесь время выполнения цикла 6543 мс. !!!
Next c

это я вычитал в "полезных советах" на одном сайте

Конференция VBStreets

"Зависание "

"Зависание "

Кто сейчас на конференции