[[2006a/A3]] *最初のプログラム [#kadai3] *メリーさんの羊を奏でるプログラミング [#kadai3] #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,20); Wait(25); PlayTone(Do,20); Wait(25); PlayTone(So,20); Wait(25); PlayTone(So,20); Wait(25); PlayTone(Ra,20); Wait(25); PlayTone(Ra,20); Wait(25); PlayTone(So,20); Wait(25); } } 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); }