次の方法で共有

方法: Windows フォーム タイマー コンポーネントを使用して、設定された間隔でプロシージャを実行する

  • [アーティクル]

ループが完了するか、設定された時間間隔が経過したときに実行されるまで、特定の時間間隔で実行されるプロシージャを作成したい場合があります。 Timer コンポーネントは、このような手順を可能にします。

このコンポーネントは、Windows フォーム環境向けに設計されています。 サーバー環境に適したタイマーが必要な場合は、「Server-Based タイマーの概要 参照してください。

手記

Timer コンポーネントを使用する場合は、いくつかの制限があります。 詳細については、「Windows フォーム タイマー コンポーネントの Interval プロパティの制限 」を参照してください。

Timer コンポーネントを使用して設定された間隔でプロシージャを実行するには

  1. フォームに Timer を追加します。 これをプログラムで行う方法の図については、次の例のセクションを参照してください。 Visual Studio には、フォームへのコンポーネントの追加もサポートされています。 「方法: ユーザー インターフェイスのないコントロールを Windows フォームに追加する」も参照してください。

  2. タイマーの Interval プロパティ (ミリ秒単位) を設定します。 このプロパティは、プロシージャが再度実行されるまでの時間を決定します。

    手記

    タイマー イベントが発生する頻度が高いほど、イベントへの応答に使用されるプロセッサ時間が長くなります。 これにより、全体的なパフォーマンスが低下する可能性があります。 必要以上に短い間隔を設定しないでください。

  3. Tick イベント ハンドラーに適切なコードを記述します。 このイベントで記述するコードは、Interval プロパティで指定された間隔で実行されます。

  4. タイマーを開始するには、Enabled プロパティを true に設定します。 Tick イベントが発生し始め、設定された間隔でプロシージャが実行されます。

  5. 適切なタイミングで、Enabled プロパティを false に設定して、プロシージャの再実行を停止します。 間隔を 0 に設定しても、タイマーは停止しません。

最初のコード例

この最初のコード例では、時刻を 1 秒単位で追跡します。 フォーム上の Button、Label、および Timer コンポーネントを使用します。 Interval プロパティは 1000 (1 秒に等しい) に設定されます。 Tick イベントでは、ラベルのキャプションは現在の時刻に設定されます。 ボタンをクリックすると、Enabled プロパティが falseに設定され、タイマーがラベルのキャプションを更新できなくなります。 次のコード例では、Button1という名前の Button コントロール、Timer1という名前の Timer コントロール、および Label1という名前の Label コントロールを持つフォームが必要です。

Private Sub InitializeTimer()  
   ' Run this procedure in an appropriate event.  
   ' Set to 1 second.  
   Timer1.Interval = 1000  
   ' Enable timer.  
   Timer1.Enabled = True  
   Button1.Text = "Enabled"  
End Sub  
x  
Private Sub Timer1_Tick(ByVal Sender As Object, ByVal e As EventArgs) Handles Timer1.Tick  
' Set the caption to the current time.  
   Label1.Text = DateTime.Now  
End Sub  
  
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
      If Button1.Text = "Stop" Then  
         Button1.Text = "Start"  
         Timer1.Enabled = False  
      Else  
         Button1.Text = "Stop"  
         Timer1.Enabled = True  
      End If  
End Sub  

private void InitializeTimer()  
{  
    // Call this procedure when the application starts.  
    // Set to 1 second.  
    Timer1.Interval = 1000;  
    Timer1.Tick += new EventHandler(Timer1_Tick);  
  
    // Enable timer.  
    Timer1.Enabled = true;  
  
    Button1.Text = "Stop";  
    Button1.Click += new EventHandler(Button1_Click);  
}  
  
private void Timer1_Tick(object Sender, EventArgs e)
{  
   // Set the caption to the current time.  
   Label1.Text = DateTime.Now.ToString();  
}  
  
private void Button1_Click(object sender, EventArgs e)  
{  
  if ( Button1.Text == "Stop" )  
  {  
    Button1.Text = "Start";  
    Timer1.Enabled = false;  
  }  
  else  
  {  
    Button1.Text = "Stop";  
    Timer1.Enabled = true;  
  }  
}  

private:  
   void InitializeTimer()  
   {  
      // Run this procedure in an appropriate event.  
      // Set to 1 second.  
      timer1->Interval = 1000;  
      // Enable timer.  
      timer1->Enabled = true;  
      this->timer1->Tick += gcnew System::EventHandler(this,
                               &Form1::timer1_Tick);  
  
      button1->Text = S"Stop";  
      this->button1->Click += gcnew System::EventHandler(this,
                               &Form1::button1_Click);  
   }  
  
   void timer1_Tick(System::Object ^ sender,  
      System::EventArgs ^ e)  
   {  
      // Set the caption to the current time.  
      label1->Text = DateTime::Now.ToString();  
   }  
  
   void button1_Click(System::Object ^ sender,  
      System::EventArgs ^ e)  
   {  
      if ( button1->Text == "Stop" )  
      {  
         button1->Text = "Start";  
         timer1->Enabled = false;  
      }  
      else  
      {  
         button1->Text = "Stop";  
         timer1->Enabled = true;  
      }  
   }

2 番目のコード例

この 2 番目のコード例では、ループが完了するまで 600 ミリ秒ごとにプロシージャを実行します。 次のコード例では、Button1という名前の Button コントロール、Timer1という名前の Timer コントロール、および Label1という名前の Label コントロールを持つフォームが必要です。

' This variable will be the loop counter.  
Private counter As Integer  
  
Private Sub InitializeTimer()  
   ' Run this procedure in an appropriate event.  
   counter = 0  
   Timer1.Interval = 600  
   Timer1.Enabled = True  
End Sub  
  
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
   If counter => 10 Then  
      ' Exit loop code.  
      Timer1.Enabled = False  
      counter = 0  
   Else  
      ' Run your procedure here.  
      ' Increment counter.  
      counter = counter + 1  
      Label1.Text = "Procedures Run: " & counter.ToString  
   End If  
End Sub  

// This variable will be the loop counter.  
private int counter;  
  
private void InitializeTimer()  
{  
   // Run this procedure in an appropriate event.  
   counter = 0;  
   timer1.Interval = 600;  
   timer1.Enabled = true;  
   // Hook up timer's tick event handler.  
   this.timer1.Tick += new System.EventHandler(this.timer1_Tick);  
}  
  
private void timer1_Tick(object sender, System.EventArgs e)
{  
   if (counter >= 10)
   {  
      // Exit loop code.  
      timer1.Enabled = false;  
      counter = 0;  
   }  
   else  
   {  
      // Run your procedure here.  
      // Increment counter.  
      counter = counter + 1;  
      label1.Text = "Procedures Run: " + counter.ToString();  
      }  
}  

private:  
   int counter;  
  
   void InitializeTimer()  
   {  
      // Run this procedure in an appropriate event.  
      counter = 0;  
      timer1->Interval = 600;  
      timer1->Enabled = true;  
      // Hook up timer's tick event handler.  
      this->timer1->Tick += gcnew System::EventHandler(this, &Form1::timer1_Tick);  
   }  
  
   void timer1_Tick(System::Object ^ sender,  
      System::EventArgs ^ e)  
   {  
      if (counter >= 10)
      {  
         // Exit loop code.  
         timer1->Enabled = false;  
         counter = 0;  
      }  
      else  
      {  
         // Run your procedure here.  
         // Increment counter.  
         counter = counter + 1;  
         label1->Text = String::Concat("Procedures Run: ",  
            counter.ToString());  
      }  
   }

関連項目