カウントダウンさせるプログラムを作っているのですが、「Timer」を使用して「1秒毎」にカウントダウンさせていきたいんですけど「テキスト」内の数値を[0・・59・・58・・」の順にカウントさせることは可能ですか?
現時点では「Timer」を設置してボタン操作でカウントを始めるプログラムを書きましたが、どうも計算がうまくいきません。
Public Class Form1
Private SecCount As Integer ' 秒数をカウントする整数
Private Count As Integer
Private WaitSecond As Integer ' タイマーの停止時間を秒単位で記憶する変数
' [START]ボタンを押した時に実行する処理
Private Sub DoConvert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim WorkingMinute, WorkingSecond As Integer
Dim WorkingHour As Integer
Dim Smhplass As Integer ' 時間をカウントする変数
' 入力された時間と分と秒を数値に変換
WorkingHour = numHour.Value
WorkingMinute = numMinute.Value
WorkingSecond = CInt(txtSecond.Text)
' 指定されたタイマーを秒単位で記憶
WaitSecond = WorkingHour * 60 + WorkingMinute * 60 + WorkingSecond
' 指定されたタイマー停止時間が 0 秒のときは開始処理をキャンセル
If WaitSecond = 0 Then
Exit Sub
End If
' 秒数のカウントと表示をテキスト内の表示にに初期化
SecCount = WorkingHour + WorkingMinute
Count = 0
' カウンターを処理する変数
Smhplass = WorkingSecond + WorkingMinute + WorkingHour
' numからテキストに表示
txtHour.Text = WorkingHour.ToString()
txtMinute.Text = WorkingMinute.ToString()
' [START]ボタンを無効化
btnStart.Enabled = False
' タイマーを開始
Timer1.Start()
' 表示画像の変更
lblStandby.Text = "START"
End Sub
' 指定したミリ秒毎に実行される処理
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Smhplass As Integer ' 時間をカウントする変数
Dim WorkingHour, WorkingMinute, WorkingSecond As Integer
' テキストをIntに変える変数
WorkingHour = CInt(txtHour.Text)
WorkingMinute = CInt(txtMinute.Text)
WorkingSecond = CInt(txtSecond.Text)
' カウンターを処理する変数
Smhplass = WorkingHour - WorkingMinute - WorkingSecond
' タイマーカウント行う処理
SecCount = SecCount - 1
Smhplass = SecCount
If SecCount = WaitSecond Then
' 表示画像を変更
lblStandby.Text = "STANDBY"
' タイマーを停止
Timer1.Stop()
' [START] ボタンを有効化
btnStart.Enabled = True
End If
End Sub
End Class
上記がボタンを押した時の処理とタイマーイベント(Tick)が行う処理の記述のつもりなのですが、ここからどういう計算方式で「0・・59・・58」の順に減らしていくのかわかりません(ι・_・)
デザインではテキストが「時間・分・秒」の順に表示される様に設定しています、そこに表示させたテキストの「分・秒」を先ほどの計算式で逆算していきたいです。
たとえば1時間に設定したら「秒」のカウントは「59」から始まり「分」はそれに伴って秒が60カウントをした「1分」ずつ減っていくような感じです。
Name設定を変えているのでボタンやテキストの表記が多少変わっていて読みにくいかもしれませんが「ボタン」なら「btn~」、テキストなら「txt~」で名前をつけています。
長くなってしまいましたが、もしいい方法があれば是非ご伝授の方よろしくお願いします。
No.2ベストアンサー
- 回答日時:
btnStartのClickイベントを
btnStart.Enabled = False
tm = Now.AddHours( numHour.Value )
tm = tm.AddMinits( numMinute.Value )
ts = Now - tm
txtHour.Text = ts.Hours.ToString()
txtMinuts.Text= ts.Minuts.ToString()
txtSecond.Text = ts.Second.ToString()
Timer1.Enabled = True
とします ・・・ 他の部分はコメントアウトしておくなどしましょう
Timer1のTickイベントを
ts = tm - now
txtHour.Text = ts.Hours.ToString()
txtMinuts.Text= ts.Minuts.ToString()
txtSecond.Text = ts.Second.ToString()
if ts.TotalSeconds < 1 then
Timer1.Enabled = False
btnStart.Enabled = True
end if
とします ・・・ Clickイベント同様に他の部分はコメントアウト
dim ts as TimeSpan, tm as DateTime
を『Public Class Form1』の次の行ぐらいに記述します
といった具合でどうでしょう
Nowは VBの組み込みプロパティで .NETのオブジェクトでいうと
DateTime.Nowになります
tm = Now.AddHours( numHour.Value )
は 現在に時刻に numHourの値を時間として加えた時刻を tmに代入することになります
19:00に numHourが2だった場合 21:00が設定されます
tm = tm.AddMinutes( numMinute.Value )
は tmの時刻に numMinuteの値を分として加算した値を tmに再設定します
21:00に numMinuteが30だった場合 21:30をtmに設定します
ts = tm - Now
はClickイベントで設定されたカウントダウン完了時刻(tm)から現在の時刻を減算した結果を取得します
TimeSpan型には時間の24進や分、秒の60進の計算を内部でしてくれるので HoursやMinutes,Secondsなどで時、分、秒を簡単に取得できます
また TotalSecondsで秒単位での取得も可能です
TotalSecondsが1未満ということは予定したカウントダウンが終了したということになります
MSDNなどで わからないプロパティやオブジェクトは検索するようしましょう
参考URL:http://msdn.microsoft.com/ja-jp/library/system.d …
返事遅れてしまいました、申し訳ございません!!
この回答に記載されているプログラムを試しましたところ、無事にカウントさせることができました☆
ありがとうございます。とてもわかりやすい説明をして頂き感謝しています。
アドバイスも参考にさせていただきます、何から何まで本当にありがとうございました。
重ねて御礼申し上げます。わがままを言ってしまい申しわけありませんでした。
ではこれで失礼いたします。
No.1
- 回答日時:
こんなに複雑にしなくてもいいように思いますよ
TimeSpanクラスを使ってやればいいでしょう
クラスのグローバル変数として
dim ts as TimeSpan, tm as DateTime
を宣言しておきます
btnStartのClickイベントで
btnStart.Enabled = False
' 1時間なら
tm = now.AddHours(1)
ts = tm - now
txtHour.Text = ts.Hours
txtMinuts.Text= ts.Minuts
txtSecond.Text = ts.Second
Timer1.Enabled = True
Timer1のTickイベントで
ts = tm - now
txtHour.Text = ts.Hours.ToString()
txtMinuts.Text= ts.Minuts.ToString()
txtSecond.Text = ts.Second.ToString()
if ts.TotalSeconds < 1 then
Timer1.Enabled = False
btnStart.Enabled = True
end if
といった具合で ・・・
この回答への補足
先ほどのつづきですm(_ _)m
プログラムは始めたばかりなので、「Now.AddHours(1)」など見たことのない記述が目に入ったのですが、「Now」は日本語に直すと「現在」ですから、「tm = 現在時間を1づつ上げていく値」「ts = 1ずつ上がっていく値 - 現在時刻」
という風な解釈をしているのですが、式によって「=」は代入するものと等しいものと分かれていると聞きました。
その辺の区別がまだあまりつかない状態ですが、教えて頂いた「TimeSpanクラス」を使用するにあたって最初に投稿した記述からいらない値や変数がありましたらお時間のあるときにでもご指導していただけたらありがたいです。
フォームのデザインは上から「TextBoxが横ならびで3つ(時間・分・秒を表すBoxです)」とそのすぐ下に「NumericUpDownが横ならびで二つ(ここで指定した時間をTextBoxに表示される様にしています)」とその下にスタートボタンがあります。
長々と書いてしまって、本当にすいませんm(_ _)m
回答ありがとうございました。
早速回答ありがとうございますm(_ _)m
一応試してみたのですが、元の値をいじりすぎてこんがらがってしまいます(汗
Clickイベントの(' 指定されたタイマーを秒単位で記憶
WaitSecond = WorkingHour * 60 + WorkingMinute * 60 + WorkingSecond)やTickイベントの(' タイマーカウント行う処理
SecCount = SecCount - 1
Smhplass = SecCount)などの変数は残したまま記述しても問題ないでしょうか?
ちなみに教えて頂いた記述を入力した箇所ですが「dim ts as TimeSpan, tm as DateTime」は「Public Class Form」のすぐ下に記述しました。
その上で「btnStart」のClickイベントで「btnStart.Enabled = False」のすぐ下から↓
' 1時間なら
tm = now.AddHours(1)
ts = tm - now
txtHour.Text = ts.Hours
txtMinuts.Text= ts.Minuts
txtSecond.Text = ts.Seconds
Timer1.Enabled = True
を記述しました。
Timer1のTickイベントには回答くださった式をイベント内の適当な場所に記述しました。
・・がうまく作動しませんでした。多分いろんな式が混ざってしまっているので誤作動を起こしているのだと思います。
長くなりますので別のフォームでつづきを書かせて頂きます。申し訳ありませんm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA kernel32 の意味
-
DoEvents(VBA)の質問です。
-
ボタンが押された事を検知する...
-
InvalidateRectがうまくいかない
-
VBSの処理中一旦処理を止めて再...
-
VBA、UserFormを前面に出力して...
-
Macターミナルで実行中のプログ...
-
緯度、経度の 10進法と 60進法...
-
C# シリアル通信でデータ受信...
-
UWSCがうまく動かない
-
このレジの並び方は間違ってま...
-
マージャンのゲームを作りたい...
-
プロセス終了の検知について
-
Arduinoのプログラムで質問です。
-
家電製品の電力周波数を変える機械
-
isoをimgに変換したいのですが...
-
c++からfortranの関数を呼び出す
-
Mac 乗数の入力方法
-
clock関数は正確じゃないの?
-
N88BASICのバイナリデータをテ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
メッセージボックスのボタン名変更
-
VBA kernel32 の意味
-
VBSで応答不要のメッセージボッ...
-
ACCESS側からEXCELの書式を設定...
-
VBA、UserFormを前面に出力して...
-
エクセルVBAでクリップボード内...
-
Excel VBA で処理中断(DoEvents...
-
VBA メッセージボックスを自動...
-
ASP.NETでのメッセージ画面を出...
-
Application.ScreenUpdating=Fa...
-
シャットダウン時のExcel強制終...
-
【C#】 あるイベントから別イ...
-
エクセルが勝手に立ち上がる
-
マルチスレッドを実現したい
-
MFCのワーカースレッドとUIスレ...
-
PostMessageの連続送信
-
vb.net イベントが完全に終了...
-
起動後直に実行するコードはど...
-
DoEvents
おすすめ情報