ΔｘΔｙ

距離表示

2点間の距離を表示。ｘ距離、ｙ距離、長さ

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);

プログラム

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);

最新の40件

距離表示

プログラム