Thread.Sleep () 用定时器作时间表

Question

我有 select 个选项案例，可以 运行 根据设定的时间表。因此，我编写了下面提供的代码。

Private WithEvents tmr_Imp_Pms_File As New Timers.Timer(950) 'for PMS File

Private Sub tmr_Imp_Pms_File_Elasped(ByVal sender As System.Object, ByVal e As Timers.ElapsedEventArgs) Handles tmr_Imp_Pms_File.Elapsed

Thread.Sleep(50)

     Select Case .Enable_Schedule
                Case 1 ' Schedule - Daily Option
                    If .Enable_Daily_Option_1 = 1 Then
                        If _
                            TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                            TimeSerial(.Daily_Option_1_Time.Hour, .Daily_Option_1_Time.Minute,
                                       .Daily_Option_1_Time.Second) Then

                            logger.log.Info("Checking Running Daily Schedule Option 1, " & Now.ToString)

                        End If
                    End If


                    If .Enable_Daily_Option_2 = 1 Then
                        If _
                            TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                            TimeSerial(.Daily_Option_2_Time.Hour, .Daily_Option_2_Time.Minute,
                                       .Daily_Option_2_Time.Second) Then

                            logger.log.Info("Checking Running Daily Schedule Option 2, " & Now.ToString)

                        End If
                    End If


                    If .Enable_Daily_Option_3 = 1 Then
                        If _
                            TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                            TimeSerial(.Daily_Option_3_Time.Hour, .Daily_Option_3_Time.Minute,
                                       .Daily_Option_3_Time.Second) Then

                            logger.log.Info("Checking Running Daily Schedule Option 3, " & Now.ToString)

                        End If
                    End If
     End Select

        End Sub

这里我有 3 个时间表选项，我为我的程序启用了所有 3 个时间表 运行。但是有一个随机且很少发生的问题，程序将跳过 运行ning 的第二个选项。我相信这与下面显示的这部分有关。

 " TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                        TimeSerial(.Daily_Option_1_Time.Hour, .Daily_Option_1_Time.Minute,
                                   .Daily_Option_1_Time.Second) Then"

我如何增强这段代码来解决这个问题？ 还有其他方法可以编写代码吗？ "I know there are..." 但谁能告诉我一些处理此问题的更好方法的示例。

感谢您的帮助，在此先致谢。

Answer 1

我找到了答案，下面是解决问题的方法。

       Private WithEvents tmr_Imp_Pms_File As New Timers.Timer(950) 'for PMS File

       Private Sub tmr_Imp_Pms_File_Elasped(ByVal sender As System.Object, ByVal e As Timers.ElapsedEventArgs) Handles tmr_Imp_Pms_File.Elapsed

            Select Case .Enable_Schedule
                       Case 1 ' Schedule - Daily Option
                           If .Enable_Daily_Option_1 = 1 Then
                               If _
                                   TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                                   TimeSerial(.Daily_Option_1_Time.Hour, .Daily_Option_1_Time.Minute,
                                              .Daily_Option_1_Time.Second) Then


                               logger.log.Info("Daily Schedule Option 2 Hit, " & Now.ToString("HH:mm:ss.fff"))

                               tmr_Imp_Pms_File.Stop() : Thread.Sleep(50)

                               End If
                           End If


                           If .Enable_Daily_Option_2 = 1 Then
                               If _
                                   TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                                   TimeSerial(.Daily_Option_2_Time.Hour, .Daily_Option_2_Time.Minute,
                                              .Daily_Option_2_Time.Second) Then


                               logger.log.Info("Daily Schedule Option 2 Hit, " & Now.ToString("HH:mm:ss.fff"))

                               tmr_Imp_Pms_File.Stop() : Thread.Sleep(50)

                               End If
                           End If


                           If .Enable_Daily_Option_3 = 1 Then
                               If _
                                   TimeSerial(Now.Hour, Now.Minute, Now.Second) =
                                   TimeSerial(.Daily_Option_3_Time.Hour, .Daily_Option_3_Time.Minute,
                                              .Daily_Option_3_Time.Second) Then


                               logger.log.Info("Daily Schedule Option 2 Hit, " & Now.ToString("HH:mm:ss.fff"))

                               tmr_Imp_Pms_File.Stop() : Thread.Sleep(50)

                               End If
                           End If
            End Select

               End Sub
   ```