[[2006a/A3]]

*最初のプログラム [#kadai3]
*メリーさんの羊を奏でるプログラミング [#kadai3]
#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define So  784
#define Ra  880
#define Si  988

task play_music()
{
      while  (true)
       {
           PlayTone(Do,20);  Wait(25);
           PlayTone(Do,20);  Wait(25);
           PlayTone(So,20);  Wait(25);
           PlayTone(So,20);  Wait(25);
           PlayTone(Ra,20);  Wait(25);
           PlayTone(Ra,20);  Wait(25);
           PlayTone(So,20);  Wait(25);
        }
 }
 task main()
 {
       SetSensor(SENSOR_1, SENSOR_TOUCH);
       start play_music ;
       OnFwd(OUT_A+OUT_B);
       
       until (SENSOR_1==1);
       stop play_music;
       Off(OUT_A+OUT_B);
       }
           


トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS