2004/A4/11班/演奏をするロボット の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 2004/A4/11班/演奏をするロボット へ行く。
  • 1 (2004-12-17 (金) 07:20:40)
  • 2 (2004-12-17 (金) 07:23:24)

[[2004/A4/11班]]

#define Do  523
#define Re  587
#define Mi  659
#define Fa  698
#define Sol 784
#define Ra  880
#define Ti  988


task play_music()   
{
    while (true)
    {
        PlayTone(Sol,30); Wait(40);  
        PlayTone(Fa,30); Wait(40);  
        PlayTone(Mi,40); Wait(50);   
       
        PlayTone(Re,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Fa,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        PlayTone(Do,40); Wait(40);
        
        PlayTone(Mi,15); Wait(20);
        PlayTone(Fa,15); Wait(20);
        PlayTone(Sol,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        
        PlayTone(Re,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Fa,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        
        PlayTone(Mi,15); Wait(20);
        PlayTone(Fa,15); Wait(20);
        PlayTone(Sol,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        
        PlayTone(Re,15); Wait(20);
        PlayTone(Mi,15); Wait(20);
        PlayTone(Fa,15); Wait(20);
        PlayTone(Re,15); Wait(20);
        
        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);  
}