Как сделать 30 минут

[eldar22]

Чё то не работает

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

Public Declare Function GetTickCount Lib "kernel32" () As Long
Dim Mytimer As Double

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

Private Sub Command1_Click()
Mytimer = GetTickCount + (30 * 60 * 1000)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetTickCount >= Mytimer Then
Label1.Visible = False
End If
End Sub

[JohnK]

Ты 30 минут ждал?

Для проверки поставь 1 минуту:

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

Mytimer = GetTickCount + 60000)

У меня почему-то работает...

[Хакер]

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

[eldar22]

Я имею ввиду что вообще не запускаеться

Ссылаеться на это

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

Mytimer = GetTickCount + (30 * 60 * 1000)

[Viper]

Я имею ввиду что вообще не запускаеться

Ссылаеться на это

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

Mytimer = GetTickCount + (30 * 60 * 1000)

Для разнообразия подумай сам хотя бы один разЮ тем более, что IDE тебе прямым текстом говорит что не так.

[JohnK]

Что значит ссылается

на это

Бери словарь и переводи, раз учебники английского прокурил.
А если пишет overflow, то умножь за 2 приема, или используй константу.

[eldar22]

А проверка на минуту

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

Mytimer = GetTickCount + 60000

После запуска нажимаю кнопку и через 5 секунд происходит нужное мне действие label1.visible=false

[JohnK]

А ты часом нолик не пропустил ? 60000. И таймер выключай после срабатывания условия, чтобы зря не молоти\проверял.

[eldar22]

Нет нолик не пропустил
И даже с ноликом где то 5 секунд и срабатывает действие label1.visible=false

[JohnK]

Только что проверил, работает с точностью до секунды. Просто нет слов!

[eldar22]

Посмотри

[HiddenMan]

код рабочий. это точно.

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

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private MT As Long

Private Sub Command1_Click()
MT = GetTickCount + 10000
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If GetTickCount >= MT Then
    Timer1.Enabled = False
    Label1.Visible = False
End If
End Sub

[awl100Alex]

dcdlab в самом начале предложил самый простой вариант, процессор не загружается, никаких лишних модулей и tik выносить куда-либо необязательно. Зачем же тогда вам Static???

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

Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
Label1.Caption = Time 'Время старта
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time 'Текущий счет времени
Static tik As Byte
tik = tik + 1
If (tik Mod 30) = 0 Then
  MsgBox "30 минут прошло"
  Timer1.Enabled = False: tik = 0 'Сброс...
End If
End Sub

[Денис]

If (tik Mod 30) = 0 Then

Я конечно понимаю, что с нулём сравнивать быстрее, но из чтения топика видно, что автор — оголтелый новичок. Включите свою преподавательскую жилку!

If tik = 30 Then

[eldar22]

Всем спасибо за участие и ответы (Особенно Хакеру)
С уважением оголтелый новичок

[alibek]

If (tik Mod 30) = 0 Then
If tik = 30 Then

Это не равнозначная замена. Первый фрагмент делает не то, что делает второй фрагмент.

[Денис]

C учетом Timer1.Enabled = False то же самое!!
Давай не будем оффтоп разводить?

[Viper]

C учетом Timer1.Enabled = False то же самое!!
Давай не будем оффтоп разводить?

Совершенно не тоже самое! Второй фрагмент сработает только один раз, а если понадобиться повторно запустить таймер, то он будет работать до бесконечности.

[Денис]

>повторно запустить таймер
>работать до бесконечности
>до бесконечности
Тогда приведенный вариант с Mod — вообще ошибочен. Условием задачи работа до бесконечности не предусматривается.

[Viper]

>повторно запустить таймер
>работать до бесконечности
>до бесконечности
Тогда приведенный вариант с Mod — вообще ошибочен. Условием задачи работа до бесконечности не предусматривается.

Вариант с Mod будет срабатывать каждый раз по истечении 30 минут. Причем можно как остановить таймер по истечении 30 минут так и продолжить его работу дальше. Вариант с простым сравнением за время выполнения программы сработает один раз. И все, статическая переменая внутри обработчика события второй раз равной 30 не будет.

[dcdlab]

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


dim tik as integer
dim interv as byte
dim intervsec as integer

Private sub Form_Load()
interv = 30 ' в минутах интервал повторения
intervsec =  interv * 60
timer1.interval = 1000
tik = 0
End Sub

Private Sub Timer1_Timer()
tik = tik + 1
  if tik = intervsec then
    msgbox "hello!!" ' То, что тебе нужно
    tik = 0
  end if
end sub



Или:

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


dim tik as byte
dim interv as byte
dim intervsec as integer

Private sub Form_Load()
interv = 30 ' в минутах интервал повторения
intervsec =  interv * 60
timer1.interval = 1000
tik = 0
End Sub

Private Sub Timer1_Timer()
tik = tik + 1
if tik = 32767 then tik = -1 ' чтобы не выйти за пределы типа
  if (tik mod intervsec) = 0 then
    msgbox "hello!!" ' То, что тебе нужно
  end if

end sub



Варианты без использования таймера типа:

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

do
tm = timer
  do while (timer - tm < intsec)
    doevents
  loop
  'То что тебе нужно.
loop


не оптимальны, т.к. сильно загружают процессор.

[JohnK]

dcdlab Это все неточные варианты. Все зависит от загрузки системы. Проверено. Вариант с GetTickCount + Timer более точный.