2006a/A3/練習プログラム

5/12の勉強ノート †

趣味†

-バスケットボール
-睡眠

↑

チュウリップの歌†

#define Do   523
#define Re    587
#define Mi     659
#define Fa    698
#define So    784
#define Ra    880

task play_music()
{
     while (true)
     {
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,40); Wait(45);
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,40); Wait(45);
         PlayTone(So,20); Wait(25);
         PlayTone(Mi,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,40); Wait(45);
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,40); Wait(45);
         PlayTone(So,20); Wait(25);
         PlayTone(Mi,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Do,20); Wait(25);
         PlayTone(Re,20); Wait(25);
         PlayTone(Mi,20); Wait(25);
         PlayTone(Do,40);  Wait(45);
         Wait(20);
         }
         }
         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);
              }

5/12の勉強ノート †

趣味†

チュウリップの歌†

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件