VPF::progressbar - просто число - Форум программистов

vitaly1979

Дата 29.3.2007, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 26.2.2006

Репутация: 1
Всего: 1

кто-ниб подскажет сабж?
т.е. например нужен не линейный прогресс бар, показывающий от 0 до 100 %
а выводить например кол-во отсортированных помидоров в одном месте консоли

Hexley

Дата 3.4.2007, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 3.4.2007

Репутация: нет
Всего: нет

А по конкретней?

tishaishii

Дата 4.4.2007, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Пойдёт?

Код

use constant progressbar=>'просто число';
print progressbar

Nab

Дата 4.4.2007, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

Цитата(tishaishii @ 4.4.2007, 21:22)

Пойдёт?

Код

use constant progressbar=>'просто число';
print progressbar

Чукча не читатель, чукча писатель smile

(с) из анекдота....

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

korob2001

Дата 5.4.2007, 02:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Насколько я понял, речь вообще идёт не о progress-баре, а о выводе сотояния в одном месте консоли, так как Progressbar невольно ассоциируется с GUI.

Если я правельно понял, то нужен не последовательный вывод:
1, 2, 3, 4, 5, .... 100

А что бы все эти числа показывались в одном месте, каждое последующее, становится на место предидущего. Что-то типа этого:

Код


#!/usr/bin/perl -w
use strict;
use Win32::Console;
use Time::HiRes;
use constant PERCENT_100 => 1000;  # 100%

my $console = new Win32::Console(STD_OUTPUT_HANDLE);
$console->Cls();

for (1..PERCENT_100) {
     my $posx = 10;
     my $posy = 5;
     $_ = "$_ / " . int($_ / PERCENT_100 * 100) . "%";
     for my $color ($FG_YELLOW, $FG_GREEN, $FG_LIGHTRED, $FG_BLUE, $FG_WHITE) {
           my $attr = (chr($color|$BG_BLACK) x length($_));
           $console->WriteAttr($attr,$posx,$posy);
           $console->WriteChar($_, $posx, $posy);
           $posx += 5;
           $posy += 2;
     }
     Time::HiRes::sleep(0.1);
}

$console->Display();

Это сообщение отредактировал(а) korob2001 - 5.4.2007, 16:23

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

tishaishii

Дата 5.4.2007, 07:54 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

Цитата

Чукча не читатель, чукча писатель smile (с) из анекдота....

Воздух только портишь.

KSURi

Дата 6.4.2007, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Если я правильно понял, можно позаимствовать код из Test::*
Там реализован такой progressbar, который юзается при показе проходимых тестов

--------------------

Died at Life.pl line 21

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »