"Светофор"

[A.A.Z.]

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

[GSerg]

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

[X-BOND]

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

[_NeoN_]

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

[A.A.Z.]

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

Спасибо! Помогло!
P.S. А что такое - DoEvents?

[_NeoN_]

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.]

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

Код: Выделить всё

For i = 1 To 2000000000: Next i

!

[X-BOND]

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

Код: Выделить всё

For i = 1 To 2000000000: Next i

!

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

[A.A.Z.]

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

Код: Выделить всё

For i = 1 To 2000000000: Next i

!

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

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

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

[boevik]

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

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

[A.A.Z.]

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

Код: Выделить всё

for i = 0 to 1000000
    a=a+1
next i


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

Код: Выделить всё

for i = 0 to 1000000
    a=a+1
    DoEvents
next i


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

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

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

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

[Boris_BGB]

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

[A.A.Z.]

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

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

[FaKk2]

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

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

Ну не зачем извращаться
Есть же примитивы ,Line, Circle, Polygon

[A.A.Z.]

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

[FaKk2]

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

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

[alibek]

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

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

[GSerg]

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

[A.A.Z.]

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