23斑 浅井浩太郎 ...BeatlesのYesterdayが鳴るマシンにしました。でも、曲の後半は何がなんだかわからないです。音痴なので苦労しました。
/*音楽(yesterday)が鳴る*/
#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); }