[[2004/B3/練習問題5]] 23斑 浅井浩太郎 #define D 523 //ド #define Re 587 //レ #define M 659 //ミ #define F 698 //ファ #define So 784 //ソ #define Ra 440 //ラ #define Si 988 //シ #define D2 1047 #define Re2 1175 #define M2 1319 #define F2 1397 #define So2 1568 #define Ra2 880 #define Si2 1865 task music1() { while(true) { PlayTone(Ra,100);Wait(20); PlayTone(Re,50);Wait(20); PlayTone(M,50);Wait(20); PlayTone(F,50);Wait(20); PlayTone(M,25);Wait(20); PlayTone(Re,36);Wait(20); PlayTone(M,50);Wait(20); PlayTone(Re,25);Wait(20); PlayTone(D,50);Wait(20); PlayTone(Re,25);Wait(20); PlayTone(Ra,100);Wait(300); PlayTone(Ra,100);Wait(20); PlayTone(Re,50);Wait(20); PlayTone(M,50);Wait(20); PlayTone(F,50);Wait(20); PlayTone(M,25);Wait(20); PlayTone(Re,36);Wait(20); PlayTone(M,50);Wait(20); PlayTone(Re,25);Wait(20); PlayTone(D,50);Wait(20); PlayTone(M,50);Wait(20); PlayTone(F,100);Wait(50); } } task main() { SetSensor(SENSOR_1,SENSOR_TOUCH); start music1; OnFwd(OUT_A);OnRev(OUT_C); until(SENSOR_1 == 1); stop music1; Off(OUT_A+OUT_C); }