ΔｘΔｙ の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ΔｘΔｙ へ行く。
• ΔｘΔｙ の差分を削除

**距離表示 [#rbab14ca]
2点間の距離を表示。ｘ距離、ｙ距離、長さ
|BGCOLOR(white):250|BGCOLOR(white):400|c
|Procedure GetDxyl;||
|VAR||
|X1,Y1,X2,Y2,DX,DY,DL: REAL;||
|DVal,DVal1,DVal2,DVal3: STRING;||
|BEGIN||
|GetLine(X1,Y1,X2, Y2);|マウスで2点を指示されるまで待機し、始点と終点の座標を返します。|
|DX:=(X2-X1);||
|DY:=(Y2-Y1);||
|DL:=Distance(X1,Y1,X2,Y2);||
|DVal1:=Num2Str(2,DX);||
|DVal2:=Num2Str(2,DY);||
|DVal3:=Num2Str(2,DL);||
|DVal:=Concat('dＸ : ',DVal1,'　dＹ: ',DVal2,'　dL: ',DVal3);||
|Message(DVal);|メッセージウインドウに文字列を表示します。|
|END;||
|Run(GetDxyl);||
**プログラム [#i3776378]

 Procedure GetDxy;
	VAR
		X1,Y1,X2,Y2,DX,DY,DL: REAL;
		DVal,DVal1,DVal2,DVal3: STRING;
	BEGIN
		GetLine(X1,Y1,X2, Y2);
		DX:=(X2-X1);
		DY:=(Y2-Y1);
		DL:=Distance(X1,Y1,X2,Y2);
		DVal1:=Num2Str(2,DX);
		DVal2:=Num2Str(2,DY);
		DVal3:=Num2Str(2,DL);
		DVal:=Concat('dＸ : ',DVal1,'　dＹ: ',DVal2,'　dL: ',DVal3);
		Message(DVal);
	END;
 Run(GetDxy);