2005/C4

演奏するロボット

ロボットの特徴

演奏するロボットはプログラムが入っている以外はとくに何も 改造されてはいない。

演奏するプログラム

#define WHOLE_NOTE	100
#define HALF_NOTE	( WHOLE_NOTE / 2 )
#define QUARTER_NOTE	( WHOLE_NOTE / 4 )
#define EIGHTH_NOTE	( WHOLE_NOTE / 8 )
#define SIXTEENTH_NOTE	( WHOLE_NOTE / 16 )
task main()
{       
         ClearMessage();
	 until(Message() != 0);
	 Wait(50);
	 if ( Message() == 1);
	
	 PlayTone( 195, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 195, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 293, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 293, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 329, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 329, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 293, WHOLE_NOTE );
	 Wait( WHOLE_NOTE );
	 Wait( WHOLE_NOTE );
	 PlayTone( 261, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 261, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 246, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 246, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 220, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 220, HALF_NOTE );
	 Wait( HALF_NOTE );
	 Wait( HALF_NOTE );
	 PlayTone( 195, WHOLE_NOTE );
	 Wait( WHOLE_NOTE );
	 ClearTimer(0);
	 ClearMessage();
	 while( Timer(0) <=10){
	 SendMessage(1);
	 }
}

苦労した点

音楽の知識と才能が皆無なので、プログラムやロボット以前に曲の決定から手間取ってしまった。結局簡単なきらきら星になった。

踊るロボット 

ロボットの特徴

このロボットには顔と音楽に合わせて踊るための腕がついている。

踊るプログラム

task main()
{
	ClearTimer(0);
	while ( Timer(0) <=10){SendMessage(1);}
	
	
	OnFwd(OUT_A);
	Wait(30);
	OnRev(OUT_C);
	Wait(30);
	OnFwd(OUT_C);
	Wait(30);
	OnRev(OUT_A);
	Wait(30);
	ClearMessage();
	until (Message() != 0);
	if( Message() == 1){
	Off(OUT_A+OUT_C);
	}
}

苦労した点

音楽に合わせて腕を動かすようにしたが、通信のプログラムを間違えて、腕が止まらなくなってしまって大変だった。結局は送信側で送信する番号を間違えていたという簡単なミスだった。


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-02-08 (水) 18:52:37 (4940d)