секундомер

[DVV]

If milisec > 99 Then Sec = Sec + 1
If milisec > 99 Then milisec = 0
If Sec > 59 Then Min = Min + 1
If Sec > 59 Then Sec = 0
If Min > 59 Then Hour = Hour + 1
If Min > 59 Then Min = 0
If Hour > 23 Then Hour = 0
Здесь всё правильно?

[tyomitch]

Нет. Миллисекунд в секунде 1000, а не 100.
А зачем два раза повторять одни и те же сравнения, я не знаю.

[Ruslan Demidow]

If milisec > 99 Then Sec = Sec + 1
If milisec > 99 Then milisec = 0
===============
If Min > 59 Then Min = 0
If Hour > 23 Then Hour = 0
Здесь всё правильно?

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

If milisec > 999 Then
    Sec = Sec + 1
    milisec = 0
    If Sec > 59 Then
        Min = Min + 1
        Sec = 0
        If Min > 59 Then
            Hour = Hour + 1
            Min = 0
        End If
    End If
End If
If Hour > 23 Then Hour = 0


[tyomitch]

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

If milisec > 999 Then
    Sec = Sec + 1
    milisec = 0
    If Sec > 59 Then
        Min = Min + 1
        Sec = 0
        If Min > 59 Then
            Hour = Hour + 1
            Min = 0
        End If
    End If
End If
If Hour > 23 Then Hour = 0


Правильно, но как-то непоследовательно. Почему не так?

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

If milisec > 999 Then
    Sec = Sec + 1
    milisec = 0
    If Sec > 59 Then
        Min = Min + 1
        Sec = 0
        If Min > 59 Then
            Hour = Hour + 1
            Min = 0
            If Hour > 23 Then Hour = 0
        End If
    End If
End If


[Ruslan Demidow]

Мда, не подумал: в твоём коде проверка количества часов происходит только при превышении количества минут, а у меня всегда.
Твой код более логичен.

[DVV]

А таймер тогда с каким интервалом?

[Ruslan Demidow]

Я бы поставил меньше секунды (т.е. меньше 1000).
Объясню почему - если у меня программа ресурсоёмкая и время отображается постоянно, тем более меняющееся (например вывод секунд), тогда при порядочной загрузке, могут наблюдаться визуальные подтормаживания отображения времени, имхо. Не знаю правда влияет ли загрузка программой процессора на таймер.
Может Тёмыч подскажет?

[DVV]

Но милисек. намного меньше секунды!

[FaKk2]

Ровно на одну тысячу.

[DVV]

Да!
Так сколько?(интервал)

[tyomitch]

Сколько ни поставишь, гарантии, что таймер будет срабатывать именно через такое время (и что вообще через равные промежутки времени), у тебя нет.

[iolaus]

ну а если связать все с изменение системного времени?? там то секунды точно тикуют...

[alibek]

А нельзя ли использовать Format$(Time,"hh:mm:ss") & Mid$(Format$((Timer-Fix(Timer)),"0.000"),2)?

[tyomitch]

А тогда зачем весь этот геморрой? Почему нельзя просто читать системное время?

[edit]alibek, я именно про это... Разве что значение Timer может и измениться между двумя вызовами - так могут и отрицательные миллисекунды получится...[/edit]

[alibek]

Дык Ни Windows, ни VB никогда и не позиционировались, как системы реального времени
В таком случае надо переменные заводить, где будут запоминаться Time и Timer. Мне просто не хотелось в две строки лепить.

[tyomitch]

Мне просто не хотелось в две строки лепить.

А, знакомо...
Посмотри http://groups.google.com/groups?selm=16 ... put=gplain - я писал в дну строку получение аптайма системы в днях, часах, минутах и секундах