2006b/A5/課題１右 の履歴ソース(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2006b/A5/課題１右 へ行く。
  • 1 (2006-11-23 (木) 02:00:06)
  • 2 (2006-12-06 (水) 05:57:30)
  • 3 (2006-12-07 (木) 05:53:41)
  • 4 (2006-12-07 (木) 06:05:29)
  • 5 (2006-12-07 (木) 13:27:36)
  • 6 (2006-12-08 (金) 01:51:24)

&ref(2006b/A5/書道ロボット(A5R)/cimg0131_Medium.jpg,50%,田);~
~
まずまずの出来でしょうか。~
均整のとれた四角を書けるように調整したのですが、~
紙の摩擦によって、回転の角度が異なってしまうので難しかったです。~
~
&ref(2006b/A5/書道ロボット(A5R)/cimg0132_Medium.jpg,50%,機体);~

&ref(2006b/A5/書道ロボット(A5R)/cimg0133_Medium.jpg,50%,機体);~
~
今回の課題で一番工夫した点は、ペンのリフト部分です。~
マインドストームを個人で創作している人のサイトを見て、参考にさせてもらったのですが、写真を見ながらの組み立てだったので苦労しました。

 #define move_time  11
 
 task main()
 {
    Wait(150);
    
    OnRev(OUT_B);
    Wait(move_time);         // 一画目、ペンを下ろす
    Off(OUT_B); 
    Wait(100);
 
    OnRev(OUT_A+OUT_C);
    Wait(130);                   
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_B);
    Wait(move_time);          //  ペンを上げる
    Off(OUT_B);
    Wait(100);
    
    OnFwd(OUT_A+OUT_C);
    Wait(158);                     //　元に戻ります
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
    
    
    
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(100);                         // 二画目へ、方向転換
    Off(OUT_A+OUT_C);
    Wait(100);
   
    OnRev(OUT_A+OUT_C);
    Wait(35);                           // 微調整をします 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
    
    
    
    OnRev(OUT_B);
    Wait(move_time);        // 　二画目、ペンを下ろす
    Off(OUT_B);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(130);
    Off(OUT_A+OUT_C);      //      
    Wait(100);
        
    OnFwd(OUT_B);
    Wait(move_time);
    Off(OUT_B);          //       ペンを下ろす
    Wait(100);
 
 
 
 
 
 
 
    
    OnFwd(OUT_A+OUT_C);
    Wait(35);                   //  微調整をします
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(106);                // 方向転換 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(35);                 // 微調整 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
    
    
    
    
    
    
    OnRev(OUT_B);
    Wait(move_time);       // ２−２画目、ペンを下ろす
    Off(OUT_B);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(130);
    Off(OUT_A+OUT_C);     
    Wait(100);
        
    OnFwd(OUT_B);
    Wait(move_time);      // ２−２画目、ペンを上げる
    Off(OUT_B);
    Wait(100);
   
   
   
   
   
   
   
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(25);             // 方向転換 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A+OUT_C);
    Wait(153);                
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(28);            // 方向転換 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(14);            // 微調整 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
    
    
    
    
    
    
    
    OnRev(OUT_B);
    Wait(move_time);        //   ３画目、ペンを下ろす
    Off(OUT_B);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(130);           
    Off(OUT_A+OUT_C);    
    Wait(100);
    
    OnFwd(OUT_B);
    Wait(move_time);          // ペンを上げる
    Off(OUT_B);
    Wait(100);
    
    
    
    
    
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(18);                   // 方向転換
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A+OUT_C);
    Wait(115);
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(81);                //  方向転換 
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
   OnRev(OUT_A+OUT_C);
    Wait(5);
    Off(OUT_A+OUT_C);
    Wait(100);
   
    
    OnRev(OUT_B);
    Wait(move_time);            ペンを下げる
    Off(OUT_B);
    Wait(100);
    
    OnRev(OUT_A+OUT_C);
    Wait(130);
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_B);
    Wait(move_time);          
    Off(OUT_B);
    Wait(100);
    
    OnFwd(OUT_C);
    OnRev(OUT_A);
    Wait(34);                  // 方向転換
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A+OUT_C);
    Wait(130);
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A);
    OnRev(OUT_C);
    Wait(37);                 // 方向転換
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_A+OUT_C);
    Wait(17);
    Off(OUT_A+OUT_C);
    Wait(100);
    
    
   OnRev(OUT_B);
    Wait(move_time);         // ペンを下ろす
    Off(OUT_B); 
    Wait(100);
 
    
    OnRev(OUT_A+OUT_C);
    Wait(135);
    Off(OUT_A+OUT_C);
    Wait(100);
    
    OnFwd(OUT_B);
    Wait(move_time);         // ペンを上げる
    Off(OUT_B); 
    Wait(100);
 
    
    
    }



・よくできた点~
~
ペンの装着部分をインターネットで紹介されていたモデルを参考に改良することができた。~
よくできた点ではないが,  Wait(100)  を毎動作後に入れることで、間がうまれ、ロボットらしい動きになった。＾＾~
~
・苦労した点~
各線をぴったり合わせるよう微調整するのに、なかなか合わず何度もプログラムを書き直すはめになってしまった。~
~
・改善すべき点~
（苦労した点に対して）ATさんから指摘されたが、より線どうしをぴったり合わせるようにするには、一度通った道（書いた線）をたどればよいということを教えてもらった。~
~
よろしければコメントをお願いします。
#comment