[[2006a/B4]]

*プログラミングとの戦い [#n8873b4c]
**プログラミングと私 [#j01819df]

-HPを作ろうと某会社と契約したものの、HTMLが理解できずにそのまま放置してしまった私。

-一度は挫折したプログラミングでしたが、『せっかく大学に入ったんだから新しい事をしてみよう』と、思い切って受講してみる事に。


**プログラミング [#bd480457]
-[[2006a/B4/多角形]](練習問題)
-[[2006a/B4/『木』]]
-[[2006a/B4/itou/多角形]](練習問題)
-[[2006a/B4/itou/『木』]](課題1)
-[[2006a/B4/itou/センサー]](課題2)


***『木』を書くロボット(ただいま製作中) [#r329cc9b]
    
-ロボコン試作(途中まで)(缶をとってくるロボット)
 #define  turn_right OnFwd(OUT_A);OnRev(OUT_C);
 #define  turn_left OnRev(OUT_A);OnFwd(OUT_C);
 #define  go  OnFwd(OUT_A+OUT_C);
 #define  back OnRev(OUT_A+OUT_C);
 #define  stop_turn Off(OUT_A+OUT_C);
 task main ()
 {
  OnFwd (OUT_A+OUT_C);
  Wait(250);
  Off (OUT_A+OUT_C);
  OnRev(OUT_B);
  Wait(50);
  Off(OUT_B);
  SetSensor(SENSOR_1,SENSOR_TOUCH);
 
  
  OnRev (OUT_A+OUT_C);
  Wait (125);
  OnFwd (OUT_A);OnRev (OUT_C);
  Wait (90);
  Off(OUT_A+OUT_C);
  ClearTimer(0);
  
  OnRev (OUT_A+OUT_C);
  Wait (125);
  Off (OUT_A+OUT_C);
  go;
  until (SENSOR_1=1)
  back;
  Wait(FastTimer(0)/2);
  
  OnFwd(OUT_B);
  Wait(50);
  OnFwd (OUT_A+OUT_C);
  Wait (300);
  Off (OUT_A+OUT_C); 
  turn_right;
  Wait(25);
  
  ClearTimer(0);
  
  go;
  until (SENSOR_1=1)
  back;
  Wait(FastTimer(0)/3);
  
  turn_right;
  Wait(25);
  go;
  until(SENSOR_1=1);
 
  back;
  Wait(20);
  turn_right;
  Wait(25);
  stop_turn;
  
  back;
  Wait(20);
  OnRev(OUT_B);
  Wait(50);
  Off(OUT_B);
  Wait(20);//缶をつかむ
  
  OnRev (OUT_A+OUT_C);
  Wait (175);
  OnFwd (OUT_A);OnRev (OUT_C);
  Wait (45);
  Off (OUT_A+OUT_C);
  
  
  
  
  
  
  
  
  Off(OUT_A;OUT_C);
  }
  

-ロボコン試作(缶を受け取ってゴールするロボット) 
  #define  turn_right OnFwd(OUT_A);OnRev(OUT_C);
 #define  turn_left OnRev(OUT_A);OnFwd(OUT_C);
 #define  go  OnFwd(OUT_A+OUT_C);
 #define  back OnRev(OUT_A+OUT_C);
 #define  stop_turn Off(OUT_A+OUT_C);
 task main ()
 {
  SetSensor(SENSOR_1,SENSOR_TOUCH);
   
  until(SENSOR_1=1);
  back;
  Wait(20);
  turn_right;
  Wait(25);
  back;
  Wait(20);
  OnFwd(OUT_B);
  Wait(50);
  Off(OUT_B);
  Wait(17);
  
  repeat(15)
 {
     OnFwd(OUT_A+OUT_C);
     Wait(20);
     Off(OUT_C);
     Wait(3);
 }
  ClearTimer(0);
  
  go;
  until (SENSOR_1=1)
  back;
  Wait(FastTimer(0)/2);
  
  turn_left;
  Wait(25);
  
  ClearTimer(0);
  
  go;
  until (SENSOR_1=1)
  back;
  Wait(FastTimer(0)/3);
  
  turn_right;
  Wait(25);
  Off(OUT_A+OUT_C);
  Wait(30);
  OnRev(OUT_B);
  Wait(50);
  Off(OUT_B);
  Wait(17);
  
  repeat(15)
  back;
  Wait(40);
  Off(OUT_A+OUT_C);
  }
   
 


 #define  turn_right OnFwd(OUT_A);OnRev(OUT_C);
 #define  turn_left OnRev(OUT_A);OnFwd(OUT_C);
 #define  go  OnFwd(OUT_A+OUT_C);
 #define  back OnRev(OUT_A+OUT_C);
 #define  stop_turn Off(OUT_A+OUT_C);

 task main ()
 {
     OnRev(OUT_A+OUT_C);
     Wait(20);
     Off(OUT_A);
     Wait(3);
 }
  
  OnFwd (OUT_C);OnRev (OUT_A);
  Wait (90);
  Off (OUT_A+OUT_C);
  SetSensor(SENSOR_1,SENSOR_TOUCH);

  until(SENSOR_1==1);
  back;
  Wait(20);
  turn_right;
  Wait(30);
  back;
  Wait(20);
  OnFwd(OUT_B);
  Wait(50);
  Off(OUT_B);
  Wait(17);
  
  repeat(12)
 {
    OnRev(OUT_A+OUT_C);
    Wait(20);
    Off(OUT_A);
    Wait(3);
  ClearTimer(0);
  
  go;
  until (SENSOR_1==1);
  back;
  Wait(FastTimer(0)/2);
  
  turn_left;
  Wait(25);
  
  ClearTimer(0);
  
  go;
  until (SENSOR_1==1);
  back;
  Wait(FastTimer(0)/3);
  
  turn_right;
  Wait(25);
  Off(OUT_A+OUT_C);
  Wait(30);
  OnRev(OUT_B);
  Wait(17);
  
  back;
  Wait(40);
  Off(OUT_A+OUT_C);
  }
 
  repeat(3)
  {
    OnRev(OUT_A+OUT_C);
    Wait(15);
    Off(OUT_C);
    Wait(5);
    
   }
  }

[[ステップ2]]


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS