| 投稿日 | ： 2004/09/28(Tue) 23:11 |
| 投稿者 | ： YAS |
| Ｅメール | ： yasunari@sakai.atnifty.com |
| ＵＲＬ | ： |
| タイトル | ： Re: タイマーの使用方法 |
naoさんこんにちは。
> Private Sub Form_Load()
> Call Timer1_Timer
> Label1.Caption = Time
> If Label1.Caption = Text4.Text Then
> Call BeepSOUND1
> End If
> End Sub
これだとフォームをロードしたとき１回だけしか時間の判定をしないのではないでしょうか。
時間を比較してアラームを鳴らす処理はタイマーの方に書いたらよいと思います。
タイマーとラベルとテキストボックスをフォームに配置して次のリストでお試しください。
（テキストボックスには「11:00:00」のように記入しておいてください。）
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time$
If Label1.Caption = Text1.Text Then
Beep
End If
End Sub
ちなみにbeepを何回ループさせても当方の環境では１回しか鳴りませんでした。
サウンドカードが違ったり，なかったりするとブーーとなるのかもしれません。