カメダー1     作品例:カメダー1.mwx <学習内容>
・インスタンス化
・しょうとつイベント

を左クリックすると20のが作られて動き出します。

を左クリックするとが発射され
に当たるとが消えます。
<考え方>
(1)20のカメを作ります。(インスタンス化)
(2)20のカメを動かします。
(3)赤カメを発射します。


(1)20のカメを作る(インスタンス化)

<考え方>
・プログラムで、カメのオブジェクトをクリエイトします。(インスタンス化)
20のカメを作るのもと.mwxを 左クリックしてはじめましょう。 
 

 newturtle で新しいカメを作るプログラムを書きます。

 
英語 日本語
to GO
G1
end
to G1
dotimes [K 20]
[
carefully[remove word "KAME :K][]
newturtle word "KAME :K
setpos list :K * 40 60
set word "KAME :K "rule [launch[ht]]
st
]
end
手順は GO
G1
終わり
手順は G1
それぞれの数字をやる「K 20」

注意してやる「無くす ワード ”KAME :K」「」
新しいカメ ワード ”KAME :K
位置は リスト :K × 40 60
設定する ワード ”KAME :K ”めいれい 「始める 「かくれる」」
出てくる

終わり
を左クリックすると、0~19のKAMEが作られます。


(2) 20のカメを動かす

<考え方>
・それぞれのカメのプロセスとして動かします。
20のカメを動かすのもと.mwxを 左クリックしてはじめましょう。 


 数字を順に止めるプログラムを書きます。

forever を使って、それぞれのカメのプロセスとして動くプログラムを書きます。
英語 日本語
to GO
G1
end
to G1
dotimes [K 20]
[
carefully[remove word "KAME :K][]
newturtle word "KAME :K
setpos list :K * 40 60
set word "KAME :K "rule [launch[ht]]
st
forever[G2]
]
end
to G2
repeat 60
[
setx xcor + 5
wait 1
]
sety ycor - 40
end
手順は GO
G1
終わり
手順は G1
それぞれの数字をやる「K 20」

注意してやる「無くす ワード ”KAME :K」「」
新しいカメ ワード ”KAME :K
位置は リスト :K × 40 60
設定する ワード ”KAME :K ”めいれい 「始める 「かくれる」」
出てくる
無限に「G2」

終わり
手順は G2
くりかえす 60

横の位置は 横の位置 + 5
待つ 1

縦の位置は 縦の位置 - 40
終わり


(3)赤カメの発射

<考え方>
・追加設定のしょうとつ命令を使って、ぶつかったカメを消します。
・しょうとつイベント(しょうとつ命令)は、同じプロセスの中で、カメを見えなくするプログラムを実行します。(外のプロセスを呼ぶとフリーズします)
赤カメの発射のもと.mwxを 左クリックしてはじめましょう。 


 赤いカメを発射するプログラムを書きます。

・ の中にプログラムを書きます。追加設定で しょうとつ命令 を書きます。
英語 日本語
repeat 60 [fd 10 wait 0.1] st くりかえす 60 「前へ 10 待つ 0.1」 出てくる
ht ask yourname [clickon]  かくれる たのむ ぶつかったかめ 「クリックオン」
を左クリックするとをクリックオンするプログラムを書きます。
英語 日本語
to GO
G1
end
to G1
dotimes [K 20]
[
carefully[remove word "KAME :K][]
newturtle word "KAME :K
setpos list :K * 40 60
set word "KAME :K "rule [launch[ht]]
st
forever[G2]
]
end
to G2
repeat 60
[
setx xcor + 5
wait 1
]
sety ycor - 40
end
to P
M1,
clickon
end
手順は GO
G1
終わり
手順は G1
それぞれの数字をやる「K 20」

注意してやる「無くす ワード ”KAME :K」「」
新しいカメ ワード ”KAME :K
位置は リスト :K × 40 60
設定する ワード ”KAME :K ”めいれい 「始める 「かくれる」」
出てくる
無限に「G2」

終わり
手順は G2
くりかえす 60

横の位置は 横の位置 + 5
待つ 1

縦の位置は 縦の位置 - 40
終わり
手順は P
M1、
クリックオン
終わり