/// 実習E6 コントロール(タイマー) | プログラミング実習 |
タイマー
- タイマー(Timer)オブジェクトは、設定した時間が経過するとTickイベントが発生する。
- タイマーは、ツールボックスのコンポーネントのグループにある。
- タイマーを有効にするには、EnabledプロパティをTrueにする。
- イベントの発生する間隔は、Intervalプロパティで設定する。単位はミリ秒である。
プロジェクト名 実習E6ディジタル時計
説明
24時間表示のディジタル時計である。
デザイン
フォームのプロパティ
Font.Size = 11
Size = 280, 120
タイマー
Enabled = Treu、 Interval = 500 (0.5秒)
タイマー(Timer1)のプロパティ(オブジェクトは、フォーム上に表示されない。)
コード(プログラム)
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
lblHizuke.Text = DateTime.Now.ToString("yyyy/MM/dd(ddd)")
@ = DateTime.Now.ToString("hh:mm:ss")
End Sub
Private Sub btnStartStop_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnStartStop.Click
If btnStartStop.Text = "停止" Then
Timer1. A = False
btnStartStop.Text = "開始"
Else
Timer1. A = True
btnStartStop.Text = "停止"
End If
End Sub
End Class
キーワード
- ToString
- 文字列変換時に書式指定ができる。
詳しくは「vb tostring 書式」などで検索してみよう。- DateTime.Now
- 現在のコンピュータ日時が取得できる。
書式指定をしなければ、"2014/1/1 1:23:45"が得られる。lblHizuke.Text = DateTime.Now.ToStringに変更すると確認できる。
解説
時計の停止/開始は、タイマーオブジェクトのEnabledプロパティで設定している。ボタンに表示された文字列(Textプロパティ)を調べて、停止/開始の判断をしている。
テスト
実行するとディジタル時計が表示される。
ボタンのクリックで時計が停止/開始する
/// 実習E6 コントロール(タイマー) | Copyright©2014 Hiroshi Masuda |