投稿日 | : 2004/09/28(Tue) 21:04 |
投稿者 | : nao |
Eメール | : |
URL | : |
タイトル | : タイマーの使用方法 |
お世話になります。
フォーム上に、現在の時刻と、アラームを鳴らしたい時刻(11:00)を表示させたテキストボックスを配置させ、その時刻になると、アラーム(beep音)がなるようなプログラムを作りたいのですが、うまくいきません。
Private Sub Form_Load()
Call Timer1_Timer
Label1.Caption = Time
If Label1.Caption = Text4.Text Then
Call BeepSOUND1
End If
End Sub
Sub BeepSOUND1()
Dim i As Integer
For i = 1 To 100
Beep 'ビープ音を鳴らす
Next i
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub
良い方法はないでしょうか。
よろしくお願いします。