if 语句

sytgos

如果要实现以下动作,该如何用语句表达
0 l8 p7 f  P( r0 c$ L$ ~% h
' `  T2 r6 n1 o& u6 D) {9 d& s, K如果系统字体为 3
那么
' c, n/ }0 K$ e2 v* c+ ~% U; L1 {LOAD SUBPART ‘c:\finish3.mi’
9 l) ^: I+ o* |. y" `1 o8 D
如果系统字体为 4
" |9 x. b' N/ N' I. B那么
LOAD SUBPART ‘c:\finish4.mi’
& X/ q6 [$ }# k& n3 H
如果系统字体为 5
0 l) p% m9 k' f  _0 q; B2 ~+ T那么
LOAD SUBPART ‘c:\finish5.mi’

% w4 ^# ?  D* P& V3 ]' o6 j( a如果系统字体为 6
( f6 I( f2 Z7 |( Z" H- K; s2 t* m& C# L( m那么
LOAD SUBPART ‘c:\finish6.mi’
8 k) P- x  s; l% c, A( X! R
3 C5 s) V( G- f5 f/ j& q; y
Else if 不做动作

5 \( A6 U# e1 @' \下面是我乱写的,看了一下,是不是缺一个let语句?

" }$ G. E7 C$ v  |9 B7 y4 \& F
DEFINE F

; |8 z$ ^+ V0 P, {  IF (TEXT_SIZE=3)

' o+ ^3 S, k0 e) f; C* V! r+ }1 |  LOAD SUBPART   ‘c:\finish.mi’
: H# w# G: ]6 u  B" I   
2 L+ k8 a7 i. D# ]9 W( H' x: I* F  END_IF
. s6 L0 O- |, \7 a* m, y  F
9 q4 a9 g) f" x- f8 QEND_DEFINE

kting

可以如下：
DEFINE F
( X  T1 G- M* u+ ?
; m) m3 x3 `  r) L  IF (TEXT_SIZE=3)

# u2 M: z, W" b2 [2 D  LOAD SUBPART   ‘c:\finish.mi’
   
0 f! q1 s0 k) R5 M ELSE

2 }. ?2 W; [$ z3 v' f( v- z IF (TEXT_SIZE=4)
  M' f( s2 A  N+ u3 @3 P  u6 Z
LOAD SUBPART '....'
) n. \: ^; f, r
* z+ _9 f- ^/ F6 f5 V4 u# } ELSE

9 A6 x/ }. D% Y1 T; g6 R( }& a8 w# E IF (TEXT_SIZE=5)
9 R( X" [2 |1 w  P% q0 T! i( G# T
LOAD SUBPART '...'
3 V0 Z% f" ]6 G
- H+ z! A" }' p( a ELSE
2 G4 E' @5 A; a3 @, W
IF
.
4 s$ h8 `7 ]: }7 r! T- @9 ]+ b .
.
% V5 G  G! m* J0 c ELSE

" [1 ~/ b& F5 r  D$ w DISPLAY ("NO ACTION")

/ F5 T  O- i2 g+ b0 r/ A END_IF
/ u2 j& c6 K9 P5 a2 I' ]7 q
& b( J' u8 w6 k* K2 W9 K5 OEND_DEFINE

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

sytgos

得到的提示如下,程序源文件如下面,翻了翻别人的程序,应该是少了一个类似于let什么的语句好像...到底是缺什么呢?
7 j7 Q) K! R" J; n' s8 h
' J. q4 O* X  }/ W6 w0 z

8 D' t7 q7 r3 J5 y! u- ^
+ C) ~) T3 X: R6 R7 q
DEFINE FINISH

  v" O6 S# N" n' u- b  
5 m+ E/ Q% b) a0 H# g  IF (TEXT_SIZE 3)

5 [4 m4 g/ n7 {% |    LOAD SUBPART 'FINISH_A4_MM_UP.MI'

% V" f; j3 o% p; ]6 Z, [# cELSE

5 Y% Q- e, v- R0 W8 x5 \1 d$ `  IF (TEXT_SIZE .12)

    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

2 P7 \5 f7 z6 o- _# W* JELSE

/ U/ B; h+ v1 P: s; u) X  IF (TEXT_SIZE .19)

$ Q( d, x8 K4 R    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
% M7 J7 x+ F! P/ E
) }' a/ e4 K: C1 B. zELSE
( I8 {6 b; k* C' X7 x- R  b  W
  IF (TEXT_SIZE .5)
2 I5 T3 D+ B' t4 L) P
    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
  j! t% Z, W+ {+ _+ a- I
4 J# N+ e" a+ `- m# w3 |
ELSE
% C! X+ f. Z1 X
. @, m# D7 y; ~) R    DISPLAY ("NO ACTION")
+ z; B: X0 ~- [. S( _
END_IF
8 I) e5 @1 \5 X8 `/ X
  K) q& u( p5 r3 C' j! vEND_DEFINE

' |: t" V$ G+ x1 A0 {[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

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

kting

试一下在Define finish后
2 y- d9 D( s% ~加入
PARAMETER input_value
; C, M+ `- y# f9 h; y; N  }
LOCAL TEXT_SIZE

/ d3 J9 Q) i9 G2 n+ I+ @LET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

5 G: D$ _$ J6 e: W3 r$ U. l6 J& a  INQ_ENV 12
+ R. S5 k  S  `+ [, L; g
: ^$ T' h' [, n4 q4 v  LET CURRENT_TEXT_SIZE (INQ 6)
- O2 s7 B+ w6 x" U$ \. P
  
* S8 M# K, H0 ^, Z
IF (CURRENT_TEXT_SIZE=.19)
) R5 I9 P0 j8 r( k
4 ~, O' _1 ?8 T" Z0 E( k6 s: x      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
! R: o" q( N) v" y+ |: C  
! W0 }! c7 v3 V6 P/ k  ELSE

  IF (CURRENT_TEXT_SIZE=3)

      LOAD SUBPART 'FINISH_A4_MM_UP.MI'

3 h  {4 ~" J1 Y( m4 O
  ELSE

  IF (CURRENT_TEXT_SIZE=0.12)
# n9 f% L: x5 ]! e! B
4 P0 y, @8 ~) e& r# b      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

  ELSE
: x; b& X/ M+ N8 v2 u3 Q
6 u: W( {% @' g0 U  IF (CURRENT_TEXT_SIZE=5)

      LOAD SUBPART 'FINISH_A0_MM_UP.MI'


2 P3 y( F) l) q4 _7 u  ELSE

    DISPLAY ("Wrong TEXT_SIZE")
7 f' l& Q6 V: ?5 F4 Q
2 ]+ Z" p: F* Z
  END_IF
: W+ o, G' k" D" A, Q
# m) ~5 S9 O( Z( @2 V7 T
END_DEFINE

sytgos

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

sytgos

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

kting

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

Define finish
, u' o5 g, l! W! b& j. g: [
# `( i% `7 ^' H1 m# N1 {4 JPARAMETER input_value

# `# {5 Q  U# k6 G; ?0 ^* T  oLOCAL TEXT_SIZE
6 y7 j9 L: m3 F* m
# g1 D) B' r" g; C8 MLET TEXT_SIZE (input_value)
。
。
。