![](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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】値を変更しながら...
-
Outlookの「受信日時」「件名」...
-
ExcelVBAマクロで実行した時の疑問
-
【ExcelVBA】インデックスが有...
-
VBA 別ブックから条件に合うも...
-
[VB.net] ボタン(Flat)のEnable...
-
Excel 範囲指定スクショについ...
-
郵便番号検索APIにてget Elemen...
-
2つのマクロでチェックボックス...
-
ExcelVBA シート名を複数セルか...
-
ファイル名の日付について教え...
-
VBA ユーザーフォーム ボタンク...
-
配列のペースト出力結果の書式...
-
Excel VBAで値を変えながら、pd...
-
近似した文字列を置換するエク...
-
Outlookにて既にウィドウ単体で...
-
A列に記載されているフォルダ...
-
VBAの間違い教えて下さい
-
Vba ファイル書き込み時に書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c++ cmathとmath.h
-
python: 直角三角形の種類を求...
-
三辺の長さから角度を求めたい...
-
プログラム開始から 2秒毎に ...
-
【ランダム関数】0と1を返すだ...
-
エクセル マクロ(A1:A10)までの...
-
setIntervalでの時間間隔(AS2.0)
-
調和関数について
-
エラー(型が一致しません。)...
-
VB6でユーザー定義型がNothing...
-
LRESULTとHRESULT
-
VBでボタンを押すと画像をラン...
-
TextChangeイベントが発生しない
-
変な質問ですみません、n番目の...
-
配列の要素番号を取得するには?
-
VB.NET の配列の要素数
-
#define 文
-
DataGridでCTRLキーを押さずに...
-
重複しない乱数の生成
-
ATLについて
おすすめ情報