Что нового

Вызов определенных действий через каждый час

mrdig

Новичок
Сообщения
7
Репутация
1
почему даже простой beep не срабатывает в заданное время ? прошу помощи в правке кода, вероятно накосячил

Код:
#include <Date.au3>
Dim $aArray[4]
$aArray[0]="17:06"
$aArray[1]="18:06"
$aArray[2]="19:06"
$aArray[3]="20:06"

 func timecheck_()
	if _NowTime(4)= $aArray Then
	beep(5000,1000)
	endif
 endfunc
				 
		 while 1 
			 timecheck_()
			 sleep(1000)
			 wend
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
mrdig [?]
вероятно накосячил
да, накосячил. строка не может равняться массиву. проверяй каждый элемент массива в цикле.
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Попробуй так:

Формат HH:MM:SS:
Код:
#include <Date.au3>
$Time = '0:00:00|1:00:00|2:00:00|3:00:00|4:00:00|5:00:00|6:00:00|7:00:00|8:00:00|9:00:00|10:00:00|11:00:00|12:00:00|'
$Time &= '13:00:00|14:00:00|15:00:00|16:00:00|17:00:00|18:00:00|19:00:00|20:00:00|21:00:00|22:00:00|23:00:00'
$Split = StringSplit($Time, '|')

While 1
	For $i = 1 to $Split[0]
		If _NowTime() = $Split[$i] Then MsgBox(0, 'Time', 'Hello')
	Next
WEnd


Формат HH:MM:
Код:
#include <Date.au3>
$Time = '0:00|1:00|2:00|3:00|4:00|5:00|6:00|7:00|8:00|9:00|10:00|11:00|12:00|13:00|14:00|15:00|16:00|17:00|18:00|19:00|20:00|21:00|22:00|23:00'
$Split = StringSplit($Time, '|')

While 1
	For $i = 1 to $Split[0]
		If _NowTime(4) = $Split[$i] Then MsgBox(0, 'Time', 'Hello')
	Next
WEnd
 
Автор
M

mrdig

Новичок
Сообщения
7
Репутация
1
Zaramot cпасибо, как раз то что нада 8)
 
Верх