if 语句

sytgos

如果要实现以下动作,该如何用语句表达

3 ], C1 E9 h3 c) ~1 M如果系统字体为 3
那么
LOAD SUBPART ‘c:\finish3.mi’

/ f5 I3 j- E! B( V# y1 i如果系统字体为 4
$ Q* Z* {- j3 X/ w: y那么
5 ?) w. H9 X( J  w' B& M6 X) K6 qLOAD SUBPART ‘c:\finish4.mi’

如果系统字体为 5
那么
; n$ c" ^  C. |# e; j; G6 g- l# y" cLOAD SUBPART ‘c:\finish5.mi’

" U3 ~$ F+ q6 B. k( X" Q如果系统字体为 6
# }/ o& i7 a+ I3 Y那么
; B! ]& S4 Q& `( P: @" P0 ~4 RLOAD SUBPART ‘c:\finish6.mi’
* B3 H' c( V) Y2 o
' j3 L# _9 @( {  @
$ B2 q. m  P8 r0 |/ l" F6 c9 ]Else if 不做动作
0 ]9 R5 i4 a& o+ m1 P
下面是我乱写的,看了一下,是不是缺一个let语句?
( @2 {' c  d9 W- p0 L, h" V) Z

' w2 T. h/ D& d$ e7 t9 KDEFINE F
6 k7 Y  B) j7 W$ {" p! u: a; U
  IF (TEXT_SIZE=3)
9 `$ n7 _+ w0 E  e* c
2 \9 W# T3 u4 D1 k* B5 C' R  LOAD SUBPART   ‘c:\finish.mi’
) b, |0 E2 m+ s- q3 ]$ f   
4 m5 s8 g% Y7 j; G3 e: q  END_IF
( U% y+ l8 E$ b$ N' e
END_DEFINE

kting

可以如下：
DEFINE F
0 x6 C  G0 n* v4 o" k
  IF (TEXT_SIZE=3)

  LOAD SUBPART   ‘c:\finish.mi’
   
ELSE

IF (TEXT_SIZE=4)
+ z4 g6 {" r1 E
) C) H3 ^7 ?: ^" L0 K7 B: \$ B LOAD SUBPART '....'
) i! c, T. X; q) a3 L
ELSE
" f/ W6 @( S7 o) x5 o  ~9 a
% c6 n, s# J4 N7 ]0 @& { IF (TEXT_SIZE=5)

& u/ r# _( \; @ LOAD SUBPART '...'
& @! C" c2 ~4 C
/ q$ V) L) t# V3 B ELSE

8 Y; k. o/ i9 C; F7 e! T) X  p- j IF
1 p, S* C) [2 T1 I# J .
.
.
ELSE
2 y+ t- z5 f8 s# L- q5 a) t
6 @9 Z: W/ ^2 [* h+ r DISPLAY ("NO ACTION")

9 L, Y# ~) q  i2 K# l1 c4 W8 |1 b3 H8 C END_IF

# q; c. D/ N7 _4 P7 aEND_DEFINE

1 P; S. o) L5 o; L这就是所谓的条件语句的嵌套了......

sytgos

得到的提示如下,程序源文件如下面,翻了翻别人的程序,应该是少了一个类似于let什么的语句好像...到底是缺什么呢?

- y$ T2 }& t$ I0 w6 |3 w
6 M/ y. _  l0 W+ W6 J4 [+ G
( N! |0 D+ ?' P# r" V

DEFINE FINISH

4 ~! N. [8 n" p( ]3 `+ ^+ ~  
  IF (TEXT_SIZE 3)
( u1 {" V/ v/ _9 ]2 m' R. c
9 J0 E; b7 D- U6 S, I6 D    LOAD SUBPART 'FINISH_A4_MM_UP.MI'
. G1 B4 `$ R5 S# C
ELSE

5 g  l  V) p' V. h  IF (TEXT_SIZE .12)

3 J3 A; _! ~% p1 s4 m& k# j9 X; t9 t' E    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

ELSE

  IF (TEXT_SIZE .19)
' j6 ?, Y4 k5 G: L7 Y" w. b1 {2 D/ o0 x
    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
4 d4 C8 X' }5 z
0 E( {' u, Z3 ]- G% f0 dELSE
( L8 c& o+ S( k7 n
  IF (TEXT_SIZE .5)
+ k7 m+ b$ y/ @" T  D; `1 g
    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
* v( a) [2 T8 m7 E0 W; Z' U7 i
+ ^5 \+ a1 b( i2 U5 B1 o
& p3 h% V# O* S4 @; a$ Z1 SELSE

6 @! f2 R- @7 b  k7 L" Q* m    DISPLAY ("NO ACTION")
% }) _9 X! O# B3 N
END_IF

END_DEFINE

[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

添加了如下语句之后变成这样的提示:
TEXT_SIZE 是不被允许的宏

kting

试一下在Define finish后
加入
PARAMETER input_value
' d: g: W. ^% t
3 h1 M& h3 E  u) d! M3 M& ZLOCAL TEXT_SIZE

5 l, X; I9 X7 V/ N# d. q  SLET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

  INQ_ENV 12
' s# t! _! `6 {# {& X) r1 z! J
5 L5 t5 l1 d: R  LET CURRENT_TEXT_SIZE (INQ 6)

  

IF (CURRENT_TEXT_SIZE=.19)

      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
  
  ELSE
$ z0 m8 T* T! E5 ^. @
% X  \- c0 k2 l  IF (CURRENT_TEXT_SIZE=3)
8 Q( L0 J' W* N/ G: I' k
9 L, O0 _' R! p" |& U      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
8 a# j- ^" a8 n$ N
/ ]4 C  i0 |; o6 F5 @& R
  ELSE

  IF (CURRENT_TEXT_SIZE=0.12)

) \' C3 O4 x1 A+ s1 I3 |      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
/ V3 K) P0 b$ [2 p2 v+ W; E( V
/ e  \3 o1 x$ ?6 _  ELSE
$ F+ h( ^  V1 h) A' s: G( y' p
  IF (CURRENT_TEXT_SIZE=5)

      LOAD SUBPART 'FINISH_A0_MM_UP.MI'
; w% [; a; F# [1 o2 B
8 j0 i; z% D# w) G. I
  ELSE

    DISPLAY ("Wrong TEXT_SIZE")
1 N' f8 N2 Z/ X; Z, W# a/ `

  END_IF
  I/ a6 a: j! h% n) t  g
$ [# ]% G& N. [0 a
7 y/ }- }$ @, o3 U: kEND_DEFINE

sytgos

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

sytgos

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

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？
* l- X8 R9 T6 \
Define finish

PARAMETER input_value
3 c, O; B' ^1 o
/ z2 a$ x& S( O+ YLOCAL TEXT_SIZE
& F6 e9 ]  N0 w' J
% O1 X( a' D: R# F, j) K$ x1 |LET TEXT_SIZE (input_value)
。
。
, J9 R, H$ {' g。