宏程序应用指令

《宏程序应用指令》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、宏程序跳转及重复指令GOTOS:跳回到程序开始GOTOB:以程序开始方向的带跳转目标的跳转指令。GOTOF:以程序末尾方向的带跳转目标的跳转指令。GOTO:带跳转目标查找的跳转指令。查找先向程序末尾方向进行，然后再从程序开始处进行查找。GOTOC:与GOTO有区别的是，报警14080“跳转目标未找到”被抑制。这表示，在跳转目标查找没有结果情况下不中断程序加工，而以指令GOTOC下面的程序行继续进行。跳转条件允许使用所有的比较运算和逻辑运算（结果：TRUE或者FALSE)。如果这种运算的结果为TRUE，则执行程序跳转。TRUE(真实、准确)FALSE（错误）特殊情

2、况一般情况IF＜跳转条件＞=TRUEGOTOB＜跳转目标＞IF＜跳转条件＞=GOTOB＜跳转目标＞IF＜跳转条件＞=TRUEGOTOF＜跳转目标＞IF＜跳转条件＞=GOTOF＜跳转目标＞IF＜跳转条件＞=TRUEGOTO＜跳转目标＞IF＜跳转条件＞=GOTO＜跳转目标＞IF＜跳转条件＞=TRUEGOTOC＜跳转目标＞IF＜跳转条件＞=GOTOC＜跳转目标＞程序分支(CASE...OF...DEFAULT...)CASE功能可以检测一个变量或者一个计算函数当前值(类型：INT），根据结果跳转到程序中的不同位置。句法：CASE(<表达式>)OF<常量_1>GOTOF

3、<跳转目标_1><常量_2>GOTOF<跳转目标_2>...DEFAULTGOTOF<跳转目标_n>常量：变量或者计算函数首先规定的恒定值DEFAULT:对于变量或者计算函数没有采用规定值的情况,可以用DEFAULT指令确定跳转目标。N20DEFINTVAR1VAR2VAR3N30CASE(VAR1+VAR2-VAR3)OF7GOTOFLabel_19GOTOFLabel_2DEFAULTGOTOFLabel_3N40Label_1:G0X1Y1N50Label_2:G0X2Y2N60Label_3:G0X3Y3CASE指令由N30定义下列程序分支可行性：1.如

4、果计算函数值VAR1+VAR2-VAR3=7，则跳转到带有跳转标记定义的程序段"Label_1"(→N40)。2.如果计算函数值VAR1+VAR2-VAR3=9，则跳转到带有跳转标记定义的程序段"Label_2"(→N50)。3.如果计算函数VAR1+VAR2-VAR3的值既不等于7也不等于9，则跳转到带有跳转标记定义的程序段“Label_3”(→N60)。程序部分重复(REPEAT,REPEATB,ENDLABEL,P)功能：程序部分重复是指在一个程序中，可以任意组合重复已经编写的程序部分。需要重复的程序行或程序段落带有跳转标记（标签）。REPEATB:重复程

5、序行的指令REPEAT:重复程序段落的指令1、重复单个程序行<跳转标记>:......REPEATB<跳转标记>P=...2.重复跳转标记和REPEAT指令之间的程序段落：<跳转标记>:......REPEAT<跳转标记>P=...3.重复两个跳转标记间的段落：<起始跳转标记>:......<结束跳转标记>:......REPEAT<起始跳转标记><结束跳转标记>P=...说明REPEAT指令不能被括在这两个跳转标记之间。如果在REPEAT指令前找到了<起始跳转标记>，但在REPEAT指令前没有找到<结束跳转标记>，则重复<起始跳转标记>和RE

6、PEAT指令之间的程序段落。4.重复跳转标记和ENDLABEL间的段落：<跳转标记>:......ENDLABEL:......REPEAT<跳转标记>P=...说明REPEAT指令不能被括在<跳转标记>和ENDLABEL之间。如果在REPEAT指令前找到了<跳转标记>，但在REPEAT指令前没有找到ENDLABEL，则重复<跳转标记>和REPEAT指令之间的程序段落。示例1：重复单个程序行N10POSITION1:X10Y20N20POSITION2:CYCLE(0,,9,8);位置循环N30...N40REPEATBPOSITION1P=5;执行程序段

7、SATZN10五次N50REPEATBPOSITION2;执行程序段N20一次N60...N70M30示例2：重复跳转标记和REPEAT指令之间的程序段落N5R10=15N10Begin:R10=R10+1;宽度N20Z=10-R10N30G1X=R10F200N40Y=R10N50X=-R10N60Y=-R10N70Z=10+R10N80REPEATBEGINP=4;执行N10到N70程序部分四次N90Z10N100M30示例3：重复两个跳转标记间的段落程序代码注释N5R10=15N10Begin:R10=R10+1;宽度N20Z=10-R10N30G1X=R

8、10F200N40Y=R