Excel VBA ゲーム　射的の達人 （BGMエディタつき） [home] [Excel]

シューティングゲームに挑戦！＾＾；
玉は出ません。音が出ます。
Win-XP　＋　Excel−XP　で動作確認してます。
Excel97以上で動作です。（９７はエディタに一部制限あり）
Excel2000以上対応です　＾＾；

瑠璃さん、ぽてこっちさんがＢＧＭデータを作成してくださいました
（ピアノソナタ作品13、カノン）

Windowsの固定キー機能を解除しています。
ゲーム終了と同時に元に戻しています。
そのため（？）一部ウイルススキャンソフトで警告が出るかもしれません。
気になる方は、ソースコードを調べてください。保護かけていません。
ゲーム中に「Shiftキーが5回押されたので．．．」と言うメッセージが出ることがあります。
(修正したつもりですが＾＾；）
その場合は設定ボタンを押して、固定キー機能の設定ボタンを押し、
ショートカットキーを使う　のチェックを外してOKボタン、
さらに、固定キー機能を使う　のチェックを外してOKボタンを押してください。
このダイアログは、コントロールパネルのユーザー補助のオプションで表示できます。


コンボボックスからBGMを選び、
スタートボタンを押して、タイミングを合わせて Shiftキー(赤い的）またはCtrlキー(青い的)で狙ってください。
タイミングが合うと、最高２０点入ります。
ShiftとCtrlを間違うと−１０点減点です。


BGMデータは簡単に作れます。
ワークシートにサンプルデータがあるので、参考にしてください。
また、簡単なデータエディタを用意しました。
ツール＞マクロ＞マクロの実行　から、SoundEditを起動してください。
モードレスフォームなので、Excel 2000以上対応です。
97の方は、モードレスがつかえませんので、直接編集するときは、フォームを閉じてください。


鍵盤を右クリックで、音が聞けます。
鍵盤を左クリックで、アクティブセルに音データを記入します。
セルに直にキーインしてもかまいません。
↑↓ボタンは、カーソルが上下に移動します。 コンボボックスで、４分音符を選択しておくと、鍵盤クリックで 音データを記入したときに、４行下にカーソルが移動します。
↑↓は、コンボボックスで指定された量カーソルが移動します。
＜＞ボタンは、カーソルが左右に移動します。
試聴ボタンで入力した音が確認できます。
→｜　は現在行まで再生
→　　はすべて再生
｜→　は現在行から再生です。
■　ボタンで再生を停止します。このとき、止まった行にカーソルが移動します。

作成したデータを配布する場合は著作権にご注意ください。
著作権がある曲を無断で配布すると著作権の侵害になる恐れがあります。
曲の著作権者に許可を得てください。
しかし、作曲者が亡くなってから５０年以上経った曲は著作権フリーとなり、 自由に配布できるようです。
とはいうものの、編曲にも著作権があるので、ご注意ください。


好評公開中！　＾＾；

ダウンロードは Excel VBA アクションゲーム博物館　パズル からお願いします。



このプログラムはフリーソフトです。