1.我们想实现tpwrite居中写屏(如下)

显示任务名和不显示任务名是有一定区别的

2.我们需要建立如下带参数程序，参数为字符串类型

temp_s1:="";//先设立一个空字符串

s_len:=StrLen(zklbt);//得到输入字符串的长度s_len

s_len:=Round((40-s_len)/2);//示教器一行***多显示40个字符，所以用40减去字符长度再除以2得到需要在一开始加入的空格数量

FOR i FROM 1 TO s_len DO

temp_s:=temp_s+" ";

ENDFOR//加入计算出来的空格数量

temp_s:=temp_s+zklbt;//在要输出的字符串前加入空格

TPWrite temp_s; //写屏

3.调用TPCenter，加入参数“Welcome to zklbt!”

4.***终调用主程序运行即可

整体程序如下：

MODULE Module1

ConST string temp_s:="";

VAR string temp_s1:="";

VAR string temp_s2:="";

VARnum zzz:=0;

PROC main()

!Add your code here

TPCenter "Welcome to zklbt!";

ENDPROC

PROC TPCenter(string zklbt)

temp_s1 := " ";

zzz := StrLen(zklbt);

zzz := Round((40 - zzz) / 2);

FOR i FROM 1TOzzz DO

temp_s1 := temp_s1 + " ";

ENDFOR

temp_s1 := temp_s1 + zklbt;

TPWrite temp_s1;

ENDPROC

ENDMODULE

---

更多详情点击ABB机器人配件、ABB机器人示教器