2006a/A3/練習
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[ロボティクス入門ゼミ]]
*反転 [#zccfbb4f]
#define THRESHOLD 48
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_2,SENSOR_TOUCH);
while(true){
if(SENSOR_1<THRESHOLD) {
Off(OUT_A);
OnFwd(OUT_C);
}
if(SENSOR_2==1){
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(100);
}else{
OnFwd(OUT_A);
Off(OUT_C);
}
}
}
*追い越し [#w1fbaee9]
#difine THRESHOLD 45
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_2,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_TOUCH);
while(true){
if(SENSOR_1<THRESHOLD){
OnFwd(OUT_A);
Off(OUT_C);
}
if(SENSOR_2<THRESHOLD){
OnFwd(OUT_C);
Off(OUT_A);
}
if((SENSOR_1>THRESHOLD)&&(SENSOR_2>THRESHOLD)){
OnFwd(OUT_A+OUT_C);
}
if(SENSOR_3==1){
OnRev(OUT_A+OUT_C);
Wait(90);
OnFwd(OUT_A);
Off(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(90);
Off(OUT_A);
OnFwd(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A);
OnFwd(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(90);
OnFwd(OUT_A);
Off(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(20);
}
}
}
*曲;海は広いな♪ [#y999f297]
#define Do 523
#define Re 587
#define Mi 659
#define So 784
#define so 349
#define ra 392
task play_music()
{
while(true)
{
PlayTone (Mi,25); Wait(30);
PlayTone (Re,25); Wait(30);
PlayTone (Do,30); Wait(30);
PlayTone (ra,15); Wait(10);
PlayTone (Re,15); Wait(10);
PlayTone (Do,20); Wait(20);
PlayTone (ra,20); Wait(30);
PlayTone (so,15); Wait(20);
PlayTone (so,15); Wait(20);
PlayTone (Do,20); Wait(20);
PlayTone (Do,20); Wait(20);
PlayTone (Re,30); Wait(40);
PlayTone (Mi,25); Wait(20);
PlayTone (Mi,25); Wait(20);
PlayTone (So,30); Wait(30);
PlayTone (Mi,15); Wait(20);
PlayTone (Mi,15); Wait(20);
PlayTone (Re,20); Wait(20);
PlayTone (Do,30); Wait(30);
PlayTone (ra,15); Wait(20);
PlayTone (ra,15); Wait(20);
PlayTone (so,20); Wait(20);
PlayTone (Re,30); Wait(20);
PlayTone (Do,40); Wait(40);
}
}
終了行:
[[ロボティクス入門ゼミ]]
*反転 [#zccfbb4f]
#define THRESHOLD 48
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_2,SENSOR_TOUCH);
while(true){
if(SENSOR_1<THRESHOLD) {
Off(OUT_A);
OnFwd(OUT_C);
}
if(SENSOR_2==1){
OnFwd(OUT_A);
OnRev(OUT_C);
Wait(100);
}else{
OnFwd(OUT_A);
Off(OUT_C);
}
}
}
*追い越し [#w1fbaee9]
#difine THRESHOLD 45
task main ()
{
SetSensor(SENSOR_1,SENSOR_LIGHT);
SetSensor(SENSOR_2,SENSOR_LIGHT);
SetSensor(SENSOR_3,SENSOR_TOUCH);
while(true){
if(SENSOR_1<THRESHOLD){
OnFwd(OUT_A);
Off(OUT_C);
}
if(SENSOR_2<THRESHOLD){
OnFwd(OUT_C);
Off(OUT_A);
}
if((SENSOR_1>THRESHOLD)&&(SENSOR_2>THRESHOLD)){
OnFwd(OUT_A+OUT_C);
}
if(SENSOR_3==1){
OnRev(OUT_A+OUT_C);
Wait(90);
OnFwd(OUT_A);
Off(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(90);
Off(OUT_A);
OnFwd(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(150);
Off(OUT_A);
OnFwd(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(90);
OnFwd(OUT_A);
Off(OUT_C);
Wait(120);
OnFwd(OUT_A+OUT_C);
Wait(20);
}
}
}
*曲;海は広いな♪ [#y999f297]
#define Do 523
#define Re 587
#define Mi 659
#define So 784
#define so 349
#define ra 392
task play_music()
{
while(true)
{
PlayTone (Mi,25); Wait(30);
PlayTone (Re,25); Wait(30);
PlayTone (Do,30); Wait(30);
PlayTone (ra,15); Wait(10);
PlayTone (Re,15); Wait(10);
PlayTone (Do,20); Wait(20);
PlayTone (ra,20); Wait(30);
PlayTone (so,15); Wait(20);
PlayTone (so,15); Wait(20);
PlayTone (Do,20); Wait(20);
PlayTone (Do,20); Wait(20);
PlayTone (Re,30); Wait(40);
PlayTone (Mi,25); Wait(20);
PlayTone (Mi,25); Wait(20);
PlayTone (So,30); Wait(30);
PlayTone (Mi,15); Wait(20);
PlayTone (Mi,15); Wait(20);
PlayTone (Re,20); Wait(20);
PlayTone (Do,30); Wait(30);
PlayTone (ra,15); Wait(20);
PlayTone (ra,15); Wait(20);
PlayTone (so,20); Wait(20);
PlayTone (Re,30); Wait(20);
PlayTone (Do,40); Wait(40);
}
}
ページ名: