2005/B3/課題5右
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
制作者:B3R
曲:チャルメラ
ロボ:左右の手を曲に合わせてグルグル回して踊るロボットと曲を流しながら指揮を振るロボ
感想:曲のリズムを調節するのが大変だった。指揮と曲とロボの動きを合わせるのが難しかった。
*踊るロボのプログラム [#xe6578f9]
#define Do 523 [#g82c71ca] /ドレミの周波数を定義
#define Re 587 /同上
#define Mi 659 /同上
task play_music() /チャルメラの音楽を定義
{
while (true)
{
PlayTone(Do,25); Wait(10);
PlayTone(Re,25); Wait(10);
PlayTone(Mi,70); Wait(20);
PlayTone(Re,25); Wait(10);
PlayTone(Do,35); Wait(200);
PlayTone(Do,70); Wait(10);
PlayTone(Re,25); Wait(15);
PlayTone(Mi,25); Wait(10);
PlayTone(Re,25); Wait(10);
PlayTone(Do,25); Wait(15);
PlayTone(Re,100); Wait(300);
}
}
task main()
{
ClearTimer(0); /タイマーをクリア
while ( Timer(0) <= 50 ) { SendMessage(1); } /5秒間メッセージ1を送る
start play_music ; /音楽スタート
OnFwd(OUT_A); /指揮をふる
Wait(1500); /15秒間
stop play_music ; /音楽中止
Off(OUT_A);
}
*曲を流し指揮をふるロボのプログラム [#d7aac8d1]
#define odoru /マクロodoruを定義
OnFwd(OUT_A);OnRev(OUT_C);Wait(1450);Off(OUT_A+OUT_C);
task main (){
while (true)
{
ClearMessage(); /メッセージクリア
until (Message() != 0);
if ( Message() == 1 ) /メッセージ1を受信
Wait(510); /5.1秒間待つ
odoru; /踊りスタート
}}
終了行:
制作者:B3R
曲:チャルメラ
ロボ:左右の手を曲に合わせてグルグル回して踊るロボットと曲を流しながら指揮を振るロボ
感想:曲のリズムを調節するのが大変だった。指揮と曲とロボの動きを合わせるのが難しかった。
*踊るロボのプログラム [#xe6578f9]
#define Do 523 [#g82c71ca] /ドレミの周波数を定義
#define Re 587 /同上
#define Mi 659 /同上
task play_music() /チャルメラの音楽を定義
{
while (true)
{
PlayTone(Do,25); Wait(10);
PlayTone(Re,25); Wait(10);
PlayTone(Mi,70); Wait(20);
PlayTone(Re,25); Wait(10);
PlayTone(Do,35); Wait(200);
PlayTone(Do,70); Wait(10);
PlayTone(Re,25); Wait(15);
PlayTone(Mi,25); Wait(10);
PlayTone(Re,25); Wait(10);
PlayTone(Do,25); Wait(15);
PlayTone(Re,100); Wait(300);
}
}
task main()
{
ClearTimer(0); /タイマーをクリア
while ( Timer(0) <= 50 ) { SendMessage(1); } /5秒間メッセージ1を送る
start play_music ; /音楽スタート
OnFwd(OUT_A); /指揮をふる
Wait(1500); /15秒間
stop play_music ; /音楽中止
Off(OUT_A);
}
*曲を流し指揮をふるロボのプログラム [#d7aac8d1]
#define odoru /マクロodoruを定義
OnFwd(OUT_A);OnRev(OUT_C);Wait(1450);Off(OUT_A+OUT_C);
task main (){
while (true)
{
ClearMessage(); /メッセージクリア
until (Message() != 0);
if ( Message() == 1 ) /メッセージ1を受信
Wait(510); /5.1秒間待つ
odoru; /踊りスタート
}}
ページ名: