4.2.1 DirectMusic用の変数を準備 まずは、MIDIファイルを演奏する方法です。WAVファイルの場合と同じようにDirectXに関連するオブジェクトやデータ型の変数を使って行います。 変数とデータ型の定義 DirextXを使ってMIDIファイルを演奏するときは、次のようなオブジェクトや変数を定義します。なお、ここでのポイントは変数名ではなくAs以降の変数の型です、念のため…。 変数名はお好きな名前をつけてOKですが、最低限例で出ている型の変数が必要です。また、変数の型には普段はあまり見かけないような型が並んでいますが、それぞれの使い道は以下をどうぞ。 　◆DirectX 7の場合 Dim objDrX     As New DirectX7 Dim objDMPerf  As DirectMusicPerformance Dim objDMLdr   As DirectMusicLoader Dim objDMSgmnt As DirectMusicSegment Dim objDMSgtSt As DirectMusicSegmentState 　※DirectX 7を参照設定に追加する必要があります。 　◆DirectX 8の場合 Dim objDrX     As New DirectX8 Dim objDMPerf  As DirectMusicPerformance8 Dim objDMLdr   As DirectMusicLoader8 Dim objDMSgmnt As DirectMusicSegment8 Dim objDMSgtSt As DirectMusicSegmentState8 Dim sctParams  As DMUS_AUDIOPARAMS 　※DirectX 8を参照設定に追加する必要があります。 DirextXオブジェクトの作成です。このオブジェクトを使うときはNew（インスタンスの作成）を付けます。 Dim objDrX     As New DirectX7 'DirectX 7のとき 　または Dim objDrX     As New DirectX8 'DirectX 8のとき DirectXを使ってMIDIファイルを再生するときの主役となるオブジェクトです。 Dim objDMPerf  As DirectMusicPerformance 'DirectX 7のとき 　または Dim objDMPerf  As DirectMusicPerformance8 'DirectX 8のとき MIDIファイルを読み込むために使うオブジェクトです。 Dim objDMSgtSt As DirectMusicLoader 'DirectX 7のとき 　または Dim objDMSgtSt As DirectMusicLoader8 'DirectX 8のとき 再生したいMIDIファイルを入れておくためのオブジェクトです。複数のMIDIファイルを使うときは、Dim objDMSgmnt(20) As DirectMusicSegmentのように配列にして使うと便利です。ただし、同時に2つのMIDIを演奏することはできません Dim objDMSgmnt As DirectMusicSegment 'DirectX 7のとき 　または Dim objDMSgmnt As DirectMusicSegment8 'DirectX 8のとき MIDIファイルを再生するために使うオブジェクトです。複数のMIDIファイルを使うときは、Dim objDMSgtSt(20) As DirectMusicSegmentStateのように配列にして使うと便利です。ただし、同時に2つのMIDIを演奏することはできません Dim objDMSgtSt As DirectMusicSegmentState 'DirectX 7のとき 　または Dim objDMSgtSt As DirectMusicSegmentState8 'DirectX 8のとき DirectMusicPerformance8オブジェクトの初期設定時に使う構造体です。パラメタに使います。DirectX 8のときだけ必要です。 Dim sctParams  As DMUS_AUDIOPARAMS 'DirectX 8のみ！

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） エクセルマクロTips 〜ゲーム篇〜 1.能書き（このネタの説明） 2.ワークシートを使って構築する方法   2.1 ワークシートをゲーム画面にする    ・表示倍率を出来るだけ下げて…    ・ゲームのときはR1C1参照形式が便利   2.2 パターンの描画方法    ・基本はコピペ    ・もちろんDestination:=の高速コピペで！   2.3 パターンを定義する方法    ・Rangeオブジェクト変数   2.4 パターンを移動する方法    ・キャラが画面上を動き回る！   2.5 アニメーションする方法    ・パラパラマンガと同じ原理 3.API   3.1 キーボードからの入力を判定する    ・GetAsyncKeyState    ・キーコード一覧   3.2 ウィンドウハンドル番号を取得する    ・FindWindow   3.3 PlaySoundで音を鳴らす    ・PlaySound    ・同時に複数のWAVを鳴らせないのが欠点   3.4 1/1000秒単位の時間を取得    ・GetTickCount    ・timeGetTime   3.5 1/1000秒単位の時間を正確に取得    ・QueryPerformanceCounter    ・QueryPerformanceFrequency 4.サウンド（MIDIやWAVの再生）   4.1 DirectXでWAVファイルを鳴らす    ・参照設定が必要     4.1.1 DirectSound用の変数を準備     4.1.2 音を鳴らすための準備     4.1.3 音を鳴らす、止める      ・音が鳴っているか調べる方法も   4.2 DirectXでMIDIファイルを鳴らす    ・参照設定が必要     4.2.1 DirectMusic用の変数を準備     4.2.2 演奏するための準備     4.2.3 演奏と停止、後処理      ・演奏中かを調べる方法も 5.具体例   5.1 速度調整[DL]    ・時間で制御する   5.2 迷路の中を歩き回る[DL]   5.3 衝突を判定する[DL]   5.4 点数など文字の表示[DL]   5.5 背景を派手にする[DL]    ・シートの背景に画像を設定   5.6 物体を目標物に向けて移動する[DL]    ・敵の弾を自機へ向けるときや線を引く時    ・２つの物体の対角線上にいることを判定 6.その他の関連技、関連知識   6.1 オプションOFFで描画速度をアップ    ・実行速度の改善例と計測結果    ・PCスペックの違いを考慮して作成しよう ※[DL]にはサンプルファイルがあります Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved