Индикатор выполнения

[andreya81]

Добрый день уважаемые форумчане! Есть ли у кого-нибудь пример программирования элемента управления "индикатор выполнения", чтобы он располагался на рабочем листе и показывал в процентном выражении уровень исполнения задания. Например задание сделать 1000 оборотов на данный момент сделано 150, оба показателя указаны в ячейках.

[kompilainenn]

>_<

=round(A1/B1*100;2), где
А1 - на данный момент
В1 - задание

[andreya81]

Спасибо это мы знаем. Вопрос в том чтобы отображалось на индикаторе выполнения

[JohnSUN]

"Индикатор выполнения" как элемент формы можно воткнуть в лист Calc'а, но это довольно муторная процедура. Может быть достаточно будет стандартных средств отображения?

[вложение удалено Администратором]

[kompilainenn]

Спасибо это мы знаем. Вопрос в том чтобы отображалось на индикаторе выполнения

я не понял, что "индикатор выполнения" должен быть графической приблудой

[dndn]

"Индикатор выполнения" как элемент формы можно воткнуть в лист Calc'а, но это довольно муторная процедура.

А как элемент диалога?

Код Выделить Развернуть

Sub ProgressBarDemo()
Dim oProgressBar as Object, oProgressBarModel As Object, oDialog as Object
Dim ProgressValue As Long
REM Dialog1 contains progress bar ProgressBar1 saved in standard library
DialogLibraries.loadLibrary("Standard")
oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
REM progress bar settings
Const ProgressValueMin = 0
Const ProgressValueMax = 40
Const ProgressStep = 4
REM set minimum and maximum progress value
oProgressBarModel = oDialog.getModel().getByName( "ProgressBar1" )
oProgressBarModel.setPropertyValue( "ProgressValueMin", ProgressValueMin)
oProgressBarModel.setPropertyValue( "ProgressValueMax", ProgressValueMax)
REM show progress bar
oDialog.setVisible( True )
REM increase progress value every second
For ProgressValue = ProgressValueMin To ProgressValueMax Step ProgressStep
oProgressBarModel.setPropertyValue( "ProgressValue", ProgressValue )
Wait 1000
Next ProgressValue
End Sub

https://wiki.openoffice.org/wiki/Documentation/DevGuide/Basic/Progress_Bar