回复:请大侠指点条件分支的程序错误

我心依旧555

  • 帖子

    769
  • 精华

    9
  • 被关注

    34

论坛等级:奇侠

注册时间:2009-09-12

普通 普通 如何晋级?

发布于 2018-01-05 16:28:18

11楼

展开查看
以下是引用123_123在2018-01-04 21:30:04的发言 >10楼

802D系统很老了,没有AND、WHILE、ENDIF、ELSE,只有IF,GOTO,GOTOB,GOTOF

以下是引用我心依旧555在2018-01-03 10:01:17的发言 >5楼: 尽量少用跳转,否...

引用5楼详细内容:

 尽量少用跳转,否则程序的可读性很差,有时自己都不知道跳转到什么地方了。

IF R10 <= 2 

;条件下的执行

ENDIF

IF R10 <= 4 AND R10>2

;条件下的执行

ENDIF

IF R10 <= 6 AND R10>4

;条件下的执行

ENDIF

M30

没有ENDIF指令可以用WHILE指令代替的。

没有了吗?好多年没有接触了。找了一下以前的试车数据里的标准循环,上面都有啊。有系统的试试就知道了。。

PROC CYCLE83(REAL RTP,REAL RFP,REAL SDIS,REAL DP,REAL DPR,REAL FDEP,REAL FDPR,REAL DAM,REAL DTB,REAL DTS,REAL FRF,INT VARI,INT _AXN,REAL _MDEP,REAL _VRT,REAL _DTD,REAL _DIS1) SAVE SBLOF DISPLOF
;VERSION: 01.00.01 Feb 24, 2003
;C05.03.13 Feb 22, 2001
;Tieflochbohren
DEF AXIS _Z
DEF REAL FAK,HH1,HH2,HH3,HH4,HH5,HH8,_HH9,VHA,HMF,HZ,_FAK1
DEF INT HH6,HH7
HH2=FDEP HH3=FRF HH4=$P_F HH6=0 FAK=1 HZ=1
IF($P_GG[13]==1)OR($P_GG[13]==3)
FAK=$MN_SCALING_VALUE_INCH
ENDIF

一切皆有可能
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SINUMERIK

共有25497条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。