ブロックは、ステートメントの並びを持つオブジェクトである。ステートメントは、レシーバとメッセージの組などである。ブロックに、あるメッセージを送ることで、ステートメントの並びを実行させることができる。
ブロック内で、ローカル変数を使用するには、ステートメントの始まる前に、| 変数名1 変数名2 … 変数名k | を記載する。
ワークスペース上で実行するには、[ の始まりから ] の終わりまでを選択して、ALT+d を押す。
なお、選択は、シフトキーを押しながらカーソルキーの「↑」を押す、または、マウスの左ボタンを押しながらマウスカーソルを動かす。
ブロックの返り値は、最後に実行したステートメントの返り値である。
今日の演習のためのプロジェクトを作り、その中で、Sqeuak の作業をすることにしよう。
例：「ナビゲータ」→「新しく作る」を選択する。「名前無し」のウインドウの灰色部分を右クリックし、黒いアイコンを左クリックして、適当な所へ動かす。「名前無し」をクリックし、名前を変える。プロジェクトへ入る。
(1) 赤い星を表示する手続きを、ブロックでまとめよう。そのブロックを変数 redStar で指そう。
ワークスペースで以下を行なう。
redStar := [ | s | (ローカル変数 s を宣言)
s := StarMorph new. (星のインスタンスを作る)
s color: Color red. (星の色を決める)
s openInWorld ] (星を画面に表示する)
|
タブキーを押して、インデントを入れると、カッコ良くプログラムが書ける。
(2) 赤い星の表示を実行しよう。
ワークスペースで、以下を行う。
redStar value |
指定した座標に赤い星を表示する手続きを、ブロックで作成しよう。座標は、2 つの引数でブロックに与えるものとする。以下の方法で動作するようにしよう。
ワークスペースでの実行の様子
redStar := ブロックの定義（自分で作ろう） redStar value: 200 value: 300 |
ここで、星のインスタンスに、座標を指定するには、メッセージ position: を送る。このメッセージの引数は、位置のインスタンスである。
位置のクラスは、Point である。座標を指定しながら位置のインスタンスを作るには、メッセージ x:y: を送る。
ブロックの返り値が最後に処理した結果ということに注意すると、こんな答えもある⇒
真偽を表すオブジェクトがある。true と false である。たとえば、「1 < 2」の返り値は true オブジェクトであり、「1 > 2」の返り値は false オブジェクトである。
真偽のオブジェクトは、次のメッセージを処理することができる。
| メッセージ | true オブジェクトの処理 | false オブジェクトの処理 |
| ifTrue: | 引数のブロックを実行する | 何もしない |
| ifFalse: | 何もしない | 引数のブロックを実行する |
| ifTrue:ifFalse: | 第１引数のブロックを実行する | 第２引数のブロックを実行する |
結果として、選択（いわゆる if 文）の処理ができる。
トランスクリプトを出しておき、ワークスペースで以下の動作を確認しよう。
1 < 2 （ALT+p を押す。true/false のどちらが返るかな？） 1 > 2 （ALT+p を押す。true/false のどちらが返るかな？） true ifTrue: [Transcript show: 'yes' ; cr] （ALT+d を押す。） false ifTrue: [Transcript show: 'yes' ; cr] （ALT+d を押す。） (1 < 2) ifTrue: [Transcript show: 'yes' ; cr] （ALT+d を押す。） (1 > 2) ifTrue: [Transcript show: 'yes' ; cr] （ALT+d を押す。） |
※ セミコロンは、レシーバが共通であることを表す。つまり、メッセージ「cr」のレシーバは「Transcript」。
ブロックにメッセージを送ることで、反復の処理をすることができる。原理は選択のものと似ている。
| メッセージ | レシーバのブロック・オブジェクトの処理 |
| whileTrue: | レシーバのブロック・オブジェクト（自身）の処理結果が true となれば、引数のブロックを実行し、再度、自身に whileTrue: を処理させる。 |
| whileFalse: | 自身の処理結果が false となれば、引数のブロックを実行し、再度、自身に whileFalse: を処理させる。 |
トランスクリプトを出しておき、ワークスペースで以下の動作を確認しよう。
i := 1 [ i < 10 ] whileTrue: [ Transcript show: i asString. i := i + 1 ] |
色を変えながら星を並べて表示するプログラムを作ろう。
(1) まず、座標(sx,sy)から右にdx、下にdyだけ進みながら、等間隔で星を10個並べるブロックを作ろう。このブロックを、変数 starLine で指すことにせよ。そして、starLine value: sx value: sy value: dx value: dy とメッセージを出して実行することにせよ。
(2) 次に、通常、星の色は黄色とするが、x 座標が 3 の倍数のときには、赤とするように改良せよ。ちなみに、割り算の余りは「\\（バックスラッシュ２つ）」の二項メッセージで求まる。値の一致を判定するには「==（イコール２つ）」の二項メッセージを使う。
このブロックを実現するために、サブルーチンとなるブロックを作成しても構わない。
レポートには、改良後の starLine と関連プログラム、および、実行結果のスクリーンショット（練習２の解答例のようなもの）を印刷したものに、手書きで要所にコメントを記載せよ。
来週、演習の開始時に集めます。
