[[ロボティクス入門ゼミ]]
 
 *テストページ
*テストページ [#g904ffe5]
 
 +りんご
 +もも
 +みかん
+りんご
+もも
+みかん
 
 食べる方じゃなくて ゆずが好きです。
 ask main()
 {
     repeat(2){
         OnFwd(OUT_A+OUT_C);Wait(200);
         OnRev(OUT_C);
         Wait(100);
         OnFwd(OUT_A+OUT_C);Wait(200);
         }
         Float(OUT_A+OUT_C);


 *6月2日
*6月2日 [#r65266f3]
 

 task main(){
    SetSensor(SENSOR_1, SENSOR_TOUCH);
    while(true)
    {
        OnFwd(OUT_A+OUT_C) ;
        until (SENSOR_1 == 1) ;
        OnRev(OUT_A+OUT_C) ; Wait(50); 
        OnFwd(OUT_A) ; Wait(150);      
                                       
                                   
        OnFwd(OUT_C);                  
    }
 }


 *6月14日一応保存
*6月14日一応保存 [#xe97239b]
 
 #define THRESHOLD 40  
 task main ()
 {
  SetSensor(SENSOR_1, SENSOR_LIGHT);
  SetSensor(SENSOR_3, SENSOR_LIGHT);
  SetSensor(SENSOR_2, SENSOR_TOUCH);
   
   while (true) 
   {
       if (SENSOR_3  < THRESHOLD)           
       {
           OnFwd(OUT_A );Wait(30);
           Off(OUT_C);
       } 
       if (SENSOR_1, < THRESHOLD)           
       {
           OnFwd(OUT_C);Wait(30);
           Off(OUT_A);
       }
       if (SENSOR_2==1 )
      {
          OnFwd(OUT_A);OnRev(OUT_C);Wait(70);    
          OnFwd(OUT_C);Wait(30);
          OnFwd(OUT_C);OnRev(OUT_A);Wait(70);
          OnFwd(OUT_A);Wait(200);
          OnFwd(OUT_C);OnRev(OUT_A);Wait(90);
          OnFwd(OUT_A);
           
      }
        
    }
   }  

 
*7月7日 [#e208ca3e]

 #define  Do  523
 #define  Re   584
 #define  Mi    659
 #define  Fa   698
 #define  Sol  784
 #define  Ra   880
 #define  Si    988
 #define  Do  1047
  
  task play_music()   
  {
     while (true)
     {
   
         PlayTone(Do, 10; Wait(10);  
         PlayTone(Do,10); Wait(10);  
         PlayTone(Sol,10); Wait(10);
         PlayTone(Sol,10); Wait(10);
         PlayTone(Ra,10); Wait(10);     
         PlayTone(Ra,10); Wait(10);
         PlayTone(Sol,20); Wait(20);
         PlayTone(Fa,5); Wait(5);
         PlayTone(Fa,5; Wait(5);
         PlayTone(Mi,5; Wait(5);
         PlayTone(Mi,5); Wait(5);
         PlayTone(Re,5); Wait(5);
         PlayTone(Re, 5); Wait(5);
         PlayTone(Do,15); Wait(15);
         
         
     }
 }
 
 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);     
 }


 #define  Do  523
 #define  Re   584
 #define  Mi    659
 #define  Fa   698
 #define  Sol  784
 #define  Ra   880
 #define  Si    988
 
  
  task play_music()   
  {
     while (true)
     {
  
        PlayTone(Do, 10); Wait(15);  
        PlayTone(Do,10); Wait(15);  
        PlayTone(Sol,10); Wait(15);
        PlayTone(Sol,10); Wait(15);
        PlayTone(Ra,10); Wait(15);     
        PlayTone(Ra,10); Wait(15);
        PlayTone(Sol,20); Wait(25);
        PlayTone(Fa,5); Wait(10);
        PlayTone(Fa,5); Wait(15);
        PlayTone(Mi,5); Wait(10);
        PlayTone(Mi,5); Wait(10);
        PlayTone(Re,5); Wait(10);
        PlayTone(Re, 5); Wait(10);
        PlayTone(Do,15); 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