Секундомер

[Тимофей_кг]

Помогите сделать секундомер.
У меня секунды выводятся в лейбл, но когда появляется нужный мне INputBox секунды останавливаются, а после убирания INputBox снова начинают идти но с того места где остановились.

[Мамонт]

Неочень понял вопрос! Ты это уже сделал или хочешь сделать?

[Kovu]

А ты не пробовал очищать переменную, хранящую секунды.
А Если Ты сразу в лейбл время получаешь, объяви переменную-- жить станет намного легче

[Amed]

Надо не Timer использовать, а GetTickCount (в поиск по форуму, примеров было море).
Тимофей_кг... Интересный ник...

[xolod]

2 Тимофей_кг
InputBox, как MsgBox выполняется в одном потоке с программой. При выводе на передний план подобных сообщений таймер "мерзнет".
Сделай вместо Inputbox'а свою форму. Вызывай по .Show.


[Поправка]
Опоздал...
[/]

[Amed]

:-p


Идёте по стопам A.A.Z., товарисч!

[xolod]

Это ты к чему, камрад?

[Amed]

[Поправка]
Опоздал...
[/]

Такого рода каменты должны быть с подписью "(с) A.A.Z." ))
Спроси у него, когда заглянет к нам

[Тимофей_кг]

В своем примере я могу использовать только Inputbox.

[alibek]

Тогда создавай второй трэд и "тикай" часиками в нем.

[Тимофей_кг]

А поподробней нельзя?

[Amed]

Создай вторую форму и используй таймер на ней.

[Тимофей_кг]

Щас Попробую.

[Тимофей_кг]

Нифига не получается. Первая секунда показывается, а потом останавливается.

[Amed]

В своем примере я могу использовать только Inputbox.

Что сие означает? Нельзя использовать Timer()? Нельзя GetTickCount()? Только одну функцию InputBox?

[xolod]

Вот что у меня получилось.
Попробуй, Тимофей_кг

2 Amed
Во жизнь пошла. Ну русский язык уже копирайты делают.

[Тимофей_кг]

Ххочу уточнить, что мне нужен секундомер, который показывает вот примерно так "nn:ss" или 07:35

[xolod]

Ну посиди. Подумай. Замени Time$ тем, что тебе надо.
Что сложного-то, не понимаю?

[Sirik]

1. используй не Msgbox, а функцию апи MessageBox
2. функция формата времени:

Код: Выделить всё

Function FormatTime(ByVal Secs As Long) As String
   Dim Hrs As Long, Min As Long, Sec As Long, s As String
   Hrs = Secs \ 3600: Min = Secs \ 60 Mod 60: Sec = Secs Mod 60
   If Hrs > 0 Then s = Format$(Hrs, "00:")
   FormatTime = s & Format$(Min, "00:") & Format$(Sec, "00")
End Function


[xolod]

Ты бы хоть условие задачи прочитал прежде чем постить. Блин.

[Тимофей_кг]

Спасибо чуваки! Все разобрался наконец-то.

[Sirik]

2 холод я написал для примера, что функция MessageBox не тормозит выполнение программы

[юрка]

Нужно очистить переменную, где секунды находяться.
А если сразу в лейбл время получаешь, то нужно объявить переменную, будет намного удобнее.

[d3drm]

Тимофей_кг/ам, нет такого случая, где нельзя заменить InputBox своей формой. Это оптимальный вариант.