- 追加された行はこの色です。
- 削除された行はこの色です。
まだ何もありませんが、徐々に増やしていきたいです。
*自己紹介 [#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 Cis 554
#define D 587
#define Des 622
#define Dis 622
#define E 659
#define F 698
#define Fes 740
#define Fis 740
#define G 784
#define Ges 831
#define Gis 831
#define A 880
#define Aes 932
#define Ais 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(Gis,35); Wait(40);
PlayTone(Ais,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(Ais,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(Ais,38); Wait(40);
PlayTone(Ais,18); Wait(20);
PlayTone(Gis,38); Wait(40);
PlayTone(Ais,18); Wait(20);
PlayTone(Gis,58); Wait(60);
PlayTone(G,58); Wait(60);
PlayTone(G,58); Wait(60);
PlayTone(F,118); Wait(120); //曲を打ちました
Wait(200);
}}