プロシージャの例題

Turtleグラフィックスを使用するための準備ができていない場合は、Turtleグラフィックスを使用するための事前準備 を参照して用意してください。

プロジェクトエクスプローラ内のModule1をダブルクリックして、コードウィンドウを開きます。

Visual Basic Editorの画面構成

例題1

コードウィンドウに次のプログラムを入力してください。

VBAでは、大文字と小文字は区別されません。入力後Enterキーを押すと清書化されます。

Sub Ex_01()
InitializeTurtleGraphics
TGMoveL 200
End Sub


マウスカーソルがプロシージャ内にある(Sub Ex_01()の行とEnd Subの行の間)状態で、ファンクションキーのF5キーを押します。

Excelのワークシート上に、線が描かれます。

直線

例題2

コードウィンドウに次のプログラムを入力してください。
' で始まる行は注釈(コメント)です。

' 多角形を描くプログラム
Sub DrawPolygon()
  Dim i, n, side
  InitializeTurtleGraphics
  n = 6    ' 六角形
  side = 200    ' 辺の長さ
  For i = 1 To n
    TGMoveL side
    TGTurn 360 / n
  Next i
End Sub

マウスカーソルがプロシージャ内にある(Sub DrawPolygon()の行とEnd Subの行の間)状態で、ファンクションキーのF5キーを押します。

Excelのワークシート上に、六角形が描かれます。

六角形

n = 6の行の値を変更すると別な正多角形を描くことがます。


Visual Basic Editor      Visual Basic Editorの画面構成      VBAプログラムの実行方法

メニューページへ