■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#21993-0ラベルにカウント表示する方法murayan2001-07-27(金) 10:08
     #21994-0RE#21993:ラベルにカウント表示する方法Duck2001-07-27(金) 10:21
     #21995-0RE#21993:ラベルにカウント表示する方法ろってんまいあ2001-07-27(金) 10:26
#21993-0
ラベルにカウント表示する方法
VB初心者です

ある時間(90秒)からラベルに,カウントダウン表示する方法を教えてください。
timeから,とるために,
90秒→89秒→88秒と正しく,表示されません。
簡単なことだと思いますが,よろしくお願いします。


Private Sub Timer1_Timer()
    Dim nokori As Long
    Dim byou As Variant
    Dim timeUP As Long
    
    'ラベルに残りの時間を表示
    x = Time
    byou = Second(x)
    timeUP = 90
    nokori = timeUP - CLng(byou)
    LblTime.Caption = nokori

 どこが,わるいのでしょうか?
#21994-0
RE#21993:ラベルにカウント表示する方法
Private Sub Timer1_Timer()
    Dim nokori As Integer
    Static byou As Integer
    
    'ラベルに残りの時間を表示
    nokori = 90 - byou
    LblTime.Caption = nokori
    byou = byou + 1

End Sub

これでどうですか?
#21995-0
RE#21993:ラベルにカウント表示する方法
> VB初心者です
> 
> ある時間(90秒)からラベルに,カウントダウン表示する方法を教えてください。
> timeから,とるために,
> 90秒→89秒→88秒と正しく,表示されません。
> 簡単なことだと思いますが,よろしくお願いします。
> 
> 
> Private Sub Timer1_Timer()
>     Dim nokori As Long
>     Dim byou As Variant
>     Dim timeUP As Long
>     
>     'ラベルに残りの時間を表示
>     x = Time
>     byou = Second(x)
>     timeUP = 90
>     nokori = timeUP - CLng(byou)
>     LblTime.Caption = nokori
> 
>  どこが,わるいのでしょうか?


Second関数は現在の秒を返す関数なので 0 〜 59 を返します。
これを 90 から引くと、90 〜 31 にしかなりません。

カウントダウンですので、これでは駄目です。

で、やり方ですが
現在の時刻から開始時刻を引くと、経過時間を得られます。
これを 90 秒から引くと1秒毎に、90,89,88 となります。

そして、これをプログラムすれば出来上がり。

では、頑張って下さいね
このページと関連する記事:
#21291-0画像表示の時間について。2001-06-11(月) 15:09
#17890-0Timerを使ったTime表示2001-09-19(水) 15:50
#18256-0Timer関数について2001-01-31(水) 11:30
#399-3指定した時間までの残り時間2003-08-18(月) 12:03
#13181-0時計が遅れてくる。2000-12-05(火) 09:14
#16560-0指定した時間までの経過時間を出す方法2001-06-08(金) 13:59
#27-2秒刻みで色の変わるバー2003-11-13(木) 16:03
#4014-0はじめまして1999-11-12(金) 23:18
#13392-0ストップウオッチ2000-12-13(水) 01:39
#354-1長文です。本当にすみません...2004-02-23(月) 16:33
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)