2004/A2/演奏ロボット(必須
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[2004/A2/練習問題]
&size(20){ver.1};
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
task play_music()
{
while (true)
{
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,35); Wait(40);
PlayTone(Re,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Re,35); Wait(40);
PlayTone(Mi,15); Wait(20);
PlayTone(Sol,15); Wait(20);
PlayTone(Sol,35); Wait(40);
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,35); Wait(40);
PlayTone(Re,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,55); Wait(60);
Wait(20);
}
}
task main()
{
SetSensor(SENSOR_1, SENSOR_TOUCH);
while(true)
{
start play_music ;
OnFwd(OUT_B);
until (SENSOR_1 == 1);
stop play_music;
PlaySound(SOUND_DOUBLE_BEEP);
OnRev(OUT_B);
Wait(300);}
}
終了行:
[[2004/A2/練習問題]
&size(20){ver.1};
#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define Sol 784
task play_music()
{
while (true)
{
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,35); Wait(40);
PlayTone(Re,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Re,35); Wait(40);
PlayTone(Mi,15); Wait(20);
PlayTone(Sol,15); Wait(20);
PlayTone(Sol,35); Wait(40);
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,15); Wait(20);
PlayTone(Mi,35); Wait(40);
PlayTone(Re,15); Wait(20);
PlayTone(Re,15); Wait(20);
PlayTone(Mi,25); Wait(30);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,55); Wait(60);
Wait(20);
}
}
task main()
{
SetSensor(SENSOR_1, SENSOR_TOUCH);
while(true)
{
start play_music ;
OnFwd(OUT_B);
until (SENSOR_1 == 1);
stop play_music;
PlaySound(SOUND_DOUBLE_BEEP);
OnRev(OUT_B);
Wait(300);}
}
ページ名: