Автор Тема: Будильник выдает сообщения каждый час, ориентируясь на текущее время  (Прочитано 750 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Эта тема содержит сообщение, помеченное как лучший ответ. Кликните здесь для перехода к этому сообщению.

Оффлайн RipVanWinkel [?]

  • Новичок
  • *
  • Сообщений: 48
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Версия AutoIt: 3.3.14.2

Описание:
Здравствуйте, дорогие друзья.
Помогите решить задачу по будильнику.

В файл время.txt записан текст "20:00:00"
Как скриптом сделать следующую операцию:  к времени "20:00:00" - прибавить 8 часов (получиться 4:00:00), а затем каждый час сверяться с текущим реальным временем (которое на часах) и выдавать Msgbox "осталось столько-то часов до 4:00:00" ?

Примечания:


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Русское сообщество AutoIt


Онлайн IMStrelcov [?]

  • Новичок
  • *
  • Сообщений: 41
  • Репутация: 3
  • Пол: Мужской
  • CTPEJIbLLOB
    • Награды
  • Версия AutoIt: 3.3.14.0
Можешь посмотреть мой пример часов и переделать
http://autoit-script.ru/index.php?action=downloads;sa=view;down=436

Оффлайн RipVanWinkel [?]

  • Новичок
  • *
  • Сообщений: 48

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
IMStrelcov, слушайте - тут слишком много всего.
У меня только одна арифметическая операция по сложению времени и цикл на периодическое появление сообщения.
И все.

А у вас там на несколько страниц чего-то написано.



Добавлено: Апрель 21, 2019, 14:25:12
IMStrelcov
Я посмотрел файл - он совершенно никак не связан с моим вопросом.
У вас - обычные часы, которые висят на мониторе поверх всех окон.

А я спрашивал - как к времени "20:00:00" - прибавить 8 часов (получится 4:00:00), а затем каждый час сверяться с текущим реальным временем (которое на часах) и выдавать Msgbox "осталось столько-то часов до 4:00:00" ?
« Последнее редактирование: Апрель 21, 2019, 14:25:12 от RipVanWinkel, Причина: Объединение сообщений »

Русское сообщество AutoIt


Помечен как лучший ответ пользователем RipVanWinkel Отправлен Апрель 21, 2019, 20:10:29

Оффлайн Tempo [?]

  • Скриптер
  • ****
  • Сообщений: 426
  • Репутация: 106
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Код: AutoIt [Выделить]
#include <Date.au3>
#include <MsgBoxConstants.au3>

Global Const $FILE = @ScriptDir & "\Время.txt"
Global Const $ADD_HOUR = 8
Global $__g_sAlarmDate, $g_bAlarmExit = True

_Alarm_Set(_DateAdd("h", $ADD_HOUR, _NowCalcDate() & " " & FileReadLine($FILE)))
If @error Then Exit MsgBox($MB_TOPMOST + $MB_ICONERROR, Default, "Неверное время")

While Sleep(10)
WEnd

Func _Alarm_Set($sAlarmDate)
    Local $iDiffTicks = _DateDiff("s", _NowCalc(), $sAlarmDate) * 1000
    If $iDiffTicks < 0 Then Return SetError(1, 0, 0)

    $__g_sAlarmDate = $sAlarmDate
    AdlibRegister("_Alarm_Go", $iDiffTicks)
    AdlibRegister("_Alarm_Check", 1000 * 60 * 60)
EndFunc   ;==>_Alarm_Set

Func _Alarm_Check()
    Local $sAlarmDateFormat = _DateTimeFormat($__g_sAlarmDate, 5)
    Local $iDiffTicks = _DateDiff("s", _NowCalc(), $__g_sAlarmDate) * 1000
    If $iDiffTicks > -1 Then
        Local $iH, $iM, $iS
        _TicksToTime($iDiffTicks, $iH, $iM, $iS)
        MsgBox($MB_TOPMOST + $MB_ICONINFORMATION, Default, StringFormat("До: %s, осталось: %i ч. %i м. %i с.", $sAlarmDateFormat, $iH, $iM, $iS))
    Else
        AdlibRegister("_Alarm_Check")
    EndIf
EndFunc   ;==>_Alarm_Check

Func _Alarm_Go()
    MsgBox($MB_TOPMOST + $MB_ICONINFORMATION, Default, "Будильник")
    If $g_bAlarmExit Then Exit
EndFunc   ;==>_Alarm_Go
 

« Последнее редактирование: Апрель 21, 2019, 15:52:06 от Tempo »

Оффлайн RipVanWinkel [?]

  • Новичок
  • *
  • Сообщений: 48

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Tempo
Большое спасибо вам, за ответ.

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
16 Ответов
9554 Просмотров
Последний ответ Май 02, 2010, 12:13:37
от madmasles
3 Ответов
2870 Просмотров
Последний ответ Сентябрь 13, 2011, 21:26:55
от mrdig
10 Ответов
4605 Просмотров
Последний ответ Октябрь 10, 2011, 21:19:19
от StarEdik
4 Ответов
3887 Просмотров
Последний ответ Октябрь 27, 2011, 21:08:58
от Zaramot
5 Ответов
5831 Просмотров
Последний ответ Июнь 16, 2013, 13:27:10
от akmal18
0 Ответов
2843 Просмотров
Последний ответ Июнь 16, 2013, 13:03:20
от madmasles
6 Ответов
3787 Просмотров
Последний ответ Июнь 24, 2013, 12:50:36
от mitiya
2 Ответов
1455 Просмотров
Последний ответ Апрель 28, 2015, 17:42:12
от arthemy
11 Ответов
2419 Просмотров
Последний ответ Июнь 27, 2015, 00:57:33
от agikon
6 Ответов
2625 Просмотров
Последний ответ Ноябрь 15, 2015, 17:46:47
от dexter987