Расчет времени (в поиск не отправлять)

[it.egor]

в поиске уже бывал многократно... ничего не помогло.

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

операции могут длиться неделями!!!!

дайте пож. код для любого цикла.

[alibek]

А что сложного? Не можешь два числа умножить?

[it.egor]

причем тут умножить??!?!? топик создан в форуме для новичков.

[Viper]

Ну подели для разнообразия. В чем сложность то? Что конкретно не получилось с расчетом времени?

[alibek]

В том, чтобы думать логически, ты тоже новичок?

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

TimeStart = Timer
For I = 1 To 1000
  Percent = (I/1000)
  TimeElapsed = Timer-TimeStart
  TimeTotal = TimeElapsed/Percent
  TimeEstimated = TimeTotal-TimeElapsed
  'long operations
Next I


Для начала хватит.
А потом советую прогнозировать изменение времени, а не время (чтобы скачков не было)

[it.egor]

ладно! топик подниму когда будет хоть какай-то наброска... ожидайте

[Alprog]

Кинь на форму два лейбла и вставь этот код:

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

Dim Start As Single
Dim A As Single
Dim CurTime As Single

Private Sub Form_Load()
    Me.Show
    Start = Timer
    Do
        A = A + 1
        CurTime = Timer - Start
        Label1.Caption = "Время прошло: " & CurTime
        Label2.Caption = "Время осталось: " & CurTime / A * 50000 - CurTime
        DoEvents
    Loop Until A = 50000
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub

Правда сейчас лейбл мерцает, но если операция в цикле будет сложнее, чем A = A + 1, то обновление лейблов станет реже и мерцание исчезнет. Другой способ избавится от мерцания вынести этот код в таймер:

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

        CurTime = Timer - Start
        Label1.Caption = "Время прошло: " & CurTime
        Label2.Caption = "Время осталось: " & CurTime / A * 50000 - CurTime

[it.egor]

вот! вот это дело! наконец-то я дождался!!!! СПАСИБО буду пробовать!!!

помогите пож сразу с форматом времени:
осталось __ дней __ часов __ минут __ секунд

оч буду признателен

[Viper]

Функция Format поможет тебе вывести время в любом формате, хоть с цветочками по бокам.

[alibek]

А отправлю-ка я тебя в поиск, там все есть.
А тему закрою.