if 语句

sytgos

如果要实现以下动作,该如何用语句表达
( h: y% t/ {4 c
6 j* w! ~% @& o) I* o& B& {  W如果系统字体为 3
8 }* f) _5 @/ z4 k那么
+ j$ p, u4 t6 j( F5 L1 N! DLOAD SUBPART ‘c:\finish3.mi’
2 m) i6 [* F" b" [9 [
* i3 e4 ?$ T+ L, I. M; ^* G如果系统字体为 4
那么
7 t, Q6 |2 K  y8 _  }: _# `: YLOAD SUBPART ‘c:\finish4.mi’

! G5 {0 M1 r8 ]) N7 B如果系统字体为 5
那么
LOAD SUBPART ‘c:\finish5.mi’

如果系统字体为 6
那么
LOAD SUBPART ‘c:\finish6.mi’


Else if 不做动作
' v2 L& J! x# k+ Y
4 l2 R& r6 M" V  h* f下面是我乱写的,看了一下,是不是缺一个let语句?


0 i& t6 H. r! l- D2 {4 ^4 p1 ]DEFINE F

  IF (TEXT_SIZE=3)
4 A) O* _6 o7 K  `3 z1 ?! r
0 ?/ N. A- b7 j2 V  LOAD SUBPART   ‘c:\finish.mi’
   
  END_IF
8 u2 m% |0 g: H& C2 q) `+ ]
2 a9 ^% _4 O; c& c' K) fEND_DEFINE

kting

可以如下：
DEFINE F
( J7 u  j% s/ V$ `4 m, m
  IF (TEXT_SIZE=3)
# G8 a5 T& u7 {) ~2 e8 O' U
  LOAD SUBPART   ‘c:\finish.mi’
, R: {) F: q# v   
2 \( Y1 R) r) H ELSE

IF (TEXT_SIZE=4)

1 I) x0 i) S5 o6 g6 W5 \4 F LOAD SUBPART '....'

ELSE
4 `5 m9 R: ~- m; F
3 B% _- q# Y8 e  s' V' @( ] IF (TEXT_SIZE=5)
. ?; F# x* r2 m& V8 R" b6 }3 |. ~" \
4 O+ W4 q$ u  @2 F LOAD SUBPART '...'

# \, N0 j( `* F ELSE

IF
: r2 Y' O# [6 ]; c7 n" M  \ .
.
.
ELSE

DISPLAY ("NO ACTION")
7 b( l5 k* J: i( u& N. y
END_IF
  V4 e, Q: B7 E
  U, g1 ~- S: ~3 D& HEND_DEFINE

这就是所谓的条件语句的嵌套了......

sytgos

得到的提示如下,程序源文件如下面,翻了翻别人的程序,应该是少了一个类似于let什么的语句好像...到底是缺什么呢?
7 J9 N! f* f$ W0 p
4 d1 @3 q* H) {
! z, t& R0 k4 m- N


* g) A1 a  u* b# k6 g! W& GDEFINE FINISH

" e4 G- j$ Y+ q- P  
  IF (TEXT_SIZE 3)

  X$ x2 I$ y! m$ V    LOAD SUBPART 'FINISH_A4_MM_UP.MI'
0 w( F$ C. `+ K% z1 b$ C
ELSE
$ a9 G( T# q* a' S# v
  IF (TEXT_SIZE .12)
1 W2 a4 ]1 N5 ^! u( _
    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

ELSE
( R% B/ v- j1 o+ W) z
  IF (TEXT_SIZE .19)
) }7 ]8 Y/ ^8 a' m. P. b% K3 k
1 ?" g2 h% N. |" S1 X1 b+ D4 ]    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
7 Y. J0 a5 h$ R- ?
6 ?. x1 d, A# a  s/ K& i$ Z- g; p5 M, |8 UELSE

  IF (TEXT_SIZE .5)
  X) q' o" E( o# H
! I9 [( ]$ m: A2 D! Z" |    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
% H' d& O3 e+ R, v
8 x: Z# l2 ~7 f7 k- @7 V& _4 [
% ]7 a. d9 K* ~1 P- a0 nELSE
) l1 N+ y6 Q! j
2 Y1 W& _3 N" B  o    DISPLAY ("NO ACTION")
' L2 S0 S* M( Q" d) W7 D* h! s
3 H1 ]4 z+ y8 N/ i8 @3 p8 h6 AEND_IF

END_DEFINE
7 ?& _: j% w9 u0 q( K: l- o
[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

添加了如下语句之后变成这样的提示:
2 P+ n/ E: C4 T# T4 G0 j% XTEXT_SIZE 是不被允许的宏

kting

试一下在Define finish后
, ?2 G; l9 P$ J9 M$ e0 c  W加入
7 y% k0 S2 J8 Y* Z* dPARAMETER input_value

+ ~; T- C' S' p. T- f) q& ^5 dLOCAL TEXT_SIZE
( E5 {& \# c' i1 h, Q3 q5 B" C
LET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP
& h: e: Y; R7 X# T8 e
  INQ_ENV 12
2 q* @+ Y, r2 |6 j) j+ ?" Y
  LET CURRENT_TEXT_SIZE (INQ 6)
  V3 }) x3 `* n. U, y
6 y" r' N4 @  E. L1 z$ w6 t  
) s1 ]8 X8 H) r& T
1 n5 Y1 t# @; D7 J IF (CURRENT_TEXT_SIZE=.19)
( E) l- R" W1 U, E; U" h
      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
  
4 I3 T6 x& ]+ i" p  ELSE
; `/ C1 h! z3 q
& j/ [8 J! S* a  IF (CURRENT_TEXT_SIZE=3)

      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
; o; \+ R% O: K2 V( M* r1 O
1 @6 q9 ?- `* ^8 R9 S7 x& `
+ \8 {( P$ Y& f8 o4 ~  ELSE

1 j  ?2 h0 ]6 l$ o* L5 b  IF (CURRENT_TEXT_SIZE=0.12)
/ \0 e4 M. r& i' u
      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
8 z" m( a& c+ L4 W
  ELSE

  IF (CURRENT_TEXT_SIZE=5)

6 s5 ]8 U* P: F- w      LOAD SUBPART 'FINISH_A0_MM_UP.MI'

7 t; P4 A  K0 `* C4 g
  ELSE
6 [: R& t1 ^+ N3 O1 v! q+ {6 n
$ F1 G" H" }- j2 M    DISPLAY ("Wrong TEXT_SIZE")


  END_IF
8 B; Z/ _$ |4 r7 e. b
1 Y# f& `0 x+ |( @4 Q! E0 r9 O
' D1 _4 ~0 x. K: `6 tEND_DEFINE

sytgos

但是红色的部分会执行绿色的结果,其它的都能正常的工作了...

sytgos

反复测试发现.19好像很特殊吗,if语句总是不能准确判断...

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？

Define finish
# ?  @: v$ @  `% D
% Q8 s+ f; [2 G/ _PARAMETER input_value

! }+ B% m+ O- TLOCAL TEXT_SIZE

LET TEXT_SIZE (input_value)
。
。
" `$ G% y! L3 O; L。