TCP速度出力サンプルプログラム

TCP速度出力開始および出力終了用サンプルプログラムを下記に示します。

TCP速度出力開始

PORT#0 および #1 のアナログ出力開始の例です。

最大速度として250.0m/sを指定することで、出力が開始します。

!TITLE "OutputTCPSpeed_Start.pcs"

Sub Main

	Dim lPort As long
	Dim dMaxVelocity As Double

	'TakeArm Keep = 0

	dMaxVelocity = 250.0

	'PORT#0 アナログ出力開始
	lPort = 0
	OutputTCPSpeed lPort, dMaxVelocity

	'PORT#1 アナログ出力開始
	lPort = 1
	OutputTCPSpeed lPort, dMaxVelocity

	'GiveArm

End Sub

TCP速度出力停止

PORT#0 および #1 のアナログ出力停止の例です。

最大速度として0を指定することで、出力が停止します。

'!TITLE "OutputTCPSpeed_Stop.pcs"	

Sub Main	

	Dim lPort As long
	Dim dMaxVelocity As Double

	'TakeArm Keep = 0

	dMaxVelocity = 0.0

	'PORT#0 アナログ出力停止
	lPort = 0
	OutputTCPSpeed lPort, dMaxVelocity

	'PORT#1 アナログ出力停止
	lPort = 1
	OutputTCPSpeed lPort, dMaxVelocity

	'GiveArm

End Sub