1 час>>>>......

[sad]

Недвано прочитал статью о том что копьютер вреден для глаз... и все такое, и чтобы сильно не портить зрение надо делать перерывы: 1 работы; 15 мин отдыха... Так как я человек забывчивый, я решил сделать прогу которая в интервале одного часа выкидывает сообщение "Иди отдохни"
И столкнулся с проблемой: В таймере максимальный интервал который я смог установить это: 19999, а ето помойму сек. 15 или >, иначе выкидывает ошибку "Неправильное значение свойства" или чтото в этом роде
Как решить проблему?

[alibek]

Ох... Грехи наши тяжкия...

Ставишь на таймер интервал 1000 (1 секунда). Кроме того, объявляешь Private SecondCount As Long. И в таймере выполняешь SecondCount = SecondCount + 1. Когда SecondCount станет равным 3600 (один час), то делаешь MsgBox "Час прошел" и обнуляешь SecondCount (SecondCount = 0).

[Ramzes]

Ох... Грехи наши тяжкия...

Ставишь на таймер интервал 1000 (1 секунда). Кроме того, объявляешь Private SecondCount As Long. И в таймере выполняешь SecondCount = SecondCount + 1. Когда SecondCount станет равным 3600 (один час), то делаешь MsgBox "Час прошел" и обнуляешь SecondCount (SecondCount = 0).

по твоим словам получаеться что он будет ходить на отдых каждые 45 мин., а не час.

[Ennor]

Интересно, а пока MsgBox() висит, таймеры работают? Насколько я помню, нет. Так что отсчет следующего часа у тебя начнется не сразу после вывода сообщения, а только лишь после его закрытия

[ANDLL]

Работают. Только сообщения WM_TIMER не накапливаются...
2Ramzes: А почему?
Кстати, на таких больших промежутках ошибка будет +-5 мин... WM_TIMER достаточно грубвый способ...
Лучше в этом же таймере:

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

Option Explicit
Dim mOldDate As Date

Private Sub Form_Load()
mOldDate = Now
End Sub

Private Sub Timer1_Timer()
If Now > mOldDate + TimeSerial(1, 0, 0) Then
    mOldDate = Now
    MsgBox "Иди отдохни!"
End If
End Sub


[Ramzes]

Работают. Только сообщения WM_TIMER не накапливаются...
2Ramzes: А почему?
Кстати, на таких больших промежутках ошибка будет +-5 мин...

А потому, что вот прошел час, ты ушел на 15 перерыва, пришел, а время то тикает, и прошло 45 минут, опять выбило сообщения, ты опять ушел, а время то тикает

[ANDLL]

Тогда в моем коде надо делать так

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

Option Explicit
Dim mOldDate As Date

Private Sub Form_Load()
mOldDate = Now
End Sub

Private Sub Timer1_Timer()
If Now > mOldDate + TimeSerial(1, 0, 0) Then
    Timer1.Enabled = False
    MsgBox "Èäè îòäîõíè!"
    mOldDate = Now
    Timer1.Enabled = True
End If
End Sub


[xolod]

А на API таймер с нужным интервалом сделать не проще

[RayShade]

Если автор топика не научится давать своим темам нормальные названия, то я тогда просто его забаню и ему станет гораздо легче меньше работать на компе.

[|kerish|]

MsgBox выводить лучше через API, тогда прога будет независима от него.

[Max!]

А не преще ли зделать какойнить лабел с таймером 100 и отнимать (делать минус один) и проверку есле лабел равно ноль то выводиим сообщение ! После збасываем и ставим опять на нужное количество секунд и продолжаем отнимать (тоесть всё сначало ) Если хочес интерфейса то делай два лабела где в одном будет час в нашем случае 1 (60 - в самом лабели) а вовтром секунды , всё точно тагже , в первом отнимаешь сикунды , когда будет наль тогда делаешь минус во втаром ( -1 ) и в первом опять возвращаешь секунды на исходную позицию и так будет происходиь до тех пор пока во втаром не станет ноль (если стал то выводиш сообщение "Вали на отдых" - типо таво !) и ставиш всё на исходное состояние если это требуется ! Фу вроде всё !

[ANDLL]

Гм. Про это уже говорили. Правда, куда более дельные вещи.

MsgBox выводить лучше через API, тогда прога будет независима от него.

А вот тут я не согласен: наоборот, что бы избежать описанного Ramzes'ом эффекта надо использовать VB.MsgBox

[tyomitch]

А вот тут я не согласен: наоборот, что бы избежать описанного Ramzes'ом эффекта надо использовать VB.MsgBox

Вообще-то это VBA.MsgBox (или более развёрнуто - VBA.Interaction.MsgBox).
(просто поправляю неточность)

[|kerish|]

ANDLL, ты не прав.
Именно API-шный MessageBox.