2005/B2/ロボコンめも
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2005/B2]]
・ロボコンのプログラムに関するめも
sub cub()
{
OnFwd(OUT_A+OUT_C);
while((SENSOR_1 > 50) || (SENSOR_3 > 50))
{
if (SENSOR_1 < 50)
{
OnFwd(OUT_C);OnRev(OUT_A);
}
if (SENSOR_3 < 50)
{
OnFwd(OUT_A);OnRev(OUT_C);
}
if ((SENSOR_1 > 50) && (SENSOR_3 > 50))
{
OnFwd(OUT_A+OUT_C);
}
}
Off(OUT_A+OUT_C);
}
task main()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_3, SENSOR_LIGHT);
OnFwd(OUT_A+OUT_C);
until((SENSOR_1< 50) && (SENSOR_3 < 50));
OnFwd(OUT_A+OUT_C);Wait(40);
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);
cub();
OnFwd(OUT_A+OUT_C);Wait(30);
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);
OnFwd(OUT_A+OUT_C);Wait(50);
OnFwd(OUT_A+OUT_C);Wait(100);
Off(OUT_A+OUT_C);Wait(200);
OnFwd(OUT_A);OnRev(OUT_C);Wait(200);
OnFwd(OUT_A+OUT_C);Wait(50);
cub();
Off(OUT_A+OUT_C);
}
終了行:
[[2005/B2]]
・ロボコンのプログラムに関するめも
sub cub()
{
OnFwd(OUT_A+OUT_C);
while((SENSOR_1 > 50) || (SENSOR_3 > 50))
{
if (SENSOR_1 < 50)
{
OnFwd(OUT_C);OnRev(OUT_A);
}
if (SENSOR_3 < 50)
{
OnFwd(OUT_A);OnRev(OUT_C);
}
if ((SENSOR_1 > 50) && (SENSOR_3 > 50))
{
OnFwd(OUT_A+OUT_C);
}
}
Off(OUT_A+OUT_C);
}
task main()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_3, SENSOR_LIGHT);
OnFwd(OUT_A+OUT_C);
until((SENSOR_1< 50) && (SENSOR_3 < 50));
OnFwd(OUT_A+OUT_C);Wait(40);
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);
cub();
OnFwd(OUT_A+OUT_C);Wait(30);
OnFwd(OUT_C);OnRev(OUT_A);Wait(200);
OnFwd(OUT_A+OUT_C);Wait(50);
OnFwd(OUT_A+OUT_C);Wait(100);
Off(OUT_A+OUT_C);Wait(200);
OnFwd(OUT_A);OnRev(OUT_C);Wait(200);
OnFwd(OUT_A+OUT_C);Wait(50);
cub();
Off(OUT_A+OUT_C);
}
ページ名: