まだ何もありませんが、徐々に増やしていきたいです。

*自己紹介 [#le510f02]
-出身  →山梨
-サークル→混声合唱
-学部  →経済の経済
-好きなこと→会話
-嫌いなこと→沈黙

**&size(15){6月2日の課題:タッチセンサをつかう}; [#ldd53306]




 task main()
 {
 SetSensor(SENSOR_1,SENSOR_TOUCH);
 SetSensor(SENSOR_3,SENSOR_TOUCH);
 OnFwd(OUT_A+OUT_C);    //前進する
 while(true) 
 {
  if(SENSOR_1==1)  //左のセンサーがONになったとき
 {
 OnRev(OUT_A+OUT_C) ;  Wait(30);   //下がって
 OnFwd(OUT_A); Wait(10); //右に曲がる
 }
 if(SENSOR_3==1)   //右のセンサーがONになったとき
 {
 OnRev(OUT_A+OUT_C) ;  Wait(30);  //下がって
 OnFwd(OUT_C); Wait(10); //左に曲がる
 }
 if(SENSOR_1==1 && SENSOR_3==1)  //左右のセンサーが同時にONになったとき
 OnRev(OUT_A+OUT_C) ;  Wait(50);   //多めに下がって
 OnFwd(OUT_C); Wait(40); //多めに左に曲がる
 }
 if(SENSOR_1!=1 && SENSOR_3!=1)
 OnFwd(OUT_A+OUT_C);
 }



**6月30日:曲作り   [#h1d35c2d]
*曲: モルダウ [#z48252e5]

 #define C  523
 #define Ces 554
 #define D  587
 #define Des 622
 #define E  659
 #define F  698 
 #define Fes 740
 #define G 784
 #define Ges 831
 #define A 880 
 #define Aes 932
 #define H 988
 #define C8th  1047
 #define C8thes 1109   //ここまでで音程を設定
 task main()
 {while(true)
 {
 PlayTone(C,20); Wait(20);
 PlayTone(F,35); Wait(40);
 PlayTone(G,20); Wait(20);
 PlayTone(Ges,35); Wait(40);
 PlayTone(Aes,18); Wait(20);
 PlayTone(C8th,35); Wait(40);
 PlayTone(C8th,16); Wait(20);
 PlayTone(C8th,55); Wait(60);
 PlayTone(C8thes,55); Wait(60);
 PlayTone(C8thes,55); Wait(60);
 PlayTone(C8th,90); Wait(100);
 
 PlayTone(C8th,18); Wait(20);
 PlayTone(Aes,38); Wait(40);
 PlayTone(C8th,18); Wait(20);
 PlayTone(Aes,38); Wait(40); 
 PlayTone(Aes,18); Wait(20); 
 PlayTone(Ges,38); Wait(40);
 PlayTone(Aes,18); Wait(20);
 PlayTone(Ges,58); Wait(60);
 
 PlayTone(G,58); Wait(60);
 PlayTone(G,58); Wait(60);
 PlayTone(F,118); Wait(120);    //曲を打ちました
 
 Wait(200);
 }}


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS