- 追加された行はこの色です。
- 削除された行はこの色です。
[[2004/C6/練習問題]]
-ロボットに与作を演奏させてみました。この曲は、北島三朗が歌った歌をくぼさんがRCXにおいて再現。くぼさんは携帯からダウンロードした曲を聴いて作りました。「絶対音感だ!」と音楽に縁遠いmy-my,火炉と壬。是非一度プログラミングして御視聴下さい。
-ロボットに与作を演奏させてみました。この曲は、北島三朗が歌った歌をくぼさんがRCXにおいて再現。くぼさんは携帯からダウンロードした曲を聴いて作りました。「絶対音感だ!」と音楽に縁遠いmy-my,火炉壬。是非一度プログラミングして御視聴下さい。
#define Sil 494
#define Do 523
#define Dos 554
#define Re 587
#define Res 622
#define Mi 659
#define Fa 698
#define Fas 740
#define So 784
#define Sos 831
#define Ra 880
#define Ras 932
#define Si 988
void task play_music(int t)
{
while(true)
{
PlayTone(Sil,5*t);Wait(10*t);
PlayTone(Re,25*t);Wait(30*t);
PlayTone(Mi,5*t);Wait(10*t);
PlayTone(Mi,25*t);Wait(30*t);
PlayTone(Fas,35*t);Wait(40*t);
PlayTone(Mi,5*t);Wait(10*t);
PlayTone(Re,25*t);Wait(30*t);
PlayTone(Mi,135*t);Wait(140*t);
PlayTone(Si,15*t);Wait(20*t);
PlayTone(Si,15*t);Wait(20*t);
PlayTone(Ra,115*t);Wait(120*t);
PlayTone(So,15*t);Wait(20*t);
PlayTone(So,15*t);Wait(20*t);
PlayTone(Mi,155*t);Wait(160*t);
Wait(20);
}
}
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
start play_music;
repeat(3){
OnFwd(OUT_A);
until(SENSOR_1==1);
start play music(t=0.5);
OnRev(OUT_C);Wait(300);}
}
このページは今井 隆行 が担当しました。
このページはmy-my が担当しました。