カウントダウン(のみ)がうまくできません。。。初歩的だと思います。
VB.NETです
time_count_up = time_count_up + 1 '経過時間 (+1秒)
time_count_down = time_count_down - 1 '残り時間(-1秒)
tim_count_h = Format(Int(time_count_up / 3600), "00")
tim_count_m = Format(Int((time_count_up - (Val(tim_count_h) * 3600)) / 60), "00")
tim_count_s = Format(Int(time_count_up Mod 60), "00")
time_up.Text = tim_count_h & "時間" & tim_count_m & "分" & tim_count_s & "秒" '経過時間
tim_count_h2 = Format(Int(time_count_down / 3600), "00")
tim_count_m2 = Format(Int((time_count_down - (Val(tim_count_h2) * 3600)) / 60), "00")
tim_count_s2 = Format(Int(time_count_down Mod 60), "00")
time_down.Text = tim_count_h2 & "時間" & tim_count_m2 & "分" & tim_count_s2 & "秒" '残り時間
--------------------------
time_count_up time_count_down はint64
その他はstring
ちなみに
time_up.text=time_count_up
time_down.text=time_count_down
にしてもカウントダウンのみうまくできませんでした。
カウントUPは動いているのですが・・・。
なにが問題なんでしょうか?
time_count_down がマイナスや0ということはないと思います。
ためしにフォーム ロードで 60を入れても「00時間00分59秒」と表示されて、動きません。
お礼
納得しました!確かにネットワークは安定してないですね・・・ありがとうございました。