サブゴール１

<サブゴール１>
１、タッチセンサを使った実験
　　　 　　　　障害物にあたるとモーターが逆回転するようにした。
　　　　　　　　　Private Sub cmdTatchsensor_Click()
　　　　　　　　　　　　　　　RCX.SelectPrgm (4)
　　　　　　　　　　　　　　　With RCX
　　　　　　　　　　　　　　　　.BeginOfTask (0)
　　　　　　　　　　　　　　　　　.SetSensorType 0, 1
　 　　　　　　　　　　　　　　　　　.SetSensorMode 0, 1, 0

　　　　　　　　　　　　　　　　　.Loop 2, 0
　　　　　　　　　　　　　　　　　　.If 9, 0, 2, 2, 0
　　　　　　　　　　　　　　　　　　　.On "0"
　　　　　　　　　　　　　　　　　　.Else
　　　　　　　　　　　　　　　　　　　.SetRwd "0"
　　　　　　　　　　　　　　　　　　.EndIf
　　　　　　　　　　　　　　　　　.EndLoop
　　　　　　　　　　　　　　　　.EndOfTask
　　　　　　　　　　　　　　　End With

　　　　　　　　　　　　　　　End Sub

２、光センサを使った実験
銀紙上で音を鳴らす事を考え黒くなったところで音を鳴らす事にした。
Private Sub cmdLightSensor_Click()

　　　　　　　　　　　　　RCX.SelectPrgm (4)

　　　　　　　　　　　　　　With RCX
　　　　　　　　　　　　　　　.BeginOfTask (0)
　　　　　　　　　　　　　　　　.SetSensorType 0, 3
　　　　　　　　　　　　　　　　.SetSensorMode 0, 4, 0

　　　　　　　　　　　　　　　　.Loop 2, 0
　　　　　　　　　　　　　　　　　.If 9, 0, 1, 2, 29
　　　　　　　　　　　　　　　　　　.PlaySystemSound 2
　　　　　　　　　　　　　　　　　　.PlaySystemSound 5
　　　　　　　　　　　　　　　　　　.PlaySystemSound 2
　 　　　　　　　　　　　　　　　　　.Else
　　　　　　　　　　　　　　　　　　.On "0"
　　　　　　　　　　　　　　　　　.EndIf
　　　　　　　　　　　　　　　　.EndLoop
　　　　　　　　　　　　　　　.EndOfTask
　　　　　　　　　　　　　　End With

　　　　　　　　　　　　　　End Sub

３、角度センサを使った実験
タイヤ等（回転の動作が確認できるもの）を10回転させた後停止させる。

　　　　　　　　　　　　Private Sub cmdAglsensor_Click()

　　　　　　　　　　　　　RCX.SelectPrgm (4)

　　　　　　　　　　　　　With RCX
　　　　　　　　　　　　　　.BeginOfTask (0)
　　　　　　　　　　　　　　　.SetSensorType 0, 4
　　　　　　　　　　　　　　　.SetSensorMode 0, 7, 0

　　　　　　　　　　　　　　　.Loop 2, 0
　　　　　　　　　　　　　　　　　.If 9, 0, 0, 2, 150
　　　　　　　　　　　　　　　　　　　.Off "0"
　　　　　　　　　　　　　　　　　.Else
　　　　　　　　　　　　　　　　　　　.On "0"
　　　　　　　　　　　　　　　　　.EndIf
　　　　　　　　　　　　　　　.EndLoop
　　　　　　　　　　　　　　.EndOfTask
　　　　　　　　　　　　　End With
　　　　　　　　　　　　　End Sub
<考察>
（1）　　タッチセンサの実験は特に難しくなかった。プログラムも簡単だった。レゴの部品を見つけるのがかなり大変なことだ。部品ごとにまとめておかなかったから車を作るのが大変だった。スピードが速くてぶつかると車が壊れかけるのも問題だ
（２）　光センサの実験の実験はかなり難しかった。特にプログラムがむずかしかった。光センサの返す値についてのものでいったいいくらに設定すればいいかわからなくなった。競技では１，２どちらでも必要となってくる機能なのでもう少し勉強してスムーズにいくようにしたい。
（３）　角度センサの実験は教科書をすこしかえるだけなので簡単だった。 　　　　 --------------------------------------------------------------------------------

このページは です 無料ホームページをどうぞ