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

自己紹介

  • 出身  →山梨
  • サークル→混声合唱
  • 学部  →経済の経済
  • 好きなこと→会話
  • 嫌いなこと→沈黙

6月2日の課題:タッチセンサをつかう

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日:曲作り  

曲: モルダウ

#define C  523
#define Cis 554
#define D  587
#define Dis 622
#define E  659
#define F  698 
#define Fis 740
#define G 784
#define Gis 831
#define A 880 
#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(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(Ais,38); Wait(40);
PlayTone(C8th,18); Wait(20);
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);
}}

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2006-07-14 (金) 13:13:12