VPF::Timer&ProgressBar - Форум программистов

NightRider

Дата 24.11.2005, 20:18 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня такая задача:

Мне надо, чтобы после открытия формы начал просто так работать ProgressBar, и, чтобы по прошествии пяти секунд форма закрылась. Как это сделать???? smile

darkart

Дата 24.11.2005, 21:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Вот, что надо поправишь:
В форму добавить:
таймер timer1
прогресс бар progressbar1

Dim n As Integer

Private Sub Form_Load()
n = 0
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = n * ProgressBar1.Max / 50
n = n + 1
If n > 50 Then Unload Me
End Sub

Это сообщение отредактировал(а) darkart - 24.11.2005, 21:10

NightRider

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

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

Загрузка ...

Новичок

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

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

Не работает. Progress Bar не бегает и форма не закрываестя smile

Добавлено @ 21:27
У меня была такая идея

Код


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyValue As Long
        Dim x As Long
        Randomize() ' Инициализирует генератор случайных чисел
        MyValue = Int((10000 * Rnd()) + 1) ' Возвращает случайное число от 1 до 10000
        PB1.Maximum = 1000
        PB1.Minimum = 1
        For x = 1 To MyValue
            PB1.Value = x
        Next x
        If x > 500 Then Me.Close()
    End Sub

PB1 это ProgressBar1

Это сообщение отредактировал(а) NightRider - 24.11.2005, 21:30

NightRider

Дата 24.11.2005, 21:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот эта ошибка

Присоединённый файл ( Кол-во скачиваний: 7 )

err.PNG 70,84 Kb

cardinal

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

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Лови пример...

Присоединённый файл ( Кол-во скачиваний: 14 )

ProgBar.rar 5,32 Kb

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

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

darkart

Дата 24.11.2005, 23:51 (ссылка)

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

Загрузка ...

Опытный

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

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

Sorry, у таймера надо выставить интервал в 100, в прогресс баре:(min=0,max=100)(забыл написать smile

)
Добавлено @ 00:00

Цитата

Код


 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyValue As Long
        Dim x As Long
        Randomize() ' Инициализирует генератор случайных чисел
        MyValue = Int((10000 * Rnd()) + 1) ' Возвращает случайное число от 1 до 10000
        PB1.Maximum = 1000
        PB1.Minimum = 1
        For x = 1 To MyValue
            PB1.Value = x
        Next x
        If x > 500 Then Me.Close()
    End Sub

Несколько Замечаний:
randomize() - не стоит каждый раз вызывать
MyValue от 0 до 10000, а Pb1.Maximum=1000 => цикл вывалится при x>1000 ' вот она ошибка

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