2005/A1/課題４左 の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 2005/A1/課題４左 へ行く。
  • 1 (2006-02-09 (木) 12:04:50)
  • 2 (2006-02-09 (木) 14:14:47)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[2005/A1]]

#define freq 5 //センサ測定頻度

#define maxrot 20//一周に必要な測定回数 int l; int w; int lgt; int cnt; int turn; int back;

task main () {

	SetSensor(SENSOR_1, SENSOR_LIGHT); 	//センサ種別指定
	w=freq;
	l=0;
	for (cnt=1; cnt<=maxrot; cnt++)	
		{
		OnFwd(OUT_A); OnRev(OUT_C); Wait(w);Off(OUT_A+OUT_C);	//w/100秒間回転
		if (l <= SENSOR_1 )	//前の場所より明るかったら
			{
			l = SENSOR_1;	//明るさの最大値を更新
			lgt=cnt;
			PlaySound(SOUND_CLICK) ;
			Wait(10);
			Wait(50);
			}
		else{PlaySound(SOUND_DOUBLE_BEEP) ;
			Wait(10);
			Wait(50);
		}	
			
		}
	PlaySound(SOUND_DOUBLE_BEEP) ;
	back=maxrot;
	back=back-lgt;
	repeat(back)
		{	
		OnFwd(OUT_C); OnRev(OUT_A); Wait(w);Off(OUT_A+OUT_C);	//光源まで回転
		PlaySound(SOUND_FAST_UP) ;
			Wait(10);
			Wait(50);			
		}