第3回 メッセージの詳細（4月26日）

今日の課題

• ブロック
• メッセージによる制御構造（いわゆる if文、while文）

■ ブロック

ブロックは、１個以上のステートメントを束ね持つオブジェクトである。大括弧で１個以上のステートメントを囲むことで表記する。C言語では、ステートメントを中括弧｛　｝で囲み、｛　｝をすぐに実行するが、Smalltalk では、動けと言われるまでは実行されず、また、何度も実行することができる。

準備

下記の例題１の準備として、下記のオブジェクトを定義しよう。

• クラスの定義

  Object subclass: #Commet
      instanceVariableNames: 'star'
      classVariableNames: ''
      poolDictionarys: ''
      category: 'MyObject'
  

• メソッドの定義

  appear
    star := StarMorph new.
    star openInWorld
  
  disappear
    star delete
  
  perform: term
    star
         position: (Point x: 10 y: 10).
    Transcript show: 'pos = (10,10)';
         cr.
    (Delay forMilliseconds: term) wait.
    star
         position: (Point x: 50 y: 50).
    Transcript show: 'pos = (50,50)';
         cr.
    (Delay forMilliseconds: term) wait.
    star
         position: (Point x: 100 y: 100).
    Transcript show: 'pos = (100,100)';
         cr.
    (Delay forMilliseconds: term) wait.
  

  実行は、Workspace 上で以下を行う。

  a := Commet new     （← ここを入力した後で Alt-d を押す）
  a appear            （← ここを入力した後で Alt-d を押す）
  a perform: 1000     （← ここを入力した後で Alt-d を押す）
  a disappear         （← ここを入力した後で Alt-d を押す）
  

例題１

下記を１行ずつ評価してみよう。

b := Commet new
b appear
x := [ b perform: 500. b perform: 200. b perform: 50 ]
x value

（ブロックには引数を渡すことができる。）

z := [: tm | b perform: tm. b perform: (tm + 400). b perform: (tm / 2)]
z value: 400
z value: 1000

■ メッセージによる制御構造

プログラムの制御は、以下のメッセージを送ることで実現される。

• ifTrue:
• ifFalse:
• ifTrue:ifFalse:
• whileTrue:
• whileFalse:
• repeat:

例題２

ifTrue: の使用例

c := Commet new
c appear
( 100 < 200 ) ifTrue: [ c perform: 100 ]
( 100 > 200 ) ifFalse: [ c perform: 100 ]
( 100 > 200 ) ifTrue: [ c perform: 100 ] ifFalse: [ c perform: 2000 ]

whileTrue: の使用例（whileTrue: の左側がブロックであることに注意）

i := 1.
[ i < 10 ] whileTrue: [ c perform: ( i * 100 ). i := i + 1 ]

■ 小レポート

流れ星のクラス Commet を次のように改良しよう。

• インスタンス変数に、初期位置として bx、by、ずれ幅として dx、dy、書き換え回数 nd を追加する。
• bx, by のアクセサとして、setBx: と setBy: を作る。
• dx, dy のアクセサとして、setDx: と setDy: を作る。
• nd のアクセサとして、setNd: を作る。
• appear では、bx, by, dx, dy, nd のデフォルト値として、10, 10, 5, 8, 30 を代入する。
• メソッド perform: では、3 回の位置指定をしていたが、nd 回の位置指定をするように変更する。星の最初の表示位置は (bx, by) とし、書き換えのたびに表示位置が (dx, dy) だけ変化するものとする。たとえば、k回目の書き換えでは、表示位置が、(bx + k * dx, by + k * dy) となる（問題文の式は数学の式である。しかし、プログラムの際、演算子はメッセージであるので、計算の優先順位に注意してプログラムを作ること）。

ヒント

• メソッド内だけで使う変数の宣言は、メソッド名の定義行の下の行に、| i | のようにする。
• 数字のオブジェクトに、asString のメッセージを送ると、数字に対応する文字列のオブジェクトが返される。
• 文字列のオブジェクトの間に、コンマを置くと、結合した文字列が得られる。
• while の条件の処理でミスをすると無限ループに陥いることがある。Squeak で処理が止まらなくなる恐れがあるので、実行の前には「保存」をしておこう。

小レポート作成要領

• プログラムと実行の様子が分かるように画面に表示させる（プログラムは、Commetクラス、作成した全メソッド、そして、実行の様子は、Transcript が少なくとも表示されていること）。
• 画面のハードコピーをプリンタで印刷する。
• プログラムにコメントを記入する。

次回、演習の開始時に集めます。