マウスによる入力
をテンプレートにして作成
[
ホーム
|
一覧
|
検索
|
最終更新
|
ヘルプ
] [
新規
]
VWRR
・
WIKIBOX
建築mome
・
メーカー
最新の40件
2018-07-17
VectorScript
2013-05-25
例題の解説
2011-12-09
ΔｘΔｙ
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:
1
開始行:
ユーザーがマウスを使って図形を描くプログラムを作るには、
ユーザーがマウスで入力した位置の座標を取得するための手続...
**クリックされた座標を取得する [#x2419812]
手続き「GetPt」はマウスクリックされるまでプログラムは待機し
クリックされたらその座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に...
用紙の上をクリックすると、クリックした位置に基準点が配置...
例題プログラム
PROCEDURE TEST;
VAR
x,y:REAL;
BEGIN
Getpt(x,y);
Locus(x,y);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|Getpt(x,y);|手続きGetptを使ってユーザーが入力した座標...
|6|Locus(x,y);|手続きLocusを使って基準点を配置します。|
上記プログラムの実行結果
&ref(getpt01.jpg,,50%);
**マウスクリックした2点の座標を取得する。 [#a6b201a8]
手続き「GetLine」は1点目をクリックした後、2点目がクリック...
環境設定の「クリック・ドラッグ描画」が「ON」の時は、1点目...
2点目がクリックされたら、1点目と2点目の座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に...
用紙の上をクロックすると、クリックした点から線が伸びます。
もう一回クリックすると 直線が描かれます。
例題プログラム
PROCEDURE TEST;
VAR
x1,y1,x2,y2:REAL;
BEGIN
GetLine(x1,y1,x2,y2);
MoveTo(x1,y1);
LineTo(x2,y2);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|GetLine(x1,y1,x2,y2);|手続きGetLineを使って直線の座標...
|6|MoveTo(x1,y1);|手続きMoveToを使って直線の書き始めの位...
|7|LineTo(x2,y2);|手続きLineToを使って直線を書きます。&br...
上記プログラムの実行結果
&ref(getline01.jpg,,50%);
**マウスで指定した四角形の座標を取得 [#c26e746e]
手続き「GetRect」は1点目をクリック後四角形の輪郭が表示さ...
2点目がクリックされたら、四角形の座標を返します。
以下のプログラムを実行すると、マウスカーソルの形状が「+」...
用紙の上をクリックすると、四角形の輪郭が表示されます。
もう一回クリックすると、四角形が描かれます。
PROCEDURE TEST;
VAR
x1,y1,x2,y2:REAL;
BEGIN
GetRect(x1,y1,x2,y2);
Rect(x1,y1,x2,y2);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|GetRect(x1,y1,x2,y2);|手続きGetRectを使って四角形の座...
|6|Rect(x1,y1,x2,y2);|手続きRectを使って四角形を書きます。|
上記プログラムの実行結果
&ref(getrect01.jpg,,50%);
終了行:
ユーザーがマウスを使って図形を描くプログラムを作るには、
ユーザーがマウスで入力した位置の座標を取得するための手続...
**クリックされた座標を取得する [#x2419812]
手続き「GetPt」はマウスクリックされるまでプログラムは待機し
クリックされたらその座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に...
用紙の上をクリックすると、クリックした位置に基準点が配置...
例題プログラム
PROCEDURE TEST;
VAR
x,y:REAL;
BEGIN
Getpt(x,y);
Locus(x,y);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|Getpt(x,y);|手続きGetptを使ってユーザーが入力した座標...
|6|Locus(x,y);|手続きLocusを使って基準点を配置します。|
上記プログラムの実行結果
&ref(getpt01.jpg,,50%);
**マウスクリックした2点の座標を取得する。 [#a6b201a8]
手続き「GetLine」は1点目をクリックした後、2点目がクリック...
環境設定の「クリック・ドラッグ描画」が「ON」の時は、1点目...
2点目がクリックされたら、1点目と2点目の座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に...
用紙の上をクロックすると、クリックした点から線が伸びます。
もう一回クリックすると 直線が描かれます。
例題プログラム
PROCEDURE TEST;
VAR
x1,y1,x2,y2:REAL;
BEGIN
GetLine(x1,y1,x2,y2);
MoveTo(x1,y1);
LineTo(x2,y2);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|GetLine(x1,y1,x2,y2);|手続きGetLineを使って直線の座標...
|6|MoveTo(x1,y1);|手続きMoveToを使って直線の書き始めの位...
|7|LineTo(x2,y2);|手続きLineToを使って直線を書きます。&br...
上記プログラムの実行結果
&ref(getline01.jpg,,50%);
**マウスで指定した四角形の座標を取得 [#c26e746e]
手続き「GetRect」は1点目をクリック後四角形の輪郭が表示さ...
2点目がクリックされたら、四角形の座標を返します。
以下のプログラムを実行すると、マウスカーソルの形状が「+」...
用紙の上をクリックすると、四角形の輪郭が表示されます。
もう一回クリックすると、四角形が描かれます。
PROCEDURE TEST;
VAR
x1,y1,x2,y2:REAL;
BEGIN
GetRect(x1,y1,x2,y2);
Rect(x1,y1,x2,y2);
END;
Run(TEST);
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|5|GetRect(x1,y1,x2,y2);|手続きGetRectを使って四角形の座...
|6|Rect(x1,y1,x2,y2);|手続きRectを使って四角形を書きます。|
上記プログラムの実行結果
&ref(getrect01.jpg,,50%);
ページ名:
![[PukiWiki Plus!]](image/pukiwiki.plus_logo.png "[PukiWiki Plus!]"){kind=logo}
