2004/A1/演奏 の履歴ソース(No.4)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/A1/演奏 へ行く。
  • 1 (2005-01-07 (金) 06:58:37)
  • 2 (2005-01-07 (金) 07:02:20)
  • 3 (2005-01-21 (金) 06:58:05)
  • 4 (2005-01-28 (金) 06:41:37)
  • 5 (2005-02-12 (土) 10:24:06)

#define Do 523
#define Re 587
#define Mi 659//変数を決める

int m;//変数m(mは定数)

task play_music1(){
             while(true){
                     m=25;
                     PlayTone(Do,20); Wait(m);  
                     PlayTone(Re,20); Wait(m);  
                     PlayTone(Mi,40); Wait(45);  
                     PlayTone(Re,20); Wait(m);
                     PlayTone(Do,20); Wait(m);
                     PlayTone(Do,20); Wait(m);
                     PlayTone(Re,20); Wait(m);
                     PlayTone(Mi,20); Wait(m);
                     PlayTone(Re,20); Wait(m);
                     PlayTone(Do,20); Wait(m); 
                     PlayTone(Re,40); Wait(45);
                     Wait(15);
                                   }
                          }
task play_music2(){
        while(true){
               PlayTone(Re,50);Wait(55);  
                  Wait(50);       }
                     }
 
task main(){
               int time;
              SetSensor(SENSOR_3,SENSOR_TOUCH); time=250 ;
     while(true){
           stop play_music2; start play_music1; //play_music2を止めてplay_music1
                                                                     を再生
           OnFwd(OUT_A); until(SENSOR_3==1);//センサーが押されるまで前進
   if(SENSOR_3==1){ 
            stop play_music1;  start play_music2;///play_music1を止めてplay_music2
                                                                     を再生
           OnRev(OUT_A);Wait(time);//250秒間後退
                               }
                      }
           Off(OUT_A+OUT_C);//停止