2005/C3/しまず/2 の履歴の現在との差分(No.1)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 2005/C3/しまず/2 へ行く。
  • 1 (2005-11-25 (金) 10:09:48)
  • 2 (2005-11-25 (金) 10:37:24)

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

[[[  戻る  ]>2005/C3/しまず]]       

それでは成功したプログラムを!!!
*プログラム(成功) [#e75641bc]
 sub down_pen()
 {
     OnFwd(OUT_B);
    Wait(70);
    Off(OUT_B);
 }
 
 sub up_pen()
 {
    OnRev(OUT_B);
    Wait(67);
    Off(OUT_B);
 }
 
 sub turn_R()
 {
    OnFwd(OUT_C);
    OnRev(OUT_A);
 }
 
 sub turn_L()
 {
    OnFwd(OUT_A);
    OnRev(OUT_C);
 }
 
 
 task main()
 {
    down_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(25);
    Float(OUT_A+OUT_C);
    up_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(12);
    Float(OUT_A+OUT_C);
    turn_R();
    Wait(100);
    Off(OUT_A+OUT_C);
    down_pen();
    OnRev(OUT_A+OUT_C);
    Wait(68);
    Float(OUT_A+OUT_C);
    up_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(60);
    Float(OUT_A+OUT_C);
    turn_R();
    Wait(100);
    Off(OUT_A+OUT_C);
    OnRev(OUT_A+OUT_C);
    Wait(22);
    Float(OUT_A+OUT_C);
    down_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(34);
    Float(OUT_A+OUT_C);
    OnFwd(OUT_C);
    Wait(34);
    Float(OUT_C);
    up_pen();
    turn_L();
    Wait(98);
    Off(OUT_A+OUT_C);
    OnRev(OUT_A+OUT_C);
    Wait(12);
    Float(OUT_A+OUT_C);
    down_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(43);
    Float(OUT_A+OUT_C);
    up_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(7);
    Float(OUT_A+OUT_C);
    turn_L();
    Wait(100);
    Off(OUT_A+OUT_C);
    OnRev(OUT_A+OUT_C);
    Wait(9);
    Float(OUT_A+OUT_C);
    down_pen();
    OnRev(OUT_A+OUT_C);
    Wait(40);
    Float(OUT_A+OUT_C);
    up_pen();
    OnFwd(OUT_A+OUT_C);
    Wait(56);
    Float(OUT_A+OUT_C);
    turn_L();
    Wait(84);
    Off(OUT_A+OUT_C);
    OnRev(OUT_A+OUT_C);
    Wait(3);
    Float(OUT_A+OUT_C);
    down_pen();
    OnRev(OUT_A+OUT_C);
    Wait(47);
    Float(OUT_A+OUT_C);
    
    
    
    
    
    
 }
CENTER:[[[  戻る  ]>2005/C3/しまず]]