ProgressBar

[IgorGO]

Всем привет!

вашему вниманию предлагается ProgressBar
открываете файл, жмете кнопку, смотрите в строку статуса, демонстрация работы длится приблизительно минуту.

все, кому доводилось писать макросы знают, что не всегда обработка данных происходит мнгновенно. на мой взгляд если процедура занимает больше 2-3 сек пользователя уже нужно информировать что идет процесс обработки, чтобы он не нервничал и понимал что все нормально - программа работает.
для этих целей используют Индикатор процесса или ProgressBar.

предлагаемый ProgressBar в меру информативен и динамичен. отображается в строке статуса.
из настроек у Вас есть начальная строка StartStr и количество шагов Count, которые можно задать отдельно, а можно предать процедуре InitVar. функция State возвращает состояние ProgressBar для i-го шага, в котором есть стартовая строка, % уже выполненых шагов, динамический индикатор процесса и прогноз времени до окончания процесса.

Sub ProgrBarDemo()
  Dim i As Long, pb
  Set pb = New ProgressBar
  pb.InitVar 500000, "ПрогрессБар Демо: "
  For i = 1 To pb.Count
    Application.StatusBar = pb.State(i)
  Next
  Application.StatusBar = False
End Sub

приятных впечатлений,
Игорь

[Евгений Таб]

Игорь привет, красота.

Подскажи как эту красоту заточить если у меня 5 модулей и они попеременно выполняются?
Не могу понять что куда воткнуть.

Спасибо!

[IgorGO]

експорт модуля класса из вложенного файла, импорт в свою книгу и можно пользоваться

[IgorGO]

Первоначальный вариант выложен на эмоциях - возникла мысль, удалось ее реализовать именно в том виде, как задумано и я тут же выложил сюда...

Тепеть все работает гораздо быстее за счет того, что в строке статуса отображается не каждый шаг (как было раньше), а только те, когда строка отображающая состояние процесса изменилась и ее нужно показать
на первом варианте (на моем копьютере)
цикл на 0.5млн. шагов работал чуть больше минуты
то в данном варианте
цикл на 50 млн. шагов работает чуть больше полминуты, т.е.количество вычислений увеличилось в 100 раз, а время затраченное на это уменьшилось вдвое

представленный ниже код необходимо скопировать в проект, в отдельный модуль.

в использовании все просто:
1. Инициируете переменные InitProgressBar К-воШагов, Информационная строка
2. в цикле ProgressBarAt №Шага
3. Очистите строку статуса по окончании цикла Application.StatusBar = False

процедура Test в конце кода - это собственно пример использования ProgressBar, для работы ProgressBar она не нужна, может быть удалена

Option Explicit
Dim MaxI As Long, Prsnt1 As Single, StartStr As String, PBStatus As String, Position As Long
Dim StartTm As Single, EndTm As String, LastTm As Single


Sub InitProgressBar(pMaxI As Long, pStartStr As String)
  MaxI = pMaxI:  StartStr = pStartStr:  StartTm = Now:  Prsnt1 = Application.Max(MaxI / 100, 1)
End Sub


Sub ProgressBarAt(i As Long)
  Dim E As Long, O As Long, B As Long, s As String, PBs As String
  E = Int(i / Prsnt1): O = 100 - E: B = Int((i Mod Prsnt1) * O / Prsnt1)
  If B <> Position Then
    Position = B
    PBs = StartStr & Format(i / MaxI, "00.0%  ") & String(B, " ") & "I" & String(O - B, " ") & String(E, "I")
    If E > 10 Then
      If Timer < LastTm Then LastTm = Timer
      If Timer - LastTm > 1 Then LastTm = Timer: s = Format((Now - StartTm) * (MaxI - i) / i, "nn:ss")
      If s <> "" Then If EndTm <> s Then EndTm = s
      PBs = PBs & "  " & EndTm
    End If
    If PBs <> PBStatus Then PBStatus = PBs:  Application.StatusBar = PBStatus
  End If
End Sub


Private Sub Test()
  Dim i As Long, tm As Single
  i = 50000000: InitProgressBar i, "TEST ":  tm = Timer
  For i = 1 To i
    ProgressBarAt i
  Next
  Application.StatusBar = False:  MsgBox Timer - tm
End Sub

[Sasha_Smirnov]

Вот это тема! Импорт в свой проект, боюсь, займёт всю ночь.

Вы не могли бы в качестве примера использования встроить своё изобретение в какое-нибудь из моих?

• Быстродействие VBA (симметричные простые числа)
• http://programmersforum.ru/showthread.php?p=473254#6 (количество букв)
• http://programmersforum.ru/showthrea...0715&page=3#22 (статистика букв, совместно со Skif-F)
• Эпициклоида (при большом числе циклов)
  
• Правильный многоугольник (полигон)

Скорострельность последнего высока, но как пример встраивания тоже, надеюсь, пойдёт.

[IgorGO]

Саша, а каие сложности?

1. добавляете модуль в проект (правой кнопкой по имени проекта, Insert, Module) ексель добавит в проект Module1 или Module2 и т.д. (не знаю сколько модулей уже есть в Вашем проекте)
2. в этот самый добавленный модуль копируете код из моего предыдущего сообщения. Все, ProgressBar внедрен в Ваш проект.
3. Чтобы использовать ProgressBar Ваш макрос должен выполлнять какое-то циклическое действие (обработку строк в таблице, обработку символов в строке и пр.)
3.1. Выдолжны наперед знать сколько данных необходимо обработать
а дальше в предыдущем сообщении написано
"в использовании все просто:"
и 3 простых шага... не вижу смысла повторять

почему не внедрил в ваши темы? потому что написано это выполняется 0.3 секунды, это еще меньше...
на быстрых расчетах использование ProgressBar не имеет смысла, на коротких рассчетах 3-5 сек - можно, но без особого эФфекта, а вот если расчет в несколько тысяч шагов, и 20-30 сек и более по времени - на таком расчете ProgressBar отвлечет пользователя от тягостного ожидания.

[Sasha_Smirnov]

Сообщение от IgorGO

1. добавляете модуль в проект (правой кнопкой по имени проекта, Insert, Module) ексель добавит в проект Module1 или Module2 и т.д. (не знаю сколько модулей уже есть в Вашем проекте)

2 модуля (ваш — второй, Module2). Module1 ищет натуральные делители. Запуск через ALT+F8 в документе Word.

Сообщение от IgorGO

2. в этот самый добавленный модуль копируете код из моего предыдущего сообщения. Все, ProgressBar внедрен в Ваш проект.

Так и сделал. Самостоятельно настроить пока не берусь (минут 10 только «внедрял»), остальное помню смутно (хоть вы и объяснили).

Сообщение от IgorGO

Саша, а какие сложности?

3.1. Вы должны наперед знать сколько данных необходимо обработать…

Вот это и есть одна из них! Ну мне так кажется, во всяком случае.

Приложил проект. Для визуализации задержки вводил число из 16—17 единиц. Расчёт идёт секунд 5—10, но, как вы понимаете, пока без полосы.

[IgorGO]

отмечаете число, запускаете макрос

[Sasha_Smirnov]

Всё работает, IgorGO! Из-за мелькания на скрин не попало, а так видно.

Спасибо, что заинтересовались и нашли время!

На соседнем* форуме программистов в одной из моих тем мне тоже прикрутили этакий движок. Буду изучать.
____________
* вроде бы дружественном...