APIのBEEPを使うと、EXCELで音楽を流すことができます。
果たして何の曲が流れてくるでしょうか？
やり方のわからない人は、メール下さい。
果たして何の曲が流れてくるでしょうか？
やり方のわからない人は、メール下さい。
Declare Function beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub sound()
Dim a()
a = [{32,5,0,2,24,2,32,2,40,2,48,2,40,2,0,2,32,2,36,2,0,2,36,2,36,2,0,2,27,5,0,1,36,2,32,2,0,2,30,2,32,5,0,2,24,2,32,2,40,2,48,2,40,2,0,2,32,2,34,2,0,2,34,2,34,2,0,2,32,5}]
For i = 1 To UBound(a) Step 2
If a(i) = 0 Then
Sleep a(i + 1) * 80
Else
beep a(i) * 10, a(i + 1) * 80
End If
Next
End Sub
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub sound()
Dim a()
a = [{32,5,0,2,24,2,32,2,40,2,48,2,40,2,0,2,32,2,36,2,0,2,36,2,36,2,0,2,27,5,0,1,36,2,32,2,0,2,30,2,32,5,0,2,24,2,32,2,40,2,48,2,40,2,0,2,32,2,34,2,0,2,34,2,34,2,0,2,32,5}]
For i = 1 To UBound(a) Step 2
If a(i) = 0 Then
Sleep a(i + 1) * 80
Else
beep a(i) * 10, a(i + 1) * 80
End If
Next
End Sub
この記事へのコメント
ビープ音の音階でこんな面白い事が出来るのですね、驚きです。
曲名のゲームの製作、頑張ってください。
2006/09/27 (水) 01:04:12 | URL | はら #YqzQT8Bs[ 編集]
はらさん、コメントありがとうございます。
ただいまBEEPの関数を作成中です。
近日公開しますので、お楽しみに。
ただいまBEEPの関数を作成中です。
近日公開しますので、お楽しみに。
2006/09/30 (土) 00:12:17 | URL | エクセラ #-[ 編集]
初めまして！。今更なのですが
ビープ音にもいろいろが使い方が
あるのですね～。感動です。
ビープ音にもいろいろが使い方が
あるのですね～。感動です。
2008/03/16 (日) 17:56:26 | URL | ぷちぷち #4B33lOYw[ 編集]
このコメントは管理者の承認待ちです
2008/10/24 (金) 18:58:16 | | #[ 編集]
| ホーム |
