Turtleグラフィックスを使用するための準備ができていない場合は、Turtleグラフィックスを使用するための事前準備 を参照して用意してください。
プロジェクトエクスプローラ内のModule1をダブルクリックして、コードウィンドウを開きます。
コードウィンドウに次のプログラムを入力してください。
VBAでは、大文字と小文字は区別されません。入力後Enterキーを押すと清書化されます。
Sub Ex_01()
InitializeTurtleGraphics
TGMoveL 200
End Sub
マウスカーソルがプロシージャ内にある(Sub Ex_01()の行とEnd Subの行の間)状態で、ファンクションキーのF5キーを押します。
Excelのワークシート上に、線が描かれます。
コードウィンドウに次のプログラムを入力してください。
' で始まる行は注釈(コメント)です。
' 多角形を描くプログラム
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の行の値を変更すると別な正多角形を描くことがます。