Есть ли лучший способ установить будильник вместо сравнения времени с помощью таймеров? - PullRequest
0 голосов
/ 16 июня 2019

В заголовке почти все сказано. Я использовал компоненты таймера, настроенные на полсекунды, и сравнивал таблицы подробностей тревоги, и мне было интересно, есть ли что-то лучшее, чего я просто не видел.

'' '

    For Each r As DataRow In AlarmsFromDataBase.Rows
        Dim CurrentTime As DateTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day, DateTime.Now.Hour, DateTime.Now.Minute, DateTime.Now.Second)

        If (DateTime.Compare(r("DateTimeAlarms"), CurrentTime) = 0) And r("AlarmHandled") <> True Then
            r("AlarmHandled") = True
            MsgBox("match found")
        End If
    Next

'' '

Это работает, конечно, но есть ли более эффективный или элегантный способ сделать это?

...