2006a/A4/課題３の試作プログラム の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 2006a/A4/課題３の試作プログラム へ行く。
• 2006a/A4/課題３の試作プログラム の差分を削除

[[2006a/A4/NRLPの研究室]]
*もるだうおんりー.ver [#wc450ff4]
制作日時：７月６日
 #define pika 36
 #define zen OnFwd(OUT_A+OUT_B);
 #define hidari OnFwd(OUT_C);OnRev(OUT_A);
 #define migi OnFwd(OUT_A);OnRev(OUT_C);
 
 #define C  523
 #define Ces 554
 #define D  587
 #define Des 622
 #define E  659
 #define F  698 
 #define Fes 740
 #define G 784
 #define Ges 831
 #define A 880 
 #define Aes 932
 #define H 988
 #define C8th  1047
 #define C8thes 1109
 task morudau()
 {
 while(true)
   {
   PlayTone(C,20); Wait(20);
   PlayTone(F,35); Wait(40);
   PlayTone(G,20); Wait(20);
   PlayTone(Ges,35); Wait(40);
   PlayTone(Aes,18); Wait(20);
   PlayTone(C8th,35); Wait(40);
   PlayTone(C8th,16); Wait(20);
   PlayTone(C8th,55); Wait(60);
   PlayTone(C8thes,55); Wait(60);
   PlayTone(C8thes,55); Wait(60);
   PlayTone(C8th,90); Wait(100);
  
   PlayTone(C8th,18); Wait(20);
   PlayTone(Aes,38); Wait(40);
   PlayTone(C8th,18); Wait(20);
   PlayTone(Aes,38); Wait(40); 
   PlayTone(Aes,18); Wait(20); 
   PlayTone(Ges,38); Wait(40);
   PlayTone(Aes,18); Wait(20);
   PlayTone(Ges,58); Wait(60);
 
   PlayTone(G,58); Wait(60);
   PlayTone(G,58); Wait(60);
   PlayTone(F,118); Wait(120);
 
   Wait(200);
   }
 }
 
 task main()
 {
	SetSensor(SENSOR_1,SENSOR_LIGHT);
	SetSensor(SENSOR_3,SENSOR_LIGHT);
	while(true)
	  {
	     if(SENSOR_1<pika&&SENSOR_3>pika)
	       {
	       stop morudau;
              migi;
	       Wait(11);
              }
	     if(SENSOR_1>pika&&SENSOR_3<pika)
	       {
	       stop morudau;
              hidari;
	       Wait(11);
	       }
	     if(SENSOR_1<pika&&SENSOR_3<pika)
	       {    
            while(SENSOR_1<pika||SENSOR_3<pika)
                 {
                 start morudau;
                 migi;
	          Wait(11);
	          until(SENSOR_1>pika||SENSOR_3>pika);
	          }
              }
 	     if(SENSOR_1>pika&&SENSOR_3>pika)
 	       {
 	       stop morudau;
	       zen;
	       }
         }
 }
*もるだうところぶちか.ver [#ecbdfcbb]
制作日時：７月６日
 #define pika 36
 #define zen OnFwd(OUT_A+OUT_B);
 #define hidari OnFwd(OUT_C);OnRev(OUT_A);
 #define migi OnFwd(OUT_A);OnRev(OUT_C);
 
 #define C  523
 #define Ces 554
 #define D  587
 #define Des 622
 #define E  659
 #define F  698 
 #define Fes 740
 #define G 784
 #define Ges 831
 #define A 880 
 #define Aes 932
 #define H 988
 #define C8th  1047
 #define C8thes 1109
 
 task morudau()
 {
 while(true)
   {
   PlayTone(C,20); Wait(20);
   PlayTone(F,35); Wait(40);
   PlayTone(G,20); Wait(20);
   PlayTone(Ges,35); Wait(40);
   PlayTone(Aes,18); Wait(20);
   PlayTone(C8th,35); Wait(40);
   PlayTone(C8th,16); Wait(20);
   PlayTone(C8th,55); Wait(60);
   PlayTone(C8thes,55); Wait(60);
   PlayTone(C8thes,55); Wait(60);
   PlayTone(C8th,90); Wait(100);
 
   PlayTone(C8th,18); Wait(20);
   PlayTone(Aes,38); Wait(40);
   PlayTone(C8th,18); Wait(20);
   PlayTone(Aes,38); Wait(40); 
   PlayTone(Aes,18); Wait(20); 
   PlayTone(Ges,38); Wait(40);
   PlayTone(Aes,18); Wait(20);
   PlayTone(Ges,58); Wait(60);
 
   PlayTone(G,58); Wait(60);
   PlayTone(G,58); Wait(60);
   PlayTone(F,118); Wait(120);
 
   Wait(200);
   }
 }
 
 task  korobu()
 {
   while(true)
   {
   PlayTone(A,35); Wait(40);
   PlayTone(E,15); Wait(20);
   PlayTone(F,15); Wait(20);
   PlayTone(G,35); Wait(40);
   PlayTone(A,2); Wait(2);
   PlayTone(G,3); Wait(3);
   PlayTone(F,12); Wait(15);
   PlayTone(E,15); Wait(20);
   PlayTone(D,35); Wait(40);
   PlayTone(D,15); Wait(20);
   PlayTone(F,15); Wait(20);
   PlayTone(A,35); Wait(40);
   PlayTone(H,2); Wait(2);
   PlayTone(A,3); Wait(3);
   PlayTone(G,12); Wait(15);
   PlayTone(F,15); Wait(20);
   PlayTone(E,35); Wait(40);
   PlayTone(E,15); Wait(20);
   PlayTone(F,15); Wait(20);
   PlayTone(G,35); Wait(40);
   PlayTone(A,35); Wait(35);
   PlayTone(F,35); Wait(40);
   PlayTone(D,35); Wait(40);
   PlayTone(D,75); Wait(80);
   Wait(80);
   }
 }
 task main()
 {
	SetSensor(SENSOR_1,SENSOR_LIGHT);
	SetSensor(SENSOR_3,SENSOR_LIGHT);
	while(true)
	  {
	     if(SENSOR_1<pika&&SENSOR_3>pika)
	       {
              migi;
	       Wait(11);
              }
	     if(SENSOR_1>pika&&SENSOR_3<pika)
	       {
              hidari;
	       Wait(11);
	       }
	     if(SENSOR_1<pika&&SENSOR_3<pika)
	       {    
            while(SENSOR_1<pika||SENSOR_3<pika)
                 {
                 start morudau;
                 stop korobu;
                 migi;
	          Wait(11);
	          until(SENSOR_1>pika||SENSOR_3>pika);
	          }
              }
 	     if(SENSOR_1>pika&&SENSOR_3>pika)
 	       {
 	       stop morudau;
 	       start korobu;
	       zen;
	       }
         }
 }