[[[  戻る  ]>2005/C3/しまず]]           [[[  次へ  ]>2005/C3/しまず]]  
[[[  戻る  ]>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/しまず]]

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS