Запуск скрипта каждую 15ю минуту

[kvitnitskiy]

Доброго времени суток уважаемые.
подскажите, как завернуть так, что бы скрипт запускался каждые 15 минут каждого часа, то есть в 00:00; 00:15, .... 00:45..
скажем так - 4 раза в час, sleep(15*60*1000) не вариант.

Спасибо заранее.

 

[InnI]

If Not Mod(@MIN, 15) Then MsgBox(0, "", "Time")

 

[Alofa]

... скрипт запускался каждые 15 минут каждого часа...

Что значит "запускался" - это стоит понимать буквально?

 

[kvitnitskiy]

Alofa [?]

о значит "запускался" - это стоит понимать буквально?

Прошу прощения за не правилую формулировку, что бы скрипт ждал и каждую 15ю минуту часа выполнял действие..

 

[gunter123]

AdlibRegister("CheckTime",  60000)

Func CheckTime()

   If @Min = 15 Then

	  MsgBox(4096, "", @Min)
	  ; Сюда пишем то что надо выполнять каждую 15 минуту

   EndIf
   
EndFunc

 

[Alofa]

OffTopic:
gunter123

Спойлер

Ваш скрипт запустится и тут же потухнет.
Срабатывать он будет только когда минуты будут = 15, т.е. 1 раз в час, а то и 0, с учетом:

AdlibRegister("CheckTime",  60000)

... и времени на выполнение задач пользователя.

 

[gunter123]

Да, неправильно прочитал условие.

OffTopic:
gunter123

Спойлер

Ваш скрипт запустится и тут же потухнет.
Срабатывать он будет только когда минуты будут = 15, т.е. 1 раз в час, а то и 0, с учетом:

AdlibRegister("CheckTime",  60000)

... и времени на выполнение задач пользователя.

Вот такой вариант должен работать:

AdlibRegister("CheckTime",  60000)

Func CheckTime()
   If MOD(@Min, 15) Then
      MsgBox(4096, "", @Min)
      ; Сюда пишем то что надо выполнять каждые 15 минут
   EndIf
EndFunc

While 1
        ; Тело скрипта
Wend

 

[Alofa]

OffTopic:

... Вот такой вариант должен работать:

Должен, но только с точностью на оборот: т.е. все время кроме минут кратных 15.

 

[ra4o]

А чем вас вариант , предложенный InnI не устраивает ?

 

[kvitnitskiy]

OffTopic:

... Вот такой вариант должен работать:

Должен, но только с точностью на оборот: т.е. все время кроме минут кратных 15.

Всем спасибо, работает правильно если поставить If not MOD(@Min, 15) Then

 

[ra4o]

OffTopic:

работает правильно если поставить If not MOD(@Min, 15) Then

, об этом Вам InnI написал в первом-же ответе :whistle:

 

[kvitnitskiy]

ra4o [?]

об этом Вам InnI написал в первом-же ответе

именно на этом я и акцентировал внимание.

 

[kvitnitskiy]

Прошу прощения за off top, а как можно сделать что бы запускался каждую первую минуту часа ? 00:01, 01:01.... 23:01?

 

[Alofa]

OffTopic:

Спойлер

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

Local $bBrake = True
While 1
	If @MIN = 1 Then
		If $bBrake Then _MyFunc()
		$bBrake = False
	Else
		$bBrake = True
	EndIf
	Sleep(20000)
WEnd

Func _MyFunc()
	MsgBox(0, 'Time = ' & @MIN, '_MyFunc() будет выполнена 1 раз в кажрую 1 минуту часа')
EndFunc   ;==>_MyFunc

 

[kvitnitskiy]

Alofa, спасибо.