担当:宮川
#define Ra 440 #define Do 523 #define Dos 554 #define Re 587 #define Res 622 #define Mi 659 #define Fa 698 #define So 784 #define Sos 831 #define hRa 880 #define hDo 1047 #define Wait_Time 60
task play_startsound() { PlayTone(Ra,25) ; Wait(Wait_Time); // 1.0 秒待つ PlayTone(Ra,25) ; Wait(Wait_Time); // 1.0 秒待つ PlayTone(Ra,25) ; Wait(Wait_Time); // 1.0 秒待つ PlayTone(hRa,100) ; Wait(Wait_Time); // 1.0 秒待つ }
task play_sound() { while(true) { PlayTone(Do,50) ; Wait(Wait_Time); PlayTone(Do,25) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Do,25) ; Wait(Wait_Time); PlayTone(Do,25) ; Wait(Wait_Time); PlayTone(Dos,25) ; Wait(Wait_Time); PlayTone(Res,50) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Dos,25) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Fa,50) ; Wait(Wait_Time); PlayTone(Fa,25) ; Wait(Wait_Time); PlayTone(So,25) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Res,50) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Do,25) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Sos,50) ; Wait(Wait_Time); PlayTone(Fa,25) ; Wait(Wait_Time); PlayTone(So,25) ; Wait(Wait_Time); PlayTone(Res,25) ; Wait(Wait_Time); PlayTone(Res,50) ; Wait(Wait_Time); PlayTone(Do,25) ; Wait(Wait_Time); PlayTone(Dos,25) ; Wait(Wait_Time); PlayTone(Do,50) ; Wait(Wait_Time); } }
task main() { start play_startsound; wait(400); stop play_startsound; start play_sound; OnFwd(OUT_A); // A 出力に接続されたモータを正回転させる Wait(1000); // プログラムの実行を3秒待つ (単位は1/100秒) // この間 A と C のモータは回転したまま (現状維持) Off(OUT_A+OUT_C); // A と C 出力のモータを止める OnRev(OUT_A); Wait(1000); Off(OUT_A+OUT_C); stop play_sound; }