Обратный отсчёт / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратный отсчёт

10 сообщений из 10, страница 1 из 1

Обратный отсчёт

#38170908

avicena

Гость

Вроде мелочь, а не могу найти - нужен обратный отсчёт на 5 минут - в формате "mm:ss" и выходом из процедуры когда время обнуляется - заранее спасибо.

...

Рейтинг:

0 / 0

01.03.2013, 13:38

| Ответить | Цитировать | Написать

Обратный отсчёт

#38170950

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Прописать в переменную текущее время + 5 минут (dateadd), запустить ежесекундный таймер, выводить в нем разницу между текущим временем и переменной (datediff) и выключить, когда она будет равна нулю.

...

Рейтинг:

0 / 0

01.03.2013, 13:58

| Ответить | Цитировать | Написать

Обратный отсчёт

#38170987

avicena

Гость

А проще нельзя? Через -

Код: vbnet

1.
2.

timeLeft = timeLeft.AddSeconds(-1)
         Label2.Text = timeLeft.ToString("mm:ss")

...

Рейтинг:

0 / 0

01.03.2013, 14:21

| Ответить | Цитировать | Написать

Обратный отсчёт

#38170992

avicena

Гость

А timeLeft - переменной - прописать сразу допустим - 05:00 - в формате минуты - секунды?

...

Рейтинг:

0 / 0

01.03.2013, 14:24

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171014

avicena

Гость

Разобрался

Код: vbnet

1.
2.
3.

 Private newDate As DateTime = DateAdd(DateInterval.Minute, 5, #12:00:00 AM#) 
 newDate = newDate.AddSeconds(-1)
        Label2.Text = newDate.ToString("mm:ss")

...

Рейтинг:

0 / 0

01.03.2013, 14:34

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171044

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

avicena А проще нельзя?
То, что предлагаю я, правильней. Таймер не точен, если считать его срабатывания, то 60 * 5 срабатываний не будут равны пяти минутам, +/- может быть в пределах нескольких секунд. Если же сравнивать текущее время с заданным, то точность будет в пределах +/- пол-секунды.

avicena А timeLeft - переменной - прописать сразу допустим - 05:00 - в формате минуты - секунды?У типа времени нет формата, а конвертировать туда-сюда строку для вычитания из секунд единички, это худший вариант индусского быдлокода.

...

Рейтинг:

0 / 0

01.03.2013, 14:47

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171073

avicena

Гость

Antonariy, не хочу вступать в полемику по поводу индусов) , но Вы считаете, что так не правильно?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

 Private newDate As DateTime = DateAdd(DateInterval.Minute, 5, #12:00:00 AM#)
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If newDate > #12:00:00 AM# Then
            newDate = newDate.AddSeconds(-1)
            Label2.Text = newDate.ToString("mm:ss") & " seconds"
        Else
            Timer1.Stop()
            timeLabel.Text = "Time's up!"
            MessageBox.Show("You didn't finish in time.", "Sorry")
        End If
       End Sub
Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
        Timer1.Start()
    End Sub

...

Рейтинг:

0 / 0

01.03.2013, 15:01

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171127

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

avicenaне хочу вступать в полемику по поводу индусов"прописать переменной в формате" это форменная дичь и ахтунг, однако в коде этого нет, с этой точки зрения подход в коде правильный.

avicena Вы считаете, что так не правильно?Да. Я считаю, что правильно так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

 Private newDate As DateTime = DateAdd(DateInterval.Minute, 5, Now)

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If newDate > Now Then
        Dim iSecs as Integer = DateDiff(DateInterval.Second, newDate, Now)
        Label2.Text = (iSecs \ 60) & ":" & (iSecs Mod 60)
    Else
        Timer1.Stop()
        timeLabel.Text = "Time's up!"
        MessageBox.Show("You didn't finish in time.", "Sorry")
    End If
 End Sub

...

Рейтинг:

0 / 0

01.03.2013, 15:33

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171161

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Модератор: avicena, прошу в следующий раз вопросы по .NET задавать в соответствующем форуме

...

Рейтинг:

0 / 0

01.03.2013, 15:50

| Ответить | Цитировать | Написать

Обратный отсчёт

#38171716

avicena

Гость

Antonariy, Спасибо. )

...

Рейтинг:

0 / 0

01.03.2013, 23:48

| Ответить | Цитировать | Написать

10 сообщений из 10, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обратный отсчёт

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=61&tid=2157117]:	0ms
get settings:	6ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	35ms
get topic data:	11ms
get forum data:	2ms
get page messages:	48ms
get tp. blocked users:	2ms
others:	282ms

total:	404ms