if 语句

sytgos

如果要实现以下动作,该如何用语句表达
( y( _% T! o& i
如果系统字体为 3
那么
LOAD SUBPART ‘c:\finish3.mi’

( }& L' G6 ]% @3 k0 B, N; s2 w* x如果系统字体为 4
那么
LOAD SUBPART ‘c:\finish4.mi’

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

如果系统字体为 6
/ k% l& _% B) A那么
% @' A3 Q1 |+ H' CLOAD SUBPART ‘c:\finish6.mi’
5 I! h% x9 A5 a+ \) h) `% L
6 q' {0 J/ _, G0 ]8 V8 \
5 `6 d% h7 g! }4 A9 OElse if 不做动作

2 u5 K2 p( Z8 G8 Q' X下面是我乱写的,看了一下,是不是缺一个let语句?
* g$ _& g$ L/ P2 C# ]" h) O/ ?
  H6 E  p6 j* v6 O% S# R
DEFINE F
+ }- O+ P" r. w4 u. u. [" W
- f8 m0 V& O! {4 S  IF (TEXT_SIZE=3)

3 J1 n8 S6 t. i. u  LOAD SUBPART   ‘c:\finish.mi’
. b' F& A! o+ w$ k   
  END_IF
3 B( R& \5 a; j
. N- Z- ^% y# `' m: @: XEND_DEFINE

kting

可以如下：
DEFINE F

. f9 _. W& X/ N% A- @7 u: k  IF (TEXT_SIZE=3)

  LOAD SUBPART   ‘c:\finish.mi’
5 `; H# f6 p6 y( S" b* X4 c   
. p* j. k# E: c; @# [6 Y% r ELSE
# L: [8 o. Q8 S% \
IF (TEXT_SIZE=4)

LOAD SUBPART '....'

8 M& G4 v. U5 `6 v1 P: Y ELSE

3 I, M  r6 n+ [ IF (TEXT_SIZE=5)
; i# |' t6 B7 D% U
" L4 G! m* X- m8 J LOAD SUBPART '...'

ELSE
$ Q, A& h. l# G  o1 i
IF
.
2 t" U  l7 D/ E .
: m3 ]1 M  X; c .
ELSE

+ W" K; H0 j' {# n( Z DISPLAY ("NO ACTION")
3 i* D* G9 h" s' z
7 y3 ]4 _/ u; ^0 o END_IF

+ Z" B1 |" E1 U& R* T  S% I$ ~; Y9 X- fEND_DEFINE
( `" L, i" R" x/ T, M
7 }% f2 H" H9 A. H5 P这就是所谓的条件语句的嵌套了......

sytgos

得到的提示如下,程序源文件如下面,翻了翻别人的程序,应该是少了一个类似于let什么的语句好像...到底是缺什么呢?
/ K5 k' C) h* m) V# f

! M% J- s. K. R7 G5 ~: M8 c! m
% v7 f0 Z2 ?- y1 S3 W/ T; r# F; i: c
* T$ }  B+ j" u3 w$ p! c1 \4 p( ?
DEFINE FINISH

4 ?2 w! d7 J" `. k5 i# \! m; c  
  IF (TEXT_SIZE 3)

9 M- ~+ {% f( c9 t# c    LOAD SUBPART 'FINISH_A4_MM_UP.MI'
3 `6 E% ~  ?3 ~( a' h0 C
ELSE
) }4 f7 P3 ~( x
  IF (TEXT_SIZE .12)
) w+ M& z* |7 T& i' V- d
    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

ELSE

  IF (TEXT_SIZE .19)

4 O" F$ r) H7 m% Z0 N0 F# ~    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
6 l1 S9 b) F, P: x, S+ g7 E. C
/ a- J' \4 n% j9 f# UELSE
5 [5 q: r! Y8 x
  IF (TEXT_SIZE .5)
. G) b1 v. b% U# T9 @6 T
% J% A% N: z* v$ ?5 f$ Q' N    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
! R  S( P; s5 U% J

* [8 k2 p, p+ {$ ]4 r1 z8 ~- ?4 ^ELSE

0 z4 f% G' w$ ?6 L, a+ b    DISPLAY ("NO ACTION")

: g+ |- D; ^+ `! {& T6 `+ o8 S+ X+ TEND_IF

; r8 D+ r! B% v2 l# n& f; SEND_DEFINE

+ Z1 j8 h% n4 F, _! V& Q[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

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

kting

试一下在Define finish后
: _' c2 X+ n" T; N4 Q; @$ z加入
PARAMETER input_value

  Q1 w. C& O( WLOCAL TEXT_SIZE
6 |* R+ j7 \5 e' s& v; a/ q- Y/ n6 R" K
LET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP
5 Y& F" w( S0 \
  INQ_ENV 12
6 A2 U+ G3 |' Y$ M# C0 z( S
3 T5 `, E, }3 h2 K; j+ n  LET CURRENT_TEXT_SIZE (INQ 6)

3 |" y! f4 ?0 Y4 q4 t/ f( Q  
) m: W2 k% @) V. _
0 ^# I; n5 ^& q IF (CURRENT_TEXT_SIZE=.19)
) G! l) r* @1 o: e0 P' W# {
- f0 [9 B2 {. A: x5 ?. ~3 P: T' l% B      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
  
  ELSE

5 X; y- q! m2 b% v  IF (CURRENT_TEXT_SIZE=3)
# ?* h# p$ L# w* ?+ p
/ O; n2 ~2 \' P      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
$ e0 F0 e, _; [

  ELSE

  IF (CURRENT_TEXT_SIZE=0.12)
4 o6 `1 T* g, Q" e. x  d7 Q) }
4 W9 T+ \5 I  a- ?& Z7 y      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
8 C8 _- e' c5 [0 c
& i# x) e# N* q0 z* U  ELSE
. x; O0 @/ Z; I5 E
  IF (CURRENT_TEXT_SIZE=5)

' m  Z* f. T/ D! N, K' u* f      LOAD SUBPART 'FINISH_A0_MM_UP.MI'

  f  _% p8 @/ |6 f
3 w" f& k6 k/ A. ?# u5 Z: c  ELSE
2 J- S' E/ \3 u7 Z3 s) f( }- F9 M
    DISPLAY ("Wrong TEXT_SIZE")

, F% X' x, A8 Y+ T8 g2 o+ D6 q
  END_IF


8 A8 l" [. t/ @; |$ |END_DEFINE

sytgos

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

sytgos

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

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？
. A6 h) Y0 E+ L- k. Y/ h% J; j% K
9 Q* F" z  F8 IDefine finish
7 ?+ x' N- [4 L
' g( T, d, e# N# ?PARAMETER input_value
: }7 D( K: H9 P5 Q7 Y- F! W
) D: E6 R+ U6 ^9 S% ]LOCAL TEXT_SIZE

$ a$ P! L8 W4 ], I- B( z9 ELET TEXT_SIZE (input_value)
9 d3 M1 V* ^% X) L0 h# @。
4 Q0 |$ s- L) F6 u; U。
。