1から学ぶプログラミング言語 ==kou*wの場合==

〜 私kou*wがプログラミング言語を1から学ぶブログ始めました!〜

全体表示

[ リスト ]

こんにちは、kou*wです。


どうも遅くなりすみません。
今日も私のブログに来てくださり、どうもありがとうございます!

今回は、卒業式ということで、おめでたく、音楽の再生を試してみます。



新たに、プロジェクトを立ち上げ、
Form1の上に、1つのボタンを配置します。
そのtextを「再生する♪」とします。


使う音楽は、卒業式にふさわしい、あの懐かしのメロディー♪です。

これを、テキスト音楽「サクラ」を用いて作成しました。


楽譜(?)は次のとおり:

 テンポ90
 SoundType=0;音色(Accordion)
 ミミーファソーソラーラソーr
 ミレーミファーラソーーーrrr
 ミミーファソーソラーラソーr
 ミレーラソー”シドーーーーrrrrr

これで音が鳴る〜♪


そして、これをmidiで出力し、
TiMidityとAudacityで、wavファイルに変換。
これを音源にしました。

途中、変換時に、知らぬ間に長短2つが重なって、伴奏っぽくなったので、
そのまま、残しました、 ちょっと、ぎこちないですが...。



C#のコードは少し長いですが、こんな感じです。


namespace MidiDoremi
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }


        [System.Runtime.InteropServices.DllImport("winmm.dll")]
        private static extern int mciSendString(String command,
        StringBuilder buffer, int bufferSize, IntPtr hwndCallback);

        //Button1のClickイベントハンドラ
        private void button1_Click(object sender, EventArgs e)
        {

            string cmd;

             //ファイルを開く
            cmd = "open \"C:\\music\\Bo.wav\" type mpegvideo alias MediaFile";
            if (mciSendString(cmd, null, 0, IntPtr.Zero) != 0)
                return;

           //再生する
          cmd = "play MediaFile";
          mciSendString(cmd, null, 0, IntPtr.Zero);
        }
    }
}



これは実は、

ホームページ:
「DOBON.NET プログラミング道: .NET Framework, VB.NET, C#, Visual Basic, Visual Studio, インストーラ, ...
 MIDI、MP3などの音楽ファイルを再生する: .NET Tips: C#, VB.NET」

http://dobon.net/vb/dotnet/programing/playmidifile.html

 および、

ブログ:
「鈴木智子のホームページのアクセスアップ講座 ブログ
 音声ファイルの再生方法」

http://www.tomokos.net/index.php/view/125

を参考にしました。
どうもありがとうございました。




出来上がりはこんな感じ。

  イメージ 1



「再生する♪」ボタンを押すと、

♪ミミーファソー ソラーラソー
 ミレーミファー ラソーーー

そう、あの曲ですね。



どんな曲か知りたい人は、
下の画像の 「再生」 ボタンをクリックしてみてください。
うまくいけば、聞こえるかも…

「伴奏あり」

mp3 http://www.tomokos.net/files/medias/button.jpg


「伴奏なし」

mp3 http://www.tomokos.net/files/medias/button.jpg/
ogg  http://www.tomokos.net/files/medias/button.jpg
wav http://www.tomokos.net/files/medias/button.jpg


(もしダメな場合は、以下の、本ブログのほぼミラーHPを見てください!)
kouvwのホームページ:
http://sky.geocities.jp/kouvw/



 ご卒業おめでとうございます!
 皆様の人生に幸多からんことを!




というわけで、今回は、音楽の作成および再生ができるようになった。


これからも、ますますがんばろう!
ではまた次回まで。
さようなら。

ごきげんよう!


.
kou*w
kou*w
非公開 / 非公開
人気度
Yahoo!ブログヘルプ - ブログ人気度について
検索 検索
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

標準グループ

登録されていません

Yahoo!からのお知らせ

よしもとブログランキング

もっと見る

[PR]お得情報

ふるさと納税サイト『さとふる』
11/30まで5周年記念キャンペーン中!
Amazonギフト券1000円分当たる!
数量限定!イオンおまとめ企画
「無料お試しクーポン」か
「値引きクーポン」が必ず当たる!

その他のキャンペーン


プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事