ドレミファソラシドをMIDI音源で鳴らす(C/C++版)
ドレミファソラシドをMIDI音源で鳴らすサンプルです。
サンプルの実行画面
ソースコード
[Sample4.c]
//--------------------------------------------------------------------------------------
// ■ドレミファソラシドをMIDI音源で鳴ら■ Sample NO.4
//
//--------------------------------------------------------------------------------------
//リンクの設定
//リンクにwinmm.libを追加して下さい。
//このサンプルでは
// ・楽器はピアノしか使っていません。
// ・鍵盤は8種類しか使っていません。
//もし、Delphiを使えるようでしたら拙作Delphiコンポーネントの
//「開発者支援コンポーネントキット」->「MIDI音源使って演奏くん」
//を試して見てください。そちらの方は128種類の楽器と64種類の鍵盤を用意してあります。それでは。
#include <windows.h>
//ボタンのID
#define ID_DO 1500
#define ID_RE 1502
#define ID_MI 1503
#define ID_FA 1504
#define ID_SO 1505
#define ID_RA 1506
#define ID_SI 1507
#define ID_DO2 1508
//グローバル変数
HMIDIOUT *hMIDI; //MIDIポートハンドル
//コールバックプロシージャ
LRESULT CALLBACK WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam);
//------------------------------------------------------
//■関数 MIDIPaly
//■用途 MIDI音源を使用して音を鳴らす
//■引数
// Value...音階
//------------------------------------------------------
void MIDIPaly(DWORD Value)
{
DWORD _Time;
//出力リセット
midiOutReset((HMIDIOUT)hMIDI);
//音を発音
midiOutShortMsg((HMIDIOUT)hMIDI, 0x7F3C90 + (Value * 256));
//音を伸ばす(本当はマウスイベントなどでやる方が良いが面倒なのでこれにする)
_Time= GetTickCount();
while (300>=GetTickCount()-_Time);
midiOutShortMsg((HMIDIOUT)hMIDI, 0x3C90 + (Value*256));
}
//------------------------------------------------------
//■関数 ScreenCenterX(ローカル)
//■用途 ウインドウを中央にする為にX座標(LEFT)を算出する
//■引数
// Width ...ウインドウの横幅
//------------------------------------------------------
int ScreenCenterX(int Width)
{
int X;
X = (GetSystemMetrics(SM_CXSCREEN)- Width) / 2;
if (X<0) X=0;
return(X);
}
//------------------------------------------------------
//■関数 ScreenCenterY(ローカル)
//■用途 ウインドウを中央にする為にY座標(TOP)を算出する
//■引数
// Height ...ウインドウの縦幅
//------------------------------------------------------
int ScreenCenterY(int Height)
{
int Y;
Y= (GetSystemMetrics(SM_CYSCREEN)- Height) / 2;
if (Y<0) Y=0;
return(Y);
}
//------------------------------------------------------
//■関数 CreateMainWindow(ローカル)
//■用途 メインウインドウを作成する
//■引数
// Width ...ウインドウの横幅
// Height ...ウインドウの縦幅
// Caption ...タイトル名
// hInstance ...インスタンスハンドル
// nCmdShow ...ウインドウの表示形態
// lpfnWndProc...コールバックプロシージャ
// dwstyle ...ウインドウスタイル
// dwExstyle ...拡張ウインドウスタイル
// MenuID ...メニューのID
// hIcon ...アイコン
//■戻り値
// ウインドウのハンドル
//------------------------------------------------------
HWND CreateMainWindow(int Width,int Height,LPCTSTR Caption,HINSTANCE hInstance,int nCmdShow,WNDPROC lpfnWndProc, DWORD dwstyle,DWORD dwExstyle,LPCTSTR MenuID,HICON hIcon)
{
HWND hWnd; //メインウインドウのハンドル
WNDCLASS myClass; //WNDCLASS構造体
//WNDCLASS構造体を0で初期化
ZeroMemory(&myClass,sizeof(WNDCLASS));
//--->WNDCLASS構造体の設定&ウインドウクラスの登録
//ウインドウスタイルを設定
myClass.style =CS_HREDRAW | CS_VREDRAW;
//コールバックプロシージャへのポインタ
myClass.lpfnWndProc = lpfnWndProc;
//インスタンスハンドルを設定
myClass.hInstance =hInstance;
//カーソルの設定(Windows標準リソースを使用)
myClass.hCursor =LoadCursor(NULL, IDC_ARROW);
//ウインドウの背景を設定(デフォルトカラー)
myClass.hbrBackground =(HBRUSH)COLOR_WINDOW;
//クラス名の設定(Borland Delphi風)
myClass.lpszClassName ="TForm";
//アイコンの指定
myClass.hIcon =hIcon;
//メニューの設定
myClass.lpszMenuName=MenuID;
//ウィンドウ クラスを登録
RegisterClass(&myClass);
//--->ウインドウの作成&表示
//メインウインドウの生成
hWnd = CreateWindowEx(
//拡張ウインドウスタイル
dwExstyle,
//登録されたクラス名のアドレス
"TForm",
//ウインドウ名
Caption,
//ウインドウスタイルを設定
dwstyle,
//X座標の位置設定
ScreenCenterX(Width),
//Y座標の位置設定
ScreenCenterY(Height),
//横幅を設定
Width,
//縦幅を設定
Height,
//親ウインドウを設定
NULL,
//メニューを設定
NULL,
//インスタンスを識別
hInstance,
//作成したウインドウに渡すデータへのポインタ
NULL);
//ウインドウの表示(表示方法はnCmdShowに従う)
ShowWindow(hWnd, nCmdShow);
return(hWnd);
}
//------------------------------------------------------
//■関数名 ControlCreate
//■用途 ウインドウ(コントロール)を作成
//■引数
// hwndParent ...親ウインドウのハンドル
// Left ...作成するウインドウの左隅のX座標
// Top ...作成するウインドウの左隅のY座標
// Width ...作成するウインドウの横幅
// Height ...作成するウインドウの縦幅
// dwExStyle ...ウインドウの拡張フラグ
// dwFlag ...ウインドウの作成フラグ
// Caption ...作成するウインドウのキャプション
// ClassName ...作成するウインドウクラス名
// ChildID ...子ウインドウの識別子
// hInstance ...インスタンスハンドル
//■戻り値
// 子ウインドウのハンドル
//------------------------------------------------------
HWND CreateControlWindow(HWND hwndParent, int Left, int Top,int Width, int Height,int dwExStyle ,int dwFlag ,LPCTSTR Caption, LPCTSTR ClassName,HMENU ChildID,HINSTANCE hInstance)
{
return CreateWindowEx(dwExStyle,ClassName,Caption,WS_CHILD | WS_VISIBLE | dwFlag ,
Left, Top, Width, Height, hwndParent, ChildID, hInstance, NULL);
}
//--------------------------------------------------------
//■関数 WinMain
//■用途 メインの関数
//■引数
// hInstance ...現在のインスタンスのハンドル
// hPrevInstance...以前のインスタンスのハンドル
// pszCmdLine ...コマンド ラインのアドレス
// nCmdShow ...ウィンドウの表示状態
//--------------------------------------------------------
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
{
MSG msg;
//メインウインドウを作成
CreateMainWindow(250,150,"ドレミファソラシドをMIDI音源で鳴らす。",hInstance,nCmdShow,(WNDPROC)WindowProc,
WS_OVERLAPPEDWINDOW,WS_EX_CONTROLPARENT | WS_EX_WINDOWEDGE,NULL,LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION)));
//送られてくるメッセージを翻訳してプロシージャに渡す
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return (msg.wParam);
}
//------------------------------------------------------
// ■関数 WindowProc
// ■用途 メインウインドウに送られるメッセージを処理
// ■引数
// hwnd ...ウインドウのハンドル
// uMsg ...メッセージID
// wParam ...第1メッセージ パラメータ
// lParam ...第2メッセージ パラメータ
//------------------------------------------------------
LRESULT CALLBACK WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam)
{
switch (uMsg)
{
case WM_CREATE:
//「ド」ボタン作成
CreateControlWindow(hwnd,20,10,25,100,0,BS_PUSHBUTTON,"ド","BUTTON",(HMENU)ID_DO,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「レ」ボタン作成
CreateControlWindow(hwnd,45,10,25,100,0,BS_PUSHBUTTON,"レ","BUTTON",(HMENU)ID_RE,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「ミ」ボタン作成
CreateControlWindow(hwnd,70,10,25,100,0,BS_PUSHBUTTON,"ミ","BUTTON",(HMENU)ID_MI,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「ファ」ボタン作成
CreateControlWindow(hwnd,95,10,25,100,0,BS_PUSHBUTTON,"ファ","BUTTON",(HMENU)ID_FA,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「ソ」ボタン作成
CreateControlWindow(hwnd,120,10,25,100,0,BS_PUSHBUTTON,"ソ","BUTTON",(HMENU)ID_SO,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「ラ」ボタン作成
CreateControlWindow(hwnd,145,10,25,100,0,BS_PUSHBUTTON,"ラ","BUTTON",(HMENU)ID_RA,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「シ」ボタン作成
CreateControlWindow(hwnd,170,10,25,100,0,BS_PUSHBUTTON,"シ","BUTTON",(HMENU)ID_SI,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//「ド」ボタン作成
CreateControlWindow(hwnd,195,10,25,100,0,BS_PUSHBUTTON,"ド","BUTTON",(HMENU)ID_DO2,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));
//MIDIポートを開く
if (midiOutGetNumDevs<=0)
MessageBox(hwnd,"あなたの環境ではMIDI音源が使用できません。","エラー",MB_OK);
else
midiOutOpen((LPHMIDIOUT)&hMIDI,0, 0, 0, CALLBACK_NULL);
break;
//コマンドメッセージ
case WM_COMMAND:
switch LOWORD(wParam){
case ID_DO: MIDIPaly(0); break;
case ID_RE: MIDIPaly(2); break;
case ID_MI: MIDIPaly(4); break;
case ID_FA: MIDIPaly(5); break;
case ID_SO: MIDIPaly(7); break;
case ID_RA: MIDIPaly(9); break;
case ID_SI: MIDIPaly(11); break;
case ID_DO2: MIDIPaly(12); break;
}
break;
case WM_DESTROY:
midiOutReset((HMIDIOUT)hMIDI); //MIDI出力リセット
midiOutClose((HMIDIOUT)hMIDI); //MIDIポートを閉じる
PostQuitMessage(0);
break;
//その他のメッセージはWindowsに任せる
default:return(DefWindowProc(hwnd, uMsg, wParam, lParam));
}
return (0);
}
ソースコード一式のダウンロード
capi_sample4.zip 3,362 バイト
動作環境
このサンプルは 「Windows98」及び「Microsoft Visual C++5.0」「Borland C++ Compiler 5.5」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
Visual C++5.0でのコンパイル
VC5.0でサンプルをコンパイルする場合は新規プロジェクト(Win32Application)を作成後、各ファイルを追加してビルドしてください。
Borland C++ Compiler 5.5でのコンパイル
BCC5.5でサンプルをコンパイルする場合は「bcc32.exe」で*.c又は*.cppファイルをコンパイルします。リソースがある場合は「brc32.exe」で*resファイルを付与してください。
サンプルについて
このWindows APIサンプル集(C/C++版)は2000年頃にC/C++言語の学習の為に作成したものです。コードはエレガントではなく「初心者レベルのコーディング」です。仕事などの業務で利用する際にはエラー処理やメモリ解放などの再確認を必ずして下さい。
スポンサーリンク
関連記事
公開日：2015年03月19日
記事NO：00460
