- 追加された行はこの色です。
- 削除された行はこの色です。
[[ロボティクス入門ゼミ]]
*テストページ
*テストページ [#g904ffe5]
+りんご
+もも
+みかん
+りんご
+もも
+みかん
食べる方じゃなくて ゆずが好きです。
ask main()
{
repeat(2){
OnFwd(OUT_A+OUT_C);Wait(200);
OnRev(OUT_C);
Wait(100);
OnFwd(OUT_A+OUT_C);Wait(200);
}
Float(OUT_A+OUT_C);
*6月2日
*6月2日 [#r65266f3]
task main(){
SetSensor(SENSOR_1, SENSOR_TOUCH);
while(true)
{
OnFwd(OUT_A+OUT_C) ;
until (SENSOR_1 == 1) ;
OnRev(OUT_A+OUT_C) ; Wait(50);
OnFwd(OUT_A) ; Wait(150);
OnFwd(OUT_C);
}
}
*6月14日一応保存
*6月14日一応保存 [#xe97239b]
#define THRESHOLD 40
task main ()
{
SetSensor(SENSOR_1, SENSOR_LIGHT);
SetSensor(SENSOR_3, SENSOR_LIGHT);
SetSensor(SENSOR_2, SENSOR_TOUCH);
while (true)
{
if (SENSOR_3 < THRESHOLD)
{
OnFwd(OUT_A );Wait(30);
Off(OUT_C);
}
if (SENSOR_1, < THRESHOLD)
{
OnFwd(OUT_C);Wait(30);
Off(OUT_A);
}
if (SENSOR_2==1 )
{
OnFwd(OUT_A);OnRev(OUT_C);Wait(70);
OnFwd(OUT_C);Wait(30);
OnFwd(OUT_C);OnRev(OUT_A);Wait(70);
OnFwd(OUT_A);Wait(200);
OnFwd(OUT_C);OnRev(OUT_A);Wait(90);
OnFwd(OUT_A);
}
}
}
*7月7日 [#e208ca3e]
#define Do 523
#define Re 584
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Si 988
#define Do 1047
task play_music()
{
while (true)
{
PlayTone(Do, 10; Wait(10);
PlayTone(Do,10); Wait(10);
PlayTone(Sol,10); Wait(10);
PlayTone(Sol,10); Wait(10);
PlayTone(Ra,10); Wait(10);
PlayTone(Ra,10); Wait(10);
PlayTone(Sol,20); Wait(20);
PlayTone(Fa,5); Wait(5);
PlayTone(Fa,5; Wait(5);
PlayTone(Mi,5; Wait(5);
PlayTone(Mi,5); Wait(5);
PlayTone(Re,5); Wait(5);
PlayTone(Re, 5); Wait(5);
PlayTone(Do,15); Wait(15);
}
}
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);
}
#define Do 523
#define Re 584
#define Mi 659
#define Fa 698
#define Sol 784
#define Ra 880
#define Si 988
task play_music()
{
while (true)
{
PlayTone(Do, 10); Wait(15);
PlayTone(Do,10); Wait(15);
PlayTone(Sol,10); Wait(15);
PlayTone(Sol,10); Wait(15);
PlayTone(Ra,10); Wait(15);
PlayTone(Ra,10); Wait(15);
PlayTone(Sol,20); Wait(25);
PlayTone(Fa,5); Wait(10);
PlayTone(Fa,5); Wait(15);
PlayTone(Mi,5); Wait(10);
PlayTone(Mi,5); Wait(10);
PlayTone(Re,5); Wait(10);
PlayTone(Re, 5); Wait(10);
PlayTone(Do,15); 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);
}