2004/B5/角張作

2004/B5/音楽が流れるロボット

#define Do 523
#define Do# 554
#define Re 587
#define Re# 622
#define Mi 659
#define Fa 698
#define Fa# 740
#define So 784
#define So# 831
#define Ra 880
#define Ra# 932
#define Si 988
#define DO 1047
#define RE 1175
#define MI 1319
#define FA# 1480
#define SO 1568
task play_music()
{
  while(true)
   { 
    PlayTone(Si,15);Wait(20);    
    PlayTone(So,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(DO,15);Wait(20);
    PlayTone(DO,15);Wait(20);
    PlayTone(MI,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(SO,15);Wait(20);
    PlayTone(FA#,15);Wait(20);
    PlayTone(SO,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(So,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(DO,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(MI,15);Wait(20);
    PlayTone(RE,15);Wait(20);
    PlayTone(DO,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(So,15);Wait(20);
    PlayTone(Fa#,15);Wait(20);
    PlayTone(So,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
    PlayTone(Re,15);Wait(20);
    PlayTone(Fa#,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
    PlayTone(DO,15);Wait(20);
    PlayTone(Si,15);Wait(20);
    PlayTone(Ra,15);Wait(20);
   }
 }
 task main()
 { 
  SetSensor(SENSOR_1,SENSOR_TOUCH);

　　　　start play_music;

   OnFwd(OUT_A+OUT_B);
   until(SENSOR_1==1);
   stop play_music;
   off(OUT_A+OUT_B);
}

目次

全般

教材・資料

Debian関連

過去の授業

2003年度以前

最新の20件