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

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

オープンソース/C言語サンプルプログラム Beep音楽(故郷の空−横断歩道)

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

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

void  main( )
{
    printf("故郷の空(横断歩道)\n");
    Beep( 588, 500);      // レ
    Beep( 588, 250);      // レ
    Beep( 588, 500);      // レ
    Beep( 988, 250);      // シ
    Beep( 880, 500);      // ラ
    Beep( 784, 250);      // ソ
    Beep( 880, 500);      // ラ
    Beep( 988, 250);      // シ

    Beep( 588, 500);      // レ
    Beep( 588, 250);      // レ
    Beep( 660, 500);      // ミ
    Beep( 588, 250);      // レ
    Beep( 784,1500);      // ソ

    Beep( 588, 500);      // レ
    Beep( 588, 250);      // レ
    Beep(1176, 500);      // レ
    Beep( 988, 250);      // シ
    Beep( 880, 500);      // ラ
    Beep( 784, 250);      // ソ
    Beep( 880, 500);      // ラ
    Beep( 988, 250);      // シ

    Beep( 588, 500);      // レ
    Beep( 588, 250);      // レ
    Beep( 660, 500);      // ミ
    Beep( 588, 250);      // レ
    Beep( 784,1500);      // ソ

    Beep(1176, 500);      // レ
    Beep( 988, 250);      // シ
    Beep( 784, 500);      // ソ
    Beep( 988, 250);      // シ
    Beep( 880, 500);      // ラ
    Beep( 784, 250);      // ソ
    Beep( 880, 500);      // ラ
    Beep( 988, 250);      // シ

    Beep(1176, 500);      // レ
    Beep( 988, 250);      // シ
    Beep( 784, 500);      // ソ
    Beep(1176, 250);      // レ
    Beep(1318,1250);      // ミ
    Beep(1318, 250);      // ミ

    Beep(1176, 500);      // レ
    Beep( 988, 250);      // シ
    Beep(1046, 500);      // ド
    Beep( 880, 250);      // ラ
    Beep( 988, 500);      // シ
    Beep( 784, 250);      // ソ
    Beep( 880, 500);      // ラ
    Beep( 988, 250);      // シ

    Beep( 588, 500);      // レ
    Beep( 588, 250);      // レ
    Beep( 660, 500);      // ミ
    Beep( 588, 250);      // レ
    Beep( 784,1500);      // ソ
}
   

※SSL暗号化通信対応

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