タイマーの使い方

質問

VB初心者です（6.0を使っています）

タイマーの使い方がよく分かっていません。

ボタンを押してからの経過時間をラベルに表示させたいと思っているのですが、

-----------------------------------------------
Private Sub Command1_Click()

　　Timer1.Interval = 1000

　　処理１
　　処理２
　　　・
　　　・
　　　・

　　Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

　　Label1.Caption = [経過時間]

End Sub
-----------------------------------------------

という感じに書いていると、[処理１]～をしている間はラベルが表示されなくて、
最後の[処理]が終わった直後の[経過時間]のみが表示されます。
こういう形ではタイマーは使用できないのでしょうか？

他のWebサイトなども調べてみたのですが、解決できませんでした。
どなたか教えていただけませんでしょうか？

回答No.6

ginyou · ベストアンサー

意味が解りました。
ＯＳがWin2000、WinXP、WinNTで有れば、次の方法で可能です。
　タイマー表示部分を別プログラムとして作成し、ファイメ名を例えば、"Time_Hyoji.exe"とします
　そして、以下のようにします。
　この場合、Time_Hyoji.exeは常に一番手前に表示されるようにする必要が有ります。

Private Sub Command1_Click()

x = Shell("Time_Hyoji.exe", 1)

　　処理１
　　処理２

　　　・
　　　・
　　　・

End Sub

　次にWin98系のＯＳの場合ですが、処理中に、頻繁にDoＥventsを実行する必要があります。
　これは、ＯＳの特性です。

お礼

何度もお返事頂いて本当にありがとうございます。

別プログラムになるのですね・・・
実はDoEventsも、割り込み？をさせるんだな・・・というぐらいで、あまり意味が分かっていなくて。
やっぱり今の私には少し難しい部分なのかなと思いました（＾＾；

こんな風にOSの特性によってプログラムを変えなきゃいけないとかも全然意識していませんでしたし、そういう知識からしてないですし・・・
（もっと勉強しないといけないな～と思います）

教えて頂いた方法をぜひ試してみたいと思います！
本当にありがとうございました！

回答No.5

ginyou

NO４の追加です。
こういう事をやりたいのでしょうか？

Private Sub Command1_Click()

HYOJI_start

DoEvents
　　処理１
DoEvents
　　処理２
DoEvents

　　　・
　　　・
　　　・

HYOJI_end

End Sub

Private Sub HYOJI_start()
'表示開始
Timer1.Interval = 1000
Label1.Caption = Time

End Sub

Private Sub HYOJI_end()
'表示終了
Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

Timer1.Interval = 0
Label1.Caption = Time
Timer1.Interval = 1000

End Sub

お礼

お返事ありがとうございました。
（＃４の方も含めて一緒にお礼させて頂きます）

＃３の方のお返事にも書かせて頂いたのですが、
私の説明不足で、経過時間の表示というか、
処理が開始されてから何秒経過したか、ということを
１秒ずつ時計のように表示させたいと思っていました。

今、手元にVBの環境がないので、教えていただいたコードは
まだ試していないのですが、もしかしたらDoEventsの瞬間の経過時間が表示されるコードじゃないかな・・・と思いました。

他のサイトなども調べていると、ボタンを押したら経過時間の表示が開始されて、もう１度押すと止まる、というようなソースは結構解説？されているのですが、
ボタンを押したら始まる処理の経過時間を刻々と刻みたいんです・・・
やっぱり無理なんでしょうか・・・

ありがとうございました！

回答No.4

ginyou

Private Sub Command1_Click()
'表示開始
Timer1.Interval = 1000
Label1.Caption = Time

End Sub

Private Sub Command2_Click()
'表示終了
Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

Timer1.Interval = 0
Label1.Caption = Time
Timer1.Interval = 1000

End Sub

　これで、ご希望の処理が出来ます。
　なお、ＶＢはタイマイベントにの処理中はタイマーOFFにする必要が有ります。
　また、何か処理したい事は、別のプロシジャーで行って下さい。

回答No.3

todo36

Private Sub Command1_Click()
Me.Enabled = False
Timer.Interval = 1000
処理１
DoEvents
処理２
DoEvents
・
・
・
Timer.Interval = 0
Me.Enabled = True
End Sub

お礼

お礼が遅れて申し訳ありません！
少し説明不足でしたが、処理を開始したら１秒ずつ刻々と経過時間を刻む表示をさせたいと思っていました。
DoEventsを使うと、その瞬間の経過時間は表示されるのですが、やはり時計のように１秒、２秒・・・と継続しては表示されなくて・・・
あれからも自分でも色々調べてみたりしているのでが、
こういう処理自体が難しいというか、コード的におかしいのかな・・・と少し思い始めています・・・(--;

お返事ありがとうございました。

回答No.2

ducati

参考になりそうなHPがありましたので、
参考にしてみてはいかがでしょうか？

すでに、ご覧になっていたら申し訳ありません・・・

参考URL：

http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_t15.htm

お礼

拝見してみたのですが、ちょっと言葉が難しくて、さらっと読んだだけではよく分かりませんでした（＾＾；
またじっくり読んで勉強してみます。
教えて頂いてありがとうございました。

回答No.1

taknt

タイマーイベントは、一つのイベントが終わってから
発生するものです。

だから 一つのイベント内で
＞Timer1.Interval = 0
なんて してしまうと 発生する わけがありません。

Private Sub Timer1_Timer()

　　Label1.Caption = [経過時間]

　　Timer1.Interval = 0
End Sub

せめて 上記のように 記述すればいいかもしれません。

これで 発生しなかったら、他の条件とか設定しないと
ダメなんでしょう。

お礼

こんなに早くお返事いただけて、ありがとうございました。

--------------------------
タイマーイベントは、一つのイベントが終わってから
発生するものです。
だから 一つのイベント内で
＞Timer1.Interval = 0
なんて してしまうと 発生する わけがありません。
--------------------------
なるほど・・・そうだったのですね・・・（＾＾；
そうすると、１つのイベント内の経過時間を表示するには
違う方法を考えないといけないですよね・・・

--------------------------
Private Sub Timer1_Timer()
　　Label1.Caption = [経過時間]
　　Timer1.Interval = 0
End Sub
--------------------------
例えばこう記述すると、またどこかで
Timer1.Interval=1000
としなければ、タイマーは動かない？のですよね・・・

でも仕組み？が分かったので何とか考えてみます！
ありがとうございました。