VB.net初心者です。
講演会で使うカウントダウンタイマーをVB.netで作っています。
・TextBox1,2をそれぞれ 分、秒の設定用とし、そこに、例えば20,0と打ち込み「時間設定」ボタン(Button4)
を押すとLabel1に「20:00」と表示される。
・「スタート」ボタン(Button1)を押すと、1秒刻みでカウントダウンが始まる。
・「ストップ」ボタン(Button2)を押すと、タイマーが停止する。
・「リセット」ボタン(Button3)を押すとタイマーがリセットされ、初期状態に戻る。
この時、タイマーが00:00になった後、経過時間として00:01、00:02という風に、
カウントアップさせたいのですが、方法が分かりません。どのようにすればよいでしょうか?
現在書いているコードは以下の通りです。
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim M1 As String = Me.TextBox1.Text
Dim S2 As String = Me.TextBox2.Text
Dim M11 As Integer = Val(M1) Dim S22 As Integer = Val(S2) Label1.Text = Format(M11, "00") & ":" & Format(S22, "00") End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim M1 As String = Me.TextBox1.Text Dim S2 As String = Me.TextBox2.Text Label1.Text = M1 + S2 Me.Timer1.Interval = 1000 Static iSec As Integer iSec = iSec - 1 S2 = S2 + iSec Dim ts1 As New TimeSpan(0, M1, S2) Dim ticks As Long = ts1.Ticks Dim ts2 As New TimeSpan(ticks) Dim ts2M = (ts2.Minutes) Dim ts2S = (ts2.Seconds) Label1.Text = Format(ts2M, "00") & ":" & Format(ts2S, "00") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Application.Restart() End Sub
End Class
ご教示のほど、よろしくお願いいたします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/01/24 10:18