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

**A.A.Z.** » 13.08.2003 (Ср) 17:04

Я тут на днях решил сделать маленькую прогу - "Светофор". Там будет картинка светофора, которая при нажатии кнопки должна менять цвета (они у меня все есть), выдерживая паузы, идентичные натуральным (для этого использовал функцию Sleep). В пошаговом режиме всё идёт как надо, а вот в нормальном - ерунда какая-то. Помогите, пожалуйста! (Проект с картинками в zip'е.) :oops:

**GSerg** » 14.08.2003 (Чт) 7:49

После каждой смены картинок ставь оператор DoEvents
optional Попробуй переделать проект, используя ImageList

**X-BOND** » 14.08.2003 (Чт) 13:34

Если честно, я не понял, на фига там вообще картинки. Можно спокойно обойтись Shape и просто менять цвета. И прога меньше, и код компактней.

**_NeoN_** » 14.08.2003 (Чт) 16:07

ты на его подпись посмотри - все поймешь =) я бы лет 5 назад тоже так сделал, когда тока учиться начал... это с опытом приходит что, где и как надо правильно делать...

**A.A.Z.** » 14.08.2003 (Чт) 17:47

GSerg писал(а):После каждой смены картинок ставь оператор DoEvents

Спасибо! Помогло! :!:

P.S. А что такое - DoEvents? :oops:

**_NeoN_** » 14.08.2003 (Чт) 18:06

DoEvents передает на некоторое время управление системе.

Код: Выделить всё: for i = 0 to 1000000 a=a+1 next i

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

Код: Выделить всё: for i = 0 to 1000000 a=a+1 DoEvents next i

так будут обрабатываться разные события, на кнопки на форме давить можно, короче обрабатываются все события... коряво как-то обьяснил но думаю все всё поняли =)

**A.A.Z.** » 14.08.2003 (Чт) 18:28

2 _NeoN_:
Спасибо, вроде понял!
Я сначала думал, что дело в Sleep'е, и уже хотел Sleep'ы заменять циклами типа

Код: Выделить всё: For i = 1 To 2000000000: Next i

!

**X-BOND** » 14.08.2003 (Чт) 18:43

A.A.Z. писал(а):2 _NeoN_:
Спасибо, вроде понял!
Я сначала думал, что дело в Sleep'е, и уже хотел Sleep'ы заменять циклами типа
Код: Выделить всё
For i = 1 To 2000000000: Next i
!

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

**A.A.Z.** » 14.08.2003 (Чт) 18:49

X-BOND писал(а):
A.A.Z. писал(а):2 _NeoN_:
Спасибо, вроде понял!
Я сначала думал, что дело в Sleep'е, и уже хотел Sleep'ы заменять циклами типа
Код: Выделить всё
For i = 1 To 2000000000: Next i
!

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

Да я же не всерьёз! :!:

Хоть я и глубокий ламер, я уж не настолько тупой, чтобы этим паузу делать! :shock:

P.S. Представляю, сколько раз придётся в пошаговом режиме F8 жать... :shock:

**boevik** » 14.08.2003 (Чт) 19:00

_NeoN_ писал(а):DoEvents передает на некоторое время управление системе.

Очень глубокое заблуждение.
DoEvents - позволяет программе обработать свою очередь сообщений.
А система (OS) и без DoEvents продолжает работать.

**A.A.Z.** » 14.08.2003 (Чт) 19:11

_NeoN_ писал(а):DoEvents передает на некоторое время управление системе.
Код: Выделить всё
for i = 0 to 1000000 a=a+1 next i

тут пока не выполнится цикл 1000000 раз ничего не произойдет. а вот так
Код: Выделить всё
for i = 0 to 1000000 a=a+1 DoEvents next i

так будут обрабатываться разные события, на кнопки на форме давить можно, короче обрабатываются все события... коряво как-то обьяснил но думаю все всё поняли =)

boevik писал(а):
_NeoN_ писал(а):DoEvents передает на некоторое время управление системе.

Очень глубокое заблуждение.
DoEvents - позволяет программе обработать свою очередь сообщений.
А система (OS) и без DoEvents продолжает работать.

Лично я понял вот так: в стандарте (без DoEvents) ЦП тратит 99% на выполнение чего-то (в данном случае - цикла), и пока не закончит его, на экране ничего нового не покажет, а DoEvents какую-то часть ЦП оставляет на выполнение других действий - нажатий на кнопки и т. д.

**Boris_BGB** » 14.08.2003 (Чт) 19:24

Вообще можно обойтись и без Shape с помощью графических методов!

**A.A.Z.** » 14.08.2003 (Чт) 19:37

Boris_BGB писал(а):Вообще можно обойтись и без Shape с помощью графических методов!

Ага! Можно вообще и писАть с их помощью, и рисовать, и раскрашивать (по одной точке)... :wink:

**FaKk2** » 14.08.2003 (Чт) 20:04

A.A.Z. писал(а):
Boris_BGB писал(а):Вообще можно обойтись и без Shape с помощью графических методов!

Ага! Можно вообще и писАть с их помощью, и рисовать, и раскрашивать (по одной точке)...

Ну не зачем извращаться

Есть же примитивы ,Line, Circle, Polygon :wink:

**A.A.Z.** » 14.08.2003 (Чт) 20:07

Нет, ну, можно, конечно... Но всё же это - ИМХО, не самый лучший вариант. :wink:

**FaKk2** » 14.08.2003 (Чт) 20:07

A.A.Z. писал(а):Лично я понял вот так: в стандарте (без DoEvents) ЦП тратит 99% на выполнение чего-то (в данном случае - цикла), и пока не закончит его, на экране ничего нового не покажет, а DoEvents какую-то часть ЦП оставляет на выполнение других действий - нажатий на кнопки и т. д.

Не правильно понимаешь

Представь себе человека на конвеере. Он постоянно делает одну и ту же операцию, не отвлекаясь ни на что. Вот так выглядит цикл без DoEvents. А если человек будет делать перерывы, на перекур, скажем, то он сможет поболтать с товарищами, етс...Это цикл с DoEvents...
Надеюсь объяснил :roll:

**alibek** » 15.08.2003 (Пт) 9:58

Усиленно не соглашусь

Пусть даже и упрощать, но не так же

Я бы объяснил так:
Допустим у тебя крутится (бес)конечный цикл. При этом программа не будет выполнять отрабатывать события (Click, KeyPress, MouseMove, перерисовка окон и прочие). Когда ты даешь команду DoEvents, то винда обрабатывает все события, которые накопились, но еще не отработаны.

**GSerg** » 15.08.2003 (Пт) 11:17

Э, а alibek-то Гуру! А я и не заметил! :shock:

**A.A.Z.** » 17.08.2003 (Вс) 10:58

2 alibek: Я подразумевал примерно то же, просто неправильно выразился! :wink:

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

"Светофор"

"Светофор"

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