2006a/B2/課題３右 の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2006a/B2/課題３右 へ行く。
  • 1 (2006-07-06 (木) 14:26:13)
  • 2 (2006-07-06 (木) 16:07:37)
  • 3 (2006-07-07 (金) 07:08:14)
  • 4 (2006-07-14 (金) 07:23:51)
  • 5 (2006-07-19 (水) 07:45:52)
  • 6 (2006-07-26 (水) 08:20:44)
  • 7 (2006-08-14 (月) 07:05:51)
  • 8 (2006-08-15 (火) 15:20:53)
  • 9 (2006-08-18 (金) 07:47:01)
  • 10 (2006-08-25 (金) 00:40:01)

[[2006a/B2]]

#define Do 523
#define Re 587
#define Mi 659
#define Fa 698
#define So 784
#define Ra 880
#define Si 988

task play_music()
{
  while(true)
 {
  PlayTone(Do,33);Wait(33);
  PlayTone(Re,33);Wait(33);
  PlayTone(Mi,40);Wait(70);

  PlayTone(Do,33);Wait(33);
  PlayTone(Re,33);Wait(33);
  PlayTone(Mi,40);Wait(70);
  
  PlayTone(So,30);Wait(30);
  PlayTone(Mi,30);Wait(30);
  PlayTone(Re,30);Wait(30);
  PlayTone(Do,30);Wait(30);
  PlayTone(Re,30);Wait(30);
  PlayTone(Mi,30);Wait(30);
  PlayTone(Re,40);Wait(70);
  
  PlayTone(Do,33);Wait(33);
  PlayTone(Re,33);Wait(33);
  PlayTone(Mi,40);Wait(70);
  
  PlayTone(Do,33);Wait(33);
  PlayTone(Re,33);Wait(33);
  PlayTone(Mi,40);Wait(70);
  
  PlayTone(So,30);Wait(30);
  PlayTone(Mi,30);Wait(30);
  PlayTone(Re,30);Wait(30);
  PlayTone(Do,30);Wait(30);
  PlayTone(Re,30);Wait(30);
  PlayTone(Mi,30);Wait(30);
  PlayTone(Do,40);Wait(70);
  
  PlayTone(So,30);Wait(35);
  PlayTone(So,30);Wait(35);
  PlayTone(Mi,30);Wait(35);
  PlayTone(So,30);Wait(35);
  PlayTone(Ra,30);Wait(35);
  PlayTone(Ra,30);Wait(35);
  PlayTone(So,30);Wait(70);
  
  PlayTone(Mi,30);Wait(35);
  PlayTone(Mi,30);Wait(35);
  PlayTone(Re,30);Wait(35);
  PlayTone(Re,30);Wait(35);
  PlayTone(Do,30);Wait(35);
 }
}