2004/B3

23斑

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

}


トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2005-02-14 (月) 15:40:54