2005/A1

個人的なメモ兼うpろだ

メッセージ受信テストプログラム

task main()
{
	while(true)
	{
		ClearMessage(); //メッセージ初期化
		until (Message() != 0); //メッセージ受信待機
		
		if ( Message() == 1 ) PlaySound(SOUND_DOWN);  //メッセージ1を受信時にSOUND_DOWNをならす
		if ( Message() == 2 ) PlaySound(SOUND_UP);  //メッセージ1を受信時にSOWND_UPをならす
	}
}

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

}



添付ファイル: filezzzzz.nqc.txt 193件 [詳細] filemaxb.nqc.txt 177件 [詳細] fileimg_0246_Large.jpg 147件 [詳細] filesound.txt 176件 [詳細] fileaaa.nqc 131件 [詳細] filehitotudakehakoboutoshitaP.nqc 125件 [詳細] file3kohairowakeoshiyoutoshitaP.nqc 147件 [詳細] filerecive.nqc 135件 [詳細]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-16 (木) 12:34:00