例題の解説
をテンプレートにして作成
[
ホーム
|
一覧
|
検索
|
最終更新
|
ヘルプ
] [
新規
]
VWRR
・
WIKIBOX
建築mome
・
メーカー
最新の40件
2018-07-17
VectorScript
2013-05-25
例題の解説
2011-12-09
ΔxΔy
GetLine
Distance
Num2Str
2011-12-08
寸法変倍
MenuBar
日付スタンプ
Date
面積スタンプ
2011-12-07
HArea
Num2StrF
TextOrigin
GetPt
FSActLayer
FActLayer
Concat
BeginText
EndText
図面の中を検索
ReDraw
MoveObjs
GetKeyDown
ClrMessage
Message
Y方向複製
2011-12-06
キー入力
ダイアログ
2011-12-04
図形の整列
2011-11-26
属性を設定する
Locus
変数
Oval
識別子
定数
基本型
言語仕様
制御命令
IF
total:
0
today:
0
yesterday:
0
now:
2
開始行:
**例題プログラムの解説 [#m9625c0f]
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|1|PROCEDURE TEST;|プログラムの宣言をしています。&br;「TE...
|2|VAR|メインプログラムで変数を使うために、変数宣言をして...
|3| index:INTEGER;|最初の変数は「index」と名付けました...
|4| red,green,blue:LONGINT;|次はred,Green,blueという名...
|5| radius:REAL;|最後の変数はradiusです。&br;この変数...
|6|BEGIN|BEGIN文により、メインプログラムが始まります。&br...
|7| radius:=100;|変数radiusに「100」を格納します。&br;...
|8| FOR index:=1 TO 10 DO|FORループの始まりです。&br;i...
|9| BEGIN|ループする文が複数行ある場合はFORループ文に...
|10| ColorIndexToRGB(index,red,green,blue);|手続きCo...
|11| FillBack(red,green,blue);|手続きFillBackは以降...
|12| [[Oval]](-radius,radius,radius,-radius);|手続き...
|13| radius:=radius-10;|変数radiusの値を10減らします...
|14| END;|FORループのBEGIN文に対するEND文です。&br;ル...
|15| DSelectAll;|手続きDSelectAllは全ての図形を選択解...
|16|END;|メインプログラムのBEGINに対するENDです。|
|17|Run(TEST);|手続きRunを使ってプログラムを実行していま...
&ref(oval01.jpg,,50%);
** [#o522a8e5]
PROCEDURE TEST;
VAR
index:INTEGER;
red,green,blue:LONGINT;
radius:REAL;
BEGIN
radius:=100;
FOR index:=1 TO 10 DO
BEGIN
ColorIndexToRGB(index,red,green,blue);
FillBack(red,green,blue);
Oval(-radius,radius,radius,-radius);
radius:=radius-10;
END;
DSelectAll;
END;
Run(TEST);
上記のプログラムの結果
&ref(oval02.jpg,,50%);
**上記のプログラムの変更 [#l025afce]
oval → rect に変更
&ref(oval03.jpg,,50%);
**さらに変更 [#j987274d]
12行目と13行目の間に手続き「Rotate」(回転)を入れて四角形...
手続きRotateは選択された図形を指定した角度(今回は10°)で回...
12行目の後に「Rotate」を挿入します。
BEGIN
ColorIndexToRGB(index,red,green,blue);
FillBack(red,green,blue);
rect(-radius,radius,radius,-radius);
Rotate(10); {← 挿入部分}
radius:=radius-10;
END;
&ref(oval04.jpg,,50%);
**四角形の数を増やす [#ga4a4da5]
今度は8行目と14行目を書き換えて作図する四角形の数を増やし...
8行目のFORループの最大数を10から20に増やします。
FOR index:=1 TO 20 DO { 10 →20 }
これで作図する四角形の数が20個に増えます。
14行目では変数radiusの減少量を10から5に減らします。
変化量を変えないと、ループの回数が増えたことにより変数rad...
radius:=radius-5; { 10 →5 }
&ref(oval05.jpg,,50%);
終了行:
**例題プログラムの解説 [#m9625c0f]
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|1|PROCEDURE TEST;|プログラムの宣言をしています。&br;「TE...
|2|VAR|メインプログラムで変数を使うために、変数宣言をして...
|3| index:INTEGER;|最初の変数は「index」と名付けました...
|4| red,green,blue:LONGINT;|次はred,Green,blueという名...
|5| radius:REAL;|最後の変数はradiusです。&br;この変数...
|6|BEGIN|BEGIN文により、メインプログラムが始まります。&br...
|7| radius:=100;|変数radiusに「100」を格納します。&br;...
|8| FOR index:=1 TO 10 DO|FORループの始まりです。&br;i...
|9| BEGIN|ループする文が複数行ある場合はFORループ文に...
|10| ColorIndexToRGB(index,red,green,blue);|手続きCo...
|11| FillBack(red,green,blue);|手続きFillBackは以降...
|12| [[Oval]](-radius,radius,radius,-radius);|手続き...
|13| radius:=radius-10;|変数radiusの値を10減らします...
|14| END;|FORループのBEGIN文に対するEND文です。&br;ル...
|15| DSelectAll;|手続きDSelectAllは全ての図形を選択解...
|16|END;|メインプログラムのBEGINに対するENDです。|
|17|Run(TEST);|手続きRunを使ってプログラムを実行していま...
&ref(oval01.jpg,,50%);
** [#o522a8e5]
PROCEDURE TEST;
VAR
index:INTEGER;
red,green,blue:LONGINT;
radius:REAL;
BEGIN
radius:=100;
FOR index:=1 TO 10 DO
BEGIN
ColorIndexToRGB(index,red,green,blue);
FillBack(red,green,blue);
Oval(-radius,radius,radius,-radius);
radius:=radius-10;
END;
DSelectAll;
END;
Run(TEST);
上記のプログラムの結果
&ref(oval02.jpg,,50%);
**上記のプログラムの変更 [#l025afce]
oval → rect に変更
&ref(oval03.jpg,,50%);
**さらに変更 [#j987274d]
12行目と13行目の間に手続き「Rotate」(回転)を入れて四角形...
手続きRotateは選択された図形を指定した角度(今回は10°)で回...
12行目の後に「Rotate」を挿入します。
BEGIN
ColorIndexToRGB(index,red,green,blue);
FillBack(red,green,blue);
rect(-radius,radius,radius,-radius);
Rotate(10); {← 挿入部分}
radius:=radius-10;
END;
&ref(oval04.jpg,,50%);
**四角形の数を増やす [#ga4a4da5]
今度は8行目と14行目を書き換えて作図する四角形の数を増やし...
8行目のFORループの最大数を10から20に増やします。
FOR index:=1 TO 20 DO { 10 →20 }
これで作図する四角形の数が20個に増えます。
14行目では変数radiusの減少量を10から5に減らします。
変化量を変えないと、ループの回数が増えたことにより変数rad...
radius:=radius-5; { 10 →5 }
&ref(oval05.jpg,,50%);
ページ名: