2017-08-22 21 views
-1

毎日特定の時刻に有効にする必要があるカウンタをセットアップしました。たとえば、毎日(午後3時)に言うことができます。私が思いついたのは、コードに従ったものです。毎日特定の時刻にカウンタを有効にする

:それはパラメータが有効でないと言った時間に達したとき、それは、これを試してみてください、あなたのプログラムにタイマーを追加し、 CheckTimerそれを呼び出すと、このようにコードを更新
Private t As Integer = 0 

Private Sub Home_monitoring_tab_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     rs.FindAllControls(Me) 
     Execute() 
End Sub 

Private Sub Execute() 
     If DateTime.Now.ToString("HH:mm") = "15:00" Then 
      shift1_timer.Enabled = True 
     End If 
End Sub 

Private Sub shift1_timer_Tick(sender As Object, e As EventArgs) Handles shift1_timer.Tick 
     t += 1 
     Label14.Text = CStr(t) 
End Sub 
+0

助け願っています。 'DateTime'プロパティを調べると、' Hour'と 'Minutes'プロパティがあることがわかります。しかし、そのコードはどんなエラーも投げてはいけません。しかし、あなたが望むことはしません。タイマーは、あなたがちょうど15:00にアプリを起動すると有効になります。 [質問]を読んで[ツアー]を取って、実際のコードを投稿してください。 – Plutonix

+0

'Execute()'メソッドは一度呼び出されています。プログラムを開いたときだけです。時間が正確に '15:00'でない場合にプログラムを実行すると、タイマーが起動しないので、一貫して実行されている別のタイマーのステートメントをチェックします。 –

答えて

0

、私を助けてください、私にエラーを与えます

Private t As Integer = 0 Private Sub Home_monitoring_tab_Load(sender As Object, e As EventArgs) Handles MyBase.Load rs.FindAllControls(Me) CheckTimer.Interval = 1 CheckTimer.Start End Sub Private Sub CheckTimer_Tick(sender As Object, e As EventArgs) Handles CheckTimer.Tick If DateTime.Now.ToString("HH:mm") = "15:00" Then shift1_timer.Enabled = True End If End Sub Private Sub shift1_timer_Tick(sender As Object, e As EventArgs) Handles shift1_timer.Tick t += 1 Label14.Text = CStr(t) End Sub 
は、それはあなたが時間を評価するために、文字列に変換する必要がいけない:)

関連する問題