2006a/C5/課題3左/プログラム編

制作者:ぼくつね

  #define Do  523
  #define Re  587
  #define Mi  659
  #define Fa  698
  #define So  784
  #define Ra  880
  #define Si  988
  #define Doh 1047
  #define Reh 1175
  
  task play_music1()   
  {
      while (true)
      {
       /*EDELWEISS*/
       PlayTone(Mi,75); Wait(80);    
       PlayTone(So,25); Wait(30);    
       PlayTone(Reh,70); Wait(75);   
       
       PlayTone(Doh,75); Wait(80);
       PlayTone(So,25); Wait(30);
       PlayTone(Fa,70); Wait(75);
       
       PlayTone(Mi,60); Wait(65);
       PlayTone(Mi,20); Wait(30);
       PlayTone(Mi,25);  Wait(30);
       PlayTone(Fa,25); Wait(30);
       PlayTone(So,25);  Wait(30);
       PlayTone(Ra,55);  Wait(60);
       PlayTone(So,75); Wait(80);
       Wait(20);
            
       
         }
     }
    
     task play_music2()
     {
       while (true)
      {
         /* HOTARU no HIKARI */
    
       PlayTone(Do,65); Wait(70);  
       PlayTone(Fa,55); Wait(60);  
       PlayTone(Fa,35); Wait(40);   
       PlayTone(Fa,40); Wait(48);
         
       PlayTone(Ra,50); Wait(55);
       PlayTone(So,55); Wait(57);
       PlayTone(Fa,35); Wait(40);
       PlayTone(So,40); Wait(50);
         
       PlayTone(Ra,45); Wait(50);
       PlayTone(Fa,40); Wait(45);
       PlayTone(Fa,40); Wait(45);
       PlayTone(Ra,55); Wait(60);
       PlayTone(Doh,40); Wait(45);
       PlayTone(Reh,55); Wait(60);
       Wait(20);     
     
      
     
      }
  }
  
  
#define L OUT_A 
#define R OUT_C
#define t OnFwd(L);OnRev(R);
#define tL OnFwd(R);Off(L);
#define tR OnFwd(L);Off(R);
#define gs OnFwd(L+R);
#define off Off(L+R);Wait(1);
   
task main()
{
  SetSensor(SENSOR_1,SENSOR_LIGHT);
  SetSensor(SENSOR_3,SENSOR_LIGHT);
  
       while(true)
   {
     gs
     if(SENSOR_1>40)
     {while(SENSOR_1>40) start play_music1; {tL off}}
     if(SENSOR_3>40)
     {while(SENSOR_3>40 )  start play_music1; {tR off}}
     if((SENSOR_1<40)&&(SENSOR_3<40))
     {
     start play_music2;
     t
     until ((SENSOR_1>40)||(SENSOR_3>40));
     off
     stop play_music2;
     }
   }
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-13 (木) 17:58:41 (4789d)