このプログラムを修正してください。　正常に処理できません。

締切済

質問者：twinkle_light
質問日時：2003/02/06 21:14
回答数：3件

10:'program
20:L=1
30:OPEN "PIO:"
40:PIOSET &HF0
50:INPUT SSD
60:*MAIN
70:S=PIOGET /16
80:IF S=0 THEN PIOPUT 6:GOTO *MAWARU
90:IF S>3 THEN *BREAK
100:IF S=3 THEN PIOPUT 5
110:IF S=1 THEN PIOPUT 7
120:IF S=2 THEN PIOPUT 1
130:GOTO *MAIN
140:*BREAK
150:PIOPUT 15
160:FOR I=0 TO 100:NEXT I
170:S=PIOGET /16
180:IF S=8 THEN *LEFT
190:S=PIOGET /16
200:IF S=4 THEN *RIGHT
210:IF S=11 THEN PIOPUT 5
220:IF L=1 THEN *RIGHT
230:PIOPUT 5
240:IF PIOGET >&H30 THEN 240
250:GOTO *MAIN
260:*LEFT
270:PIOPUT 13
280:IF (PIOGET AND 48)>0 THEN 280
290:IF (PIOGET AND 48)<48 THEN 290
300:GOTO *MAIN
310:*RIGHT
320:PIOPUT 7
330:IF (PIOGET AND 48)>0 THEN 330
340:IF (PIOGET AND 48)<48 THEN 340
350:GOTO *MAIN
360:*MAWARU
370:IF (PIOGET AND 48)>0 THEN 370
380:IF (PIOGET AND 48)<48 THEN 380
390:IF S=0 THEN GOTO *MAIN

このプログラムについて、修正をして頂けませんか？
PIOGETでセンサ４個からの情報が来るので、
それを簡単するため１６で割っています。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=464797
にデータの出力値等を記載しています。
→Ｔ字路に来たら、右に曲がる、十字路が来たら、前進するというプログラムを教えてください。そして、その後自分で改良して、自動判断させるようにしたいと思います。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： kabasan
回答日時：2003/02/06 22:11

すいません見まちがい＆書き間違いがありました。

Ｓ１＝１
Ｓ２＝２
Ｓ３＝４
Ｓ４＝８

で、停止後に再度センサーを読んでいますが、オーバーランしてラインから外れていませんか?Ｓ４が外れてＳ１＋Ｓ２なら２２０行が実行されると思います。

- 0
- 件

通報する

No.2

回答者： kabasan
回答日時：2003/02/06 21:49

センサの状態は１６通りあります。

すべてのパターンで動きを指定しないと、想定していない動きになります。

PIOGET /16の値は
Ｓ１＝８
Ｓ２＝４
Ｓ３＝２
Ｓ４＝１
で、ＯＮしているセンサーの値の和が帰ってきます。Ｓ１とＳ４がＯＮならば
８＋１＝９が帰ります。

┫のところでは、Ｓ１＋Ｓ２＋Ｓ４ですから１１が帰ってきますが、ＭＡＩＮでは
＊ＢＲＥＡＫに飛んでしまいますね。

＜サンプル＞
*MAIN
S=PIOGET /16
IF S=0 THEN　***
IF S=1 THEN
IF S=2 THEN
IF S=3 THEN
IF S=4 THEN
IF S=5 THEN
IF S=6 THEN
IF S=7 THEN
IF S=8 THEN
IF S=9 THEN
IF S=10 THEN
IF S=11 THEN
IF S=12 THEN
IF S=13 THEN
IF S=14 THEN
IF S=15 THEN
GOTO *MAIN

各条件で出力を指定して、それをループすれば最も単純です。