♪目次♪
#contents

*プログラム (試作) [#efab6ddb]

 task main(){
 SetSensor(SENSOR_1,SENSOR_LIGHT);     //センサー1を光センサーと定義
 SetSensor(SENSOR_2,SENSOR_LIGHT);     //センサー2を光センサーと定義
 while(true)
 {if(SENSOR_1>43){OnRev(OUT_A);until(SENSOR_1<43);Off(OUT_A);};
              //光が左からあたったとき、右の車輪を動かし、車体を右に
 if(SENSOR_2>43){OnFwd(OUT_C);until(SENSOR_2<43);Off(OUT_C);};};
              //光が右からあたったとき、左の車輪を動かし、車体を左に
 }

*プログラム (完成版) [#d646a718]
 task main(){
 SetSensor(SENSOR_1,SENSOR_LIGHT);     //センサー1を光センサーと定義
 SetSensor(SENSOR_2,SENSOR_LIGHT);     //センサー2を光センサーと定義
 while(true)
 {if(SENSOR_1>55){OnRev(OUT_A);until(SENSOR_1<43);Off(OUT_A);};
             //光が左からあたったとき、右の車輪を動かし、車体を右に
 if(SENSOR_2>55){OnFwd(OUT_C);until(SENSOR_2<43);Off(OUT_C);};};
             //光が右からあたったとき、左の車輪を動かし、車体を左に
 }

*プログラム(♪ゴジラ) [#u93d437d]
*プログラム(♪ゴジラ) [#u93d437d]
 #define Sol 196
 #define Ra   220
 #define Si    247
 #define Do  262
 task main()   // 音楽を演奏するタスク
 {
    while (true)
    {
           PlayTone(Do,20); Wait(25);  // Wait の時間の方を少し長くして
        PlayTone(Si,20); Wait(25);  // 同じ音を続けて鳴らす場合にも
        PlayTone(Ra,40); Wait(45);  // 一つの音にならないようにしている
        
           PlayTone(Do,20); Wait(25);
        PlayTone(Si,20); Wait(25);
        PlayTone(Ra,40); Wait(45);
        
           PlayTone(Do,20); Wait(25);
        PlayTone(Si,20); Wait(25);
        PlayTone(Ra,20); Wait(25);
           PlayTone(Sol,20); Wait(25);
        PlayTone(Ra,20); Wait(25);
        PlayTone(Si,20); Wait(25);
           PlayTone(Do,20); Wait(25);
        PlayTone(Si,20); Wait(25);
        PlayTone(Ra,40); Wait(45);
         }
 }

*プログラム(♪ピンク)試作 [#a514820b]
 #define Sol  831
 #define Ra   880
 #define Si   988
 #define Do   1047
 #define Mi   1319
 #define Fa   1397
 #define Raa  1976
 #define Soll 1661
 task main()
  {
   while (true)
   {
       PlayTone(Sol,20); Wait(25);
       PlayTone(Ra,20); Wait(50);
       PlayTone(Si,20); Wait(25);
       PlayTone(Do,20); Wait(50);
       PlayTone(Sol,20); Wait(25);
       PlayTone(Ra,20); Wait(35);
       PlayTone(Si,20); Wait(25);
       PlayTone(Do,20); Wait(35);
       PlayTone(Fa,20); Wait(25);
       PlayTone(Mi,20); Wait(35);
       PlayTone(Do,20); Wait(25);
       PlayTone(Mi,20); Wait(35);
       PlayTone(Raa,20); Wait(25);
       PlayTone(Soll,80); Wait(90);
        }
 }

*反省点 [#g77d3e49]


*ロボゼミ仲間からのコメント [#bdb30c22]
気軽に書いて!!
#comment


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