エクセラのEXCEL
表計算ソフトEXCELでゲーム等を作っています。ゲーム等の作成状況を紹介。
クイズ・ドレミファドン!
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
スポンサーサイト
コメント
この記事へのコメント
初めまして

ビープ音の音階でこんな面白い事が出来るのですね、驚きです。

曲名のゲームの製作、頑張ってください。

2006/09/27 (水) 01:04:12 | URL | はら #YqzQT8Bs[ 編集]
Re:初めまして
はらさん、コメントありがとうございます。
ただいまBEEPの関数を作成中です。
近日公開しますので、お楽しみに。
2006/09/30 (土) 00:12:17 | URL | エクセラ #-[ 編集]
初めまして!。今更なのですが
ビープ音にもいろいろが使い方が
あるのですね~。感動です。
2008/03/16 (日) 17:56:26 | URL | ぷちぷち #4B33lOYw[ 編集]
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2005 エクセラのEXCEL all rights reserved.
Powered by FC2ブログ.