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
Last-modified: 2006-02-03 (金) 21:03:30 (4946d)