ab.com コミュニティ

Do
	Beep(1000,500)
	Sleep(100)
Loop

Dim cnt As Long
	For cnt=1 To 10
		Beep(1000,500)
		Sleep(100)
	Next

> どんな人でもいいので教えてください。
なんとなく気になる表現ですね...。

凄く簡単なのは無限ループです。
[hide][code]Do
Beep(1000,500)
Sleep(100)
Loop
[/code][/hide]
ある回数だけ繰り返す。(例は10回にしてます)
[hide][code]Dim cnt As Long
For cnt=1 To 10
Beep(1000,500)
Sleep(100)
Next[/code][/hide]
他にも、SetTimer()関数を使ったり色々あります。
初めてBeep()関数を使ったんですが、電話のピポパみたいですね。

どんな人でもいいので教えてください。
教えてほしいのは、ビープ音(BEEP)を
連続でずっとなり続けられるように
する方法です。

　　　　　　　　　　　　お願いいたします。