![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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秒」と表示されて、動きません。
No.3ベストアンサー
- 回答日時:
VB6で作ってみました。
ちゃんとカウントダウンします。
>time_count_down2=time_count_down
>とするとできました
>いったいなぜなんでしょうか?
time_count_down
どこかで↑変数を使ってませんか?
以下VB6
Option Explicit
Public time_count_up As Long '経過時間 (+1秒)
Public time_count_down As Long '残り時間(-1秒)
Private Sub Form_Load()
time_count_up = 60
time_count_down = 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim tim_count_h As String
Dim tim_count_m As String
Dim tim_count_s As String
Dim tim_count_h2 As String
Dim tim_count_m2 As String
Dim tim_count_s2 As String
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 & "秒" '残り時間
End Sub
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?e8efa67)
No.2
- 回答日時:
time_up.text
time_down.text
でtime_down.textに問題があるように思われます。
time_down.textは問題ないですか?
この回答への補足
Public time_count_up As Int64 '経過時間
Public time_count_down As Int64 '残り時間
とモジュールに入れています
Dim time_count_down2 As Int64
と宣言し、ロード時に
time_count_down2=time_count_down
とするとできました
いったいなぜなんでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- C言語・C++・C# プログラミング c言語 4 2023/03/07 01:05
- Ruby 【JAVA】数字をひし形に出力するプログラムについて 2 2022/07/11 23:32
- UNIX・Linux 次の要件を満たすにはどのように修正したらよろしいでしょうか 1 2022/11/24 20:57
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- C言語・C++・C# C言語のエラーについて 2 2022/07/11 13:56
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- C言語・C++・C# C言語 3 2022/11/09 13:27
- Access(アクセス) アクセス 有効なフィールド名、または式として認識できませんのエラー 3 2022/08/19 11:53
- Visual Basic(VBA) vba シートコピーの不具合 1 2022/06/25 17:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
【ExcelVBA】インデックスが有...
-
Excel 範囲指定スクショについ...
-
VBA 複数条件の分岐処理の上手...
-
お世話になります。 Excel VBA...
-
Excel VBAでの数値の計算につい...
-
[vb.net] 起動したFrom2を閉じ...
-
Excel VBA 定義されたプロージ...
-
VBA 別ブックからコピペしたい...
-
Outlookの「受信日時」「件名」...
-
VBAの質問です、複数のテキスト...
-
VB.net(VB)で、フォームにExcel...
-
VBA 別ブックから条件に合うも...
-
Excel VBAで値を変えながら、pd...
-
Outlookにて既にウィドウ単体で...
-
【PowerPoint VBA】緑色の文字...
-
[VB.net] ボタン(Flat)のEnable...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++ cmathとmath.h
-
三辺の長さから角度を求めたい...
-
調和関数について
-
ActionScript3.0でのカウントダ...
-
ミリ秒までカウントできるタイマー
-
プログラム開始から 2秒毎に ...
-
Flash lite1.1で日数のカウント...
-
エクセル マクロ(A1:A10)までの...
-
=FREQUENCY(範囲,{59,69,74}) ...
-
random()関数について
-
カウントダウン(のみ)がうま...
-
【ランダム関数】0と1を返すだ...
-
python: 直角三角形の種類を求...
-
Flashでカウントダウン
-
エラー(型が一致しません。)...
-
VB6でユーザー定義型がNothing...
-
LRESULTとHRESULT
-
VBでボタンを押すと画像をラン...
-
TextChangeイベントが発生しない
-
配列の要素番号を取得するには?
おすすめ情報