2004/B3/演奏ロボット の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/B3/演奏ロボット へ行く。
  • 1 (2005-02-14 (月) 06:30:45)

[[ロボティクス入門ゼミ]]

浅井 浩太郎 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);
}