[[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);
}	


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