- 追加された行はこの色です。
- 削除された行はこの色です。
[[2006a/C4]]
*課題3 光を追いかけるロボット [#u80c6f5f]
#contents
**ロボットの特徴 [#z504a700]
-ベースはテキストに載っているものを使用&br;
-光センサを一個搭載させている&br;
-光センサを一個(プログラムによっては二個)搭載させている&br;
**ロボットの製作過程 [#x70a809e]
-6月30日:課題2のロボットを分解しつつ、課題3のロボットの構成を考える。&br;課題3はプログラムが重要と判断し、ロボットはとりあえずテキストに載っているベースを使用したものにする。&br;
-7月1日:光センサを二個搭載させたロボットが完成する。&br;光センサを二個用いたプログラムが完成しないため、光センサを一個にしたロボットにする。&br;
-7月5日:再び光センサを二個搭載させたものにする。
**プログラムの製作過程 [#ja243433]
-6月30日:光を追いかけるにはどうすればいいか考える。この日はまったく見当がつかず、終了する。&br;
-7月1日:Timer,whileを使用したプログラムを考えてみる。光センサを二個用いたプログラムが完成せず、やむを得ず光センサを一個にしてプログラムを考える。&br;何度か調整をした結果、光を追いかけるプログラムが完成する。&br;
-7月2日:曲のプログラムの製作に取り掛かる。著作権の問題などあるので民謡にすることにする。&br;いろいろ考えた結果、簡単な「かえるの歌」に決定する。&br;
1時間のしないうちに「かえるの歌」の試作プログラムが完成する。音の高さや鳴らす時間を調整し、納得するものになる。&br;
-7月3日:(1)〜(4)の内(1)にし、そのプログラムの製作に取り掛かる。光を追いかけるプログラムと曲のプログラムをmixさせる。&br;
(1)は難なく完成する。この勢いで(4)の条件を加えた(1)のプログラムの製作に取り掛かる。&br;
しかし、なかなかうまくいかず行き詰る。
-7月4日:光を追いかけるプログラムを変更する。while(true)を用いたものに改良する。&br;
なんとか(4)の条件を組み込んだプログラムが完成する。&br;
-7月5日:時間に余裕ができたため、光センサを二個用いたプログラムを考える。&br;(1)での条件のプログラムは完成する。
**曲のプログラム [#f661289c]
#define A 523
#define B 587
#define C 659
#define D 698
#define E 784
#define F 830
-「かえるの歌」をハ長調で演奏するプログラム
製作日:7月3日
製作者:コミ
==============
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
task play_music()
{
while(true)
{
PlayTone(A,25); Wait(30);
PlayTone(B,25); Wait(30);
PlayTone(C,25); Wait(30);
PlayTone(D,25); Wait(30);
PlayTone(C,25); Wait(30);
PlayTone(B,25); Wait(30);
PlayTone(A,25); Wait(60);
PlayTone(Do,25); Wait(30); //鳴らす時間を設定
PlayTone(Re,25); Wait(30); //また音が繋がらない
PlayTone(Mi,25); Wait(30); //ようにWaitを使って
PlayTone(Fa,25); Wait(30); //調整している
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
PlayTone(C,25); Wait(30);
PlayTone(D,25); Wait(30);
PlayTone(E,25); Wait(30);
PlayTone(F,25); Wait(30);
PlayTone(E,25); Wait(30);
PlayTone(D,25); Wait(30);
PlayTone(C,25); Wait(60);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Ra,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(60);
PlayTone(A,25); Wait(60);
PlayTone(A,25); Wait(60);
PlayTone(A,25); Wait(60);
PlayTone(A,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(A,12); Wait(15);
PlayTone(A,12); Wait(15);
PlayTone(B,12); Wait(15);
PlayTone(B,12); Wait(15);
PlayTone(C,12); Wait(15);
PlayTone(C,12); Wait(15);
PlayTone(D,12); Wait(15);
PlayTone(D,12); Wait(15);
PlayTone(Do,12); Wait(15);
PlayTone(Do,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(C,25); Wait(30);
PlayTone(B,25); Wait(30);
PlayTone(A,25); Wait(60);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
}
}
**工夫した点 [#h0e7332a]
-いろいろな長調を試したがハ長調が一番よかったので、ハ長調にした。
**光源を見失った時には曲を演奏しながら旋回して光源を探すプログラム [#s5650bc4]
-光センサ一個の場合
製作日:7月1日
製作者:コミ
==============
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
**工夫した点 [#wb2eb2e5]
task play_music() //かえるの歌を演奏
{
while(true)
{
PlayTone(Do,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Ra,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,12); Wait(15);
PlayTone(Do,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
Wait(20);
}
}
#define turn_left OnFwd(OUT_C);OnRev(OUT_A);
#define turn_right OnFwd(OUT_A);OnRev(OUT_C);
#define turn_stop Float(OUT_A+OUT_C);
#define TURN_TIME 500
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0); //
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1 > light_max)
{
light_max=SENSOR_1; //light_maxをSENSOR_1に代入
time_max=FastTimer(0); //time_maxをFastTimerに代入
}
}
turn_stop; //旋回停止
Wait(50);
turn_left; //左旋回
Wait(TURN_TIME-time_max);
turn_stop; //旋回停止
stop play_music; //演奏停止
while(true)
{
if(SENSOR_1<=light_max)
{
OnFwd(OUT_A+OUT_C);
}
else{
Wait(100);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0);
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1 > light_max)
{
light_max=SENSOR_1;
time_max=FastTimer(0);
}
}
turn_stop; //旋回停止
Wait(50);
turn_left; //左旋回
Wait(TURN_TIME-time_max);
turn_stop; //旋回停止
stop play_music; //演奏停止
}
}
}
-光センサ二個の場合
製作日:7月5日
製作者:コミ
==============
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
task play_music() //かえるの歌を演奏
{
while(true)
{
PlayTone(Do,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Ra,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,12); Wait(15);
PlayTone(Do,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
Wait(20);
}
}
#define turn_left OnFwd(OUT_C);OnRev(OUT_A);
#define turn_right OnFwd(OUT_A);OnRev(OUT_C);
#define turn_stop Float(OUT_A+OUT_C);
#define TURN_TIME 500
#define turn_left_1 OnFwd(OUT_C);
#define turn_right_1 OnFwd(OUT_A);
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_LIGHT);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0);
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1> light_max)
{
light_max=SENSOR_1; //light_maxをSENSOR_1に代入
time_max=FastTimer(0); //time_maxをFastTimerに代入
}
}
turn_stop; //旋回停止
Wait(50);
turn_left; //左旋回
Wait(TURN_TIME-time_max);
turn_stop; //旋回停止
stop play_music; //演奏停止
while(true)
{
if(SENSOR_1==SENSOR_3) //SENSOR_1,SENSOR_3が等しい時
{
OnFwd(OUT_A+OUT_C); //直進する
}
if(SENSOR_1 > SENSOR_3) //SENSOR_1の値の方が大きい時
{
turn_left_1; //左旋回
}
if(SENSOR_1 < SENSOR_3) //SENSOR_3の値の方が大きい時
{
turn_right_1; //右旋回
}
if((SENSOR_1 < 45)&&(SENSOR_3 < 45))
{
Wait(50);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0);
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1 > light_max)
{
light_max=SENSOR_1;
time_max=FastTimer(0);
}
}
turn_stop;
Wait(50);
turn_left;
Wait(TURN_TIME-time_max);
turn_stop;
stop play_music;
}
}
}
**工夫した点 [#wb2eb2e5]
-Timerを用いて光源までの時間を計り、TURN_TIMEからその時間を引き、光源の方向に向かせるようにした。&br;
-while(true)で繰り返しで動作させるプログラムにした。
-マクロを使用するなどしてスマートなプログラムなるようにした。
**最初のプログラムに『光源に近づき過ぎると停止する』を追加したプログラム [#zdda218b]
製作日:7月4日
製作者:コミ
==============
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
**工夫した点 [#n7bd3cba]
task play_music() //かえるの歌を演奏
{
while(true)
{
PlayTone(Do,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
PlayTone(Mi,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Ra,25); Wait(30);
PlayTone(So,25); Wait(30);
PlayTone(Fa,25); Wait(30);
PlayTone(Mi,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,25); Wait(60);
PlayTone(Do,12); Wait(15);
PlayTone(Do,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Re,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Mi,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Fa,12); Wait(15);
PlayTone(Mi,25); Wait(30);
PlayTone(Re,25); Wait(30);
PlayTone(Do,25); Wait(60);
Wait(20);
}
}
#define turn_left OnFwd(OUT_C);OnRev(OUT_A);
#define turn_right OnFwd(OUT_A);OnRev(OUT_C);
#define turn_stop Float(OUT_A+OUT_C);
#define TURN_TIME 500
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0);
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1 > light_max)
{
light_max=SENSOR_1; //light_maxをSENSOR_1に代入
time_max=FastTimer(0); //time_maxをFastTimerに代入
}
}
turn_stop; //旋回停止
Wait(50);
turn_left; //左旋回
Wait(TURN_TIME-time_max);
turn_stop; //旋回停止
stop play_music; //演奏停止
while(true)
{
if(SENSOR_1<=light_max)
{
OnFwd(OUT_A+OUT_C); //直進する
}
if(SENSOR_1>80) //80より値が大きい時
{
Off(OUT_A+OUT_C); //停止する
}
if(SENSOR_1<45) //45より小さい時
{
Wait(100);
int light_max=0,time_max=0;
turn_right; //右旋回
start play_music; //演奏停止
ClearTimer(0);
while(FastTimer(0) < TURN_TIME)
{
if(SENSOR_1 > light_max)
{
light_max=SENSOR_1;
time_max=FastTimer(0);
}
}
turn_stop; //旋回停止
Wait(50);
turn_left; //左旋回
Wait(TURN_TIME-time_max);
turn_stop; //旋回停止
stop play_music; //演奏停止
}
}
}
**残っている問題点 [#l462917f]
-走らせる環境によっては光源を見つけられないか、そのままずっと真っ直ぐ走り続けてしまう点。&br;
**反省点 [#u8a7a898]
-課題3の締め切り期間が一週間しかなかったため、プログラムにしか時間をかけることが出来なかった。&br;
なのでロボットには工夫もなにも無いものになってしまった。
-ロボットにもっと工夫を凝らし、より良いものを作り上げたかった。
-自分(コミ)が作ったプログラムでは周りの環境で、うまくいったりいかなかったりするので、そのところを改良していきたい。
-(4)の条件のプログラム(光センサ二個の場合)が完成しなかったので、できたら完成させたい。&br;
また、他の条件の場合のプログラムにも挑戦してすべて完成させたかった。
-ロボコン前の最後の課題というだけあり、プログラムの製作で何度も行き詰った。&br;
行き詰ることがわかっていたにも関わらず取り組みが遅かったことに反省...&br;
**コメント [#ae56e292]
-コメントをどうぞ
#comment