2005/B2/課題１右 の履歴の現在との差分(No.3)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 2005/B2/課題１右 へ行く。
  • 1 (2006-01-06 (金) 08:38:54)
  • 2 (2006-02-08 (水) 15:19:31)
  • 3 (2008-03-19 (水) 09:10:29)
  • 4 (2008-03-20 (木) 09:00:19)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[2005/B2/MemberOnly/書道ロボット：左]]

 int mt;//130detyokkau
 sub tr()//右回り
 {
    OnRev(OUT_A); OnFwd(OUT_C);
    Wait(mt);
    Off(OUT_A+OUT_C);
 }
 sub tl()//左回り
 {
    OnRev(OUT_C); OnFwd(OUT_A);
    Wait(mt);
    Off(OUT_A+OUT_C);
 }
 sub kabu()//2画目
 {
    OnFwd(OUT_A+OUT_C);Wait(30);
    repeat(20){
    OnFwd(OUT_A+OUT_C);Wait(10);
    OnRev(OUT_A);OnFwd(OUT_C);Wait(1);
    }
 }
 sub up()//ペンを上げる
 {
    OnRev(OUT_B);Wait(20);
    Off(OUT_B);
 }
 sub down()//ペンを下げる
 {
    OnFwd(OUT_B);Wait(40);
    Off(OUT_B);
 }  
 task main()
 {
    OnFwd(OUT_B);Wait(10);
    Off(OUT_B);    
    OnFwd(OUT_A+OUT_C);Wait(200);//1画目
    up();
    
    mt = 210;
    tl();
    OnFwd(OUT_A+OUT_C);Wait(150);
    mt = 150;
    tl();
    down();
    kabu();//2画目
    up();
  
    mt = 200;
    tr();
    OnFwd(OUT_A+OUT_C);Wait(100);
    mt = 80;
    tr();
    down();
    OnFwd(OUT_A+OUT_C);Wait(100);//3画目
    up();
  
    mt = 240;
    tl();
    OnFwd(OUT_A+OUT_C);Wait(70);
    mt = 120;
    tl();
    down();
    OnFwd(OUT_A+OUT_C);Wait(50);//4画目
    up();
  
    mt = 120;
    tr();
    OnFwd(OUT_A+OUT_C);Wait(70);
    mt = 240;
    tr();
    down();
    OnFwd(OUT_A+OUT_C);Wait(120);//5画目
    up();
  
   Off(OUT_A+OUT_C);
}
-[[ここ>まいける(TA)#y8259022]]を参照して下さい。 -- [[まいける(TA)]] &new{2006-02-09 (木) 00:19:31};
- Best of the best:http://casodex.hit.bg/http://casodex.hit.bg/http://carrental.free-site-host.com/http://ansaid.hit.bg/http://accupril1.t35.com/http://xanax.freewebsitehosting.com/http://freewebs.com/cardizem/http://freewebs.com/casodex/Buy! -- [[Bonney]] &new{2008-03-19 (水) 18:10:29};

#comment