как показывать сколько секунд осталось?

[DeMONiZ]

есть код:

Dim intSecond As Long
Dim intDelay As Integer
intDelay = 30
intSecond = Timer
Do While Timer < intSecond + intDelay
DoEvents
Loop

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

[VBTerminator]

"Элементарно, Ватсон"

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

Dim intSecond As Long
Dim intDelay As Integer
intDelay = 30
intSecond = Timer
Do While Timer < intSecond + intDelay
DoEvents
txtOstalosSecund = Int((intSecond + intDelay) - Timer) & " сек."
txtProshloSecund = Int(Timer - intSecond) & " сек."
Loop


[ANDLL]

код конечно ужасен. Автору стоит заценить sleep и не грузить проц на 100%
мне кстати тоже "ходячий замок" поннравился:)

[DeMONiZ]

ANDLL ну предложите что нибудь рациональное? ваш sleep проц то он не кушает а вот прога засыпает причем вся а мне это не нужно......конечно вроде можно как то сделать чтоб не вся но этого я не знаю.

[VBTerminator]

Автору стоит заценить sleep и не грузить проц на 100%

1. У меня Pentium 4 и 512 мб оперативки, а проц нагружен максимум на 50%. А для современных двухъядерников это вообще не расход (ИМХО).
2.

ваш sleep проц то он не кушает а вот прога засыпает причем вся а мне это не нужно...

3. Я предлагаю то, с чем знаком, и что точно работает.

[awl100Alex]

VBTerminator
Твой код имеет некоторые недостатки...
Во-первых, действительно сильно загружается процессор.
Во-вторых, если вывести txtOstalosSecund или txtProshloSecund в текстбокс, как нужно автору топика, и параллельно выполнять какие-то вызовы, например, окно диалога Msgbox, то сообщение текстбокса застынут пока не закроешь msgbox.

[awl100Alex]

Думаю, лучше использовать API-timer...

[ANDLL]

А для современных двухъядерников это вообще не расход (ИМХО).

Нет это глупость. Две подбные проги загрузят проц на 100%

ваш sleep проц то он не кушает а вот прога засыпает причем вся а мне это не нужно...

Просто поставь в цикле перед doevents sleep(1)

[VBTerminator]

Нет это глупость. Две подбные проги загрузят проц на 100%

Для теста запустил десять экземпляров проги на отсчёт. Согласен, проц грузится на 100%, но: никаких глюков - для теста парралельно юзал IE 7.0 с двумя вкладками - Яндексом и данной темой; uTorrent; EMule; DrWeb, не считая кучи драйверов + WinXP.

[MIT]

Если честно, то звучит это глупо и смешно.
Подобный код загружает свободное процессорное время, почти не зависимо от уже запущеных приложений. Просто количество пройденных циклов будет меньшим.
По теме: автор, юзай потоки. Либо да, Sleep(1) (или 10)

[iGrok]

Для теста запустил десять экземпляров проги на отсчёт. Согласен, проц грузится на 100%, но: никаких глюков - для теста парралельно юзал IE 7.0 с двумя вкладками - Яндексом и данной темой; uTorrent; EMule; DrWeb, не считая кучи драйверов + WinXP.

А ты ещё игру какую-нибудь запусти..
А как твоя прога будет работать на моём древнеодноядерном Celeron-D 2.54 ?

Блин. Помню, читал лет пять назад статью о том, почему у нас такая "гонка вооружений". О том, почему каждый год нужно покупать более новый и более мощный комп. О том, что десять лет назад процессоры были слабенькими, а память маленькой и дорогой. И все занимались благим делом - оптимизацией. И умудрялись писать для тех компов такие вещи, которые большинству современных "программеров" удастся запустить с нормальной производительностью дай бог на майнфрейме. А всё почему?

"Гм.. Жрёт 100% проца. Странно.. А, чёрт с ним. Работать вроде можно. А если мешать кому будет - пусть новый проц покупают. Нефиг на всяком старье сидеть. Ой. Памяти не хватает. Странно. Вроде прога маленькая, а уже гиг жрёт.. А, да ладно. Всё равно у всех минимум по два гига есть, а будет не хватать - ещё купят."

[tyomitch]

2iGrok: факт, что железо дешевеет быстрее, чем дешевеет труд программиста.

Когда-то вообще при отладке ползали с карандашом по простыне-распечатке, чтобы не занимать такой ерундой чудо-машину.
К этому, надеюсь, не предлагаешь вернуться?

[Williams]

Про "Всего 50% загружен" позабавило Я щас парюсь чтобы прога не ела больше 5%, и то думаю, не многовато ли это для бекграунда?

[MIT]

Зависит от назначения прги. Если архиватор - нормально , если напоминалка какая-нибудь - много

[iGrok]

2iGrok: факт, что железо дешевеет быстрее, чем дешевеет труд программиста.

Когда-то вообще при отладке ползали с карандашом по простыне-распечатке, чтобы не занимать такой ерундой чудо-машину.
К этому, надеюсь, не предлагаешь вернуться?

Нет, конечно. =)
Скорее предлагаю делать разумную(по времени) оптимизацию, и не оставлять описанных в последней фразе ляпов касательно утечек памяти и бездумного пожирания ресурсов проца.