- 追加された行はこの色です。
- 削除された行はこの色です。
[[ロボティクス入門ゼミ]]
浅井 浩太郎 yesterdayを鳴らそうとしましたがうまくいきませんでした
[[2004/B3]]
*23斑 [#v9f40975]
浅井 浩太郎 ...yesterdayを鳴らそうとしましたが後半の音がうまくいきませんでした
#define D 523
#define Re 587
#define M 659
#define F 698
#define So 784
#define Ra 440
#define Si 988
task music1()
{
while(true)
{
PlayTone(Ra,40);Wait(20);
PlayTone(Ra,40);Wait(20);
PlayTone(Re,20);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(F,20);Wait(20);
PlayTone(M,10);Wait(20);
PlayTone(Re,20);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(Re,10);Wait(20);
PlayTone(D,20);Wait(20);
PlayTone(Re,10);Wait(20);
PlayTone(Ra,50);Wait(40);
PlayTone(Ra,40);Wait(20);
PlayTone(Re,40);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(F,20);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(Re,10);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(Re,20);Wait(20);
PlayTone(D,10);Wait(20);
PlayTone(M,20);Wait(20);
PlayTone(F,50);Wait(20);
}
}
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);
}