1989年開業 技術士 佐伯英子(情報工学部門) 文部科学省登録番号 第22082号 日本技術士会会員 東大阪商工会議所会員

≫サンプルプログラム一覧 

オープンソース/C言語サンプルプログラム Beep音楽(とおりゃんせ−横断歩道)

●Beep音を使って音楽を演奏するプログラムです。
 ≫ソースファイルのダウンロード: ongaku001-2.c
●低音バージョン(旧)はこちらです。
 ≫ソースファイルのダウンロード: ongaku001.c
 ※低音はWindows10で正しく出力されない場合があります。
【問題】
●別の曲を演奏するプログラムを作ってみよう。

/******************/
/*  Beep音で音楽  */
/******************/
#include <windows.h>
#include <stdio.h>

void  main( )
{
    printf("とおりゃんせ(横断歩道)\n");
    Beep(660,1000);      // ミ
    Beep(660, 500);      // ミ
    Beep(588, 500);      // レ
    Beep(660, 500);      // ミ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(494,1000);      // シ

    Beep(698, 500);      // ファ
    Beep(698, 250);      // ファ
    Beep(698, 250);      // ファ
    Beep(880, 500);      // ラ
    Beep(698, 250);      // ファ
    Beep(660, 250);      // ミ
    Beep(698, 250);      // ファ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(588, 250);      // レ
    Beep(660,1000);      // ミ

    Beep(698, 250);      // ファ
    Beep(698, 250);      // ファ
    Beep(698, 250);      // ファ
    Beep(698, 500);      // ファ
    Beep(880, 250);      // ラ
    Beep(698, 250);      // ファ
    Beep(660, 250);      // ミ
    Beep(698, 250);      // ファ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(588, 250);      // レ
    Beep(660,1000);      // ミ

    Beep(524, 750);      // ド
    Beep(524, 250);      // ド
    Beep(660, 500);      // ミ
    Beep(524, 250);      // ド
    Beep(494, 250);      // シ
    Beep(524, 250);      // ド
    Beep(494, 250);      // シ
    Beep(440, 250);      // ラ
    Beep(440, 250);      // ラ
    Beep(494,1000);      // シ

    Sleep(250);
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(440, 250);      // ラ
    Beep(440, 250);      // ラ
    Beep(494, 500);      // シ

    Sleep(250);
    Beep(440, 250);      // ラ
    Beep(494, 250);      // シ
    Beep(524, 250);      // ド
    Beep(588, 250);      // レ
    Beep(660, 250);      // ミ
    Beep(698, 250);      // ファ
    Beep(660, 250);      // ミ
    Beep(698, 500);      // ファ
    Beep(880, 500);      // ラ
    Beep(988, 250);      // シ
    Beep(880, 250);      // ラ
    Beep(698, 500);      // ファ

    Beep(660, 500);      // ミ
    Beep(660, 250);      // ミ
    Beep(588, 250);      // レ
    Beep(494,1000);      // シ
}
   

※SSL暗号化通信対応

佐伯英子技術士事務所 〒542-0073 大阪市中央区日本橋 1-14-13 サンオフィス日本橋601  E-mail: info@saeki-pe.com