#define THRESHOLD 48
task main () { SetSensor(SENSOR_1,SENSOR_LIGHT); SetSensor(SENSOR_2,SENSOR_TOUCH); while(true){ if(SENSOR_1<THRESHOLD) { Off(OUT_A); OnFwd(OUT_C); } if(SENSOR_2==1){ OnFwd(OUT_A); OnRev(OUT_C); Wait(100); }else{ OnFwd(OUT_A); Off(OUT_C); } } }
#difine THRESHOLD 45 task main () {
SetSensor(SENSOR_1,SENSOR_LIGHT); SetSensor(SENSOR_2,SENSOR_LIGHT); SetSensor(SENSOR_3,SENSOR_TOUCH); while(true){ if(SENSOR_1<THRESHOLD){ OnFwd(OUT_A); Off(OUT_C); } if(SENSOR_2<THRESHOLD){ OnFwd(OUT_C); Off(OUT_A); } if((SENSOR_1>THRESHOLD)&&(SENSOR_2>THRESHOLD)){ OnFwd(OUT_A+OUT_C); } if(SENSOR_3==1){ OnRev(OUT_A+OUT_C); Wait(90); OnFwd(OUT_A); Off(OUT_C); Wait(120); OnFwd(OUT_A+OUT_C); Wait(90); Off(OUT_A); OnFwd(OUT_C); Wait(120); OnFwd(OUT_A+OUT_C); Wait(150); Off(OUT_A); OnFwd(OUT_C); Wait(120); OnFwd(OUT_A+OUT_C); Wait(90); OnFwd(OUT_A); Off(OUT_C); Wait(120); OnFwd(OUT_A+OUT_C); Wait(20); } } }
#define Do 523
#define Re 587
#define Mi 659
#define So 784
#define so 349
#define ra 392
task play_music() {
while(true) { PlayTone (Mi,25); Wait(30); PlayTone (Re,25); Wait(30); PlayTone (Do,30); Wait(30); PlayTone (ra,15); Wait(10); PlayTone (Re,15); Wait(10); PlayTone (Do,20); Wait(20); PlayTone (ra,20); Wait(30); PlayTone (so,15); Wait(20); PlayTone (so,15); Wait(20); PlayTone (Do,20); Wait(20); PlayTone (Do,20); Wait(20); PlayTone (Re,30); Wait(40); PlayTone (Mi,25); Wait(20); PlayTone (Mi,25); Wait(20); PlayTone (So,30); Wait(30); PlayTone (Mi,15); Wait(20); PlayTone (Mi,15); Wait(20); PlayTone (Re,20); Wait(20); PlayTone (Do,30); Wait(30); PlayTone (ra,15); Wait(20); PlayTone (ra,15); Wait(20); PlayTone (so,20); Wait(20); PlayTone (Re,30); Wait(20); PlayTone (Do,40); Wait(40); } }