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

[eldar22]

Здравствуйте!
Есть простой код

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

Private Sub Command1_Click()
s = 1000
    Timer1.Interval = 60000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Static State As Boolean
Label1.Visible = False

s = s - 1000
    If s = 0 Then Timer1.Enabled = True
End Sub


Вопрс вот в чём как сделать интервал 30 минут
А то у меня только получилось 1 минута так как 60 000 сек = 1 минуте то я пробывал вот так 60 000+60 000=120 000
Поставил интервал 120 000 а он мне ошибку выдаёт

[Хакер]

так как 60 000 сек = 1 минуте

Нда...

Сделать минутный интервал и считать тики.

[eldar22]

Так у меня и стоит минутный интервал!
А вот как 30 минутный интервал сделать?

[dcdlab]

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

tik = tik + 1
if (tik mod 30) = 0 then
'то что ты хочешь
end if

или же:

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

tik = tik + 1
if tik = 30 then
tik = 0
'то что ты хочешь
end if


[Saturn.65]

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

Private Sub Form_Paint()
Print Time
'выберите, какой вариант вам больше по душе
Delay (5) 'или Sleeping (5)
'и в том, и в другом случае указывается время в секундах
MsgBox "Все"
Print Time
End Sub
Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function


[Хакер]

Saturn.65, зачем советовать фигню?

[Saturn.65]

Saturn.65, зачем советовать фигню?

Так вроде работает и таймера не надо.

[Хакер]

Вот именно, что все эти 30 минут программа усиленно работает. Хотя этого быть не должно.

[Proxy]

Ага.
Можно ещё интервалом для таймера назначать максимально возможный из расчёта оставшегося времени и пределом interval.
Учти, что таймер не оч. ровно выдерживает интервалы, при кадом таком "тике" желательно считать оставшееся время.

[Mikle]

Так, если без таймера:

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

WaitTime = Timer + 60 * 30  'секунд
Do While Timer < WaitTime
  Sleep 1000
Loop

[eldar22]

А код

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

tik = tik + 1
if tik = 30 then
tik = 0
'то что ты хочешь
end if

Куда вставлять в таймер или в кнопку?

[Dimen]

Само собой в таймер! Вы чего думть то отказываетесь сами.

[eldar22]

Я в таймер в первую очередь вставил но почему то не работает

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

Private Sub Timer1_Timer()
Static State As Boolean
tik = tik + 1
If tik = 30 Then
tik = 0
 
Label1.Visible = False

s = s - 1000
    If s = 0 Then Timer1.Enabled = True
End If
End Sub

[Dimen]

Я так и знал что ты это спросишь! просто ждал! Ты из тех кто бездумно вставляет чужой код! Уж основы то знать нужно наверно? не стыдно?
Видишь эту строчку:

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

tik = tik + 1


У тебя значение переменной ни где не хранится то есть ты постоянно к 0 еденицу добавляешь.
ТЕбе поможет:

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

dim

[Хакер]

А надо думать, что, куда и зачем ты вставляешь, а не тупо вставлять.

[eldar22]

А тип переменно не подскажите?
Просто есть String ,Byte
А вот tik переменная какого типа?

[Dimen]

Можешь вообще без типа. А по сути Byte.
Ну сам бы поэксперементировал.

[Хакер]

А по сути Byte.

Обоснование?

[Dimen]

Хакер, а что Byte не будет работать в данном случае? Будет! Без типа так же будет работать. Я обычно в таких ситуациях делаю без типа, но его вопрос стоял что именно из двух нужно использовать. Может ему так больше нравится!?
Byte - числовая переменная с интервалом от 0-255. В данном случае у него числа.
Ему тут и другие числовые типы подойдут.

[Viper]

Хакер, а что Byte не будет работать в данном случае? Будет! Без типа так же будет работать. Я обычно в таких ситуациях делаю без типа, но его вопрос стоял что именно из двух нужно использовать. Может ему так больше нравится!?
Byte - числовая переменная с интервалом от 0-255. В данном случае у него числа.
Ему тут и другие числовые типы подойдут.

Другие? Single, Double тоже пойдут? Оригинально! А то еще Date тоже вполне себе числовой тип.

[eldar22]

А чё то не работает

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

Private Sub Timer1_Timer()
Dim tik
Static State As Boolean
tik = tik + 1
If tik = 30 Then
tik = 0
 
Label1.Visible = False

s = s - 1000
    If s = 0 Then Timer1.Enabled = True
End If
End Sub

[Viper]

А подумать? У тебя как переопределялось значение переменной tik на каждом тике таймера, так и обнуляется. Вынеси ее на уровень модуля.

[SLIM]

Без типа так же будет работать. Я обычно в таких ситуациях делаю без типа

Не бывает переменных без типа.

[Viper]

Без типа так же будет работать. Я обычно в таких ситуациях делаю без типа

Не бывает переменных без типа.

Variant вполне себе переменная без типа. Вернее универсального типа.

[Dimen]

То что я сказал на работоспособность кода не повлияет ни так ли? Если не влияет зачем обсуждать да возможно некорректно, дак поправте меня.
Я ведь не предлогал ему нерабочий вариант.

[Viper]

То что я сказал на работоспособность кода не повлияет ни так ли? Если не влияет зачем обсуждать да возможно некорректно, дак поправте меня.

При использовании в качестве счетчика переменной нецелого типа вполне могут вылезти глюки.

[SLIM]

Variant вполне себе переменная без типа. Вернее универсального типа.

Variant - это как раз тип...тип переменной. Тип переменной характеризует где, когда и как будут располагаться данные, сколько они будут занимать места, и какие атрибуты они имеют. Переменная Dim Foo as Variant - это переменная типа Variant. А переменных без типа не существует. Я вот об этом говорил.

[Хакер]

То что я сказал на работоспособность кода не повлияет ни так ли? Если не влияет зачем обсуждать да

Влияет. Код становится медленнее.


SLIM
Viper имел в виду переменные, объявленные без явного указания типа.

[SLIM]

SLIM
Viper имел в виду переменные, объявленные без явного указания типа.

То что Viper значет что переменных без типа не существует я более чем уверен. Просто Dimen может пойти по ложному пути и долго считать что есть переменные без типа.

[JohnK]

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

Public Declare Function GetTickCount Lib "kernel32" () As Long
dim Mytimer as Double
....

Private Sub Cmd_Start_Click
Mytimer=GetTickCount+ (30*60*1000)
Timer1.Interval=1000
Timer1.enable=True
end sub

Private Sub Timer1_Timer()
If GetTickCount >= Mytimer Then
  Call Do_what_you_wanna_do
End If
End Sub


Я думаю точности хватит вполне.