2005/B6

 明日がロボコン本番です。しかし、プログラムもマシンも出来てません。狂気の沙汰ほど面白い!(違  と、いうわけでここは愚痴のコーナーになりました。  まあ、一応途中のプログラムを載っけておきます〜。

sub first
{
OnFwd(OUT_A);
OnRev(OUT_C);
Wait();
OnFwd(OUT_A+OUT_C);
Wait();
OnRev(OUT_A);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait();
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait();
OnFwd(OUT_C);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
Wait()
OnRev(OUT_B);
}

sub second
{
OnFwd(OUT_A);
OnRev(OUT_C);
Wait();
OnFwd(OUT_A+OUT_C);
Wait();
OnRev(OUT_A);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait();
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait();
OnFwd(OUT_C);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
Wait()
OnRev(OUT_B);
}

sub third
{
OnFwd(OUT_A);
OnRev(OUT_C);
Wait();
OnFwd(OUT_A+OUT_C);
Wait();
OnRev(OUT_A);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
OnFwd(OUT_B);
Wait();
Off(OUT_B);
OnRev(OUT_A+OUT_C);
Wait();
OnFwd(OUT_C);
Wait();
OnFwd(OUT_A);
Wait();
Off(OUT_A+OUT_C);
Wait()
OnRev(OUT_B);
}  

task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_2,SENSOR_TOUCH);
SetSensor(SENSOR_3,SENSOR_LIGHT);


OnFwd(OUT_A+OUT_C);
Wait();
OnFwd(OUT_B);
Wait();
OnRev(OUT_A+OUT_C);
Wait();
OnFwd(OUT_C);
OnRev(OUT_A);
Wait();
OnFwd(OUT_A+OUT_C);
Wait();
Off(OUT_A+OUT_C);
OnRev(OUT_B);
SendMessage(i);
until (Message() != 0);
if ( Message() == 1 ) 
}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-06 (月) 14:48:41