if 语句

sytgos

如果要实现以下动作,该如何用语句表达
6 P, d" H) L. J" ~
& T, s- E# G, `& ^! [如果系统字体为 3
; d* E: v6 }# s& _! c* |  K" B那么
LOAD SUBPART ‘c:\finish3.mi’

) n4 _6 t+ B5 u  p2 @7 F如果系统字体为 4
" S/ D0 Q. g; R9 \/ {3 t$ G# Q' U那么
" U" _8 d9 U/ ]; ^LOAD SUBPART ‘c:\finish4.mi’

如果系统字体为 5
8 P9 {0 ~% G$ R/ C1 w那么
LOAD SUBPART ‘c:\finish5.mi’
& y6 [6 f% B3 t" [
! f# ?# X, Z) h9 M如果系统字体为 6
; z* B, q3 C* L, H那么
LOAD SUBPART ‘c:\finish6.mi’

, y5 t8 v4 V6 e% W
Else if 不做动作
8 e+ c9 j2 ]" }! ?; Y
; x9 T, C+ w. W" l下面是我乱写的,看了一下,是不是缺一个let语句?


! d# o0 D& z+ y2 o$ n' _DEFINE F
* h6 T% [; T2 o
  IF (TEXT_SIZE=3)
1 Z3 R$ T$ f- B6 ?1 Q" C
  LOAD SUBPART   ‘c:\finish.mi’
4 w$ m8 Q( D" a( [. @   
7 K6 D) ~3 W. i) X  END_IF

END_DEFINE

kting

可以如下：
) ?( L( e; [& V3 k  d7 [1 nDEFINE F
$ X4 z2 K6 I3 f- a# r$ B0 K
  IF (TEXT_SIZE=3)

  LOAD SUBPART   ‘c:\finish.mi’
   
- E6 i/ H; W( g* a' o2 e ELSE

IF (TEXT_SIZE=4)

8 v% G* T; ^3 G% l4 { LOAD SUBPART '....'

  G+ ?$ M( E/ Z4 _+ Y ELSE
4 Q  I' ?& f' [
- N3 P2 T7 s! A% q5 c IF (TEXT_SIZE=5)

LOAD SUBPART '...'
' X% j: [5 ]; W1 @  }5 t$ x, W, |2 Z, \
ELSE

. q" V3 j4 B! P0 B3 W# u3 N IF
.
.
.
+ r: ^" K) w! d  D- ]* Y ELSE

' F* a! B7 d4 T+ B2 l) I. Y& Z+ r DISPLAY ("NO ACTION")

( l- q3 t, N8 x- H$ @' [$ j END_IF

END_DEFINE
( W3 I; k: ?" T1 k5 f2 i
这就是所谓的条件语句的嵌套了......

sytgos

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

! _0 z1 P3 i4 {2 P. a

* ^) y! m; e3 Z6 }/ v

, p, s# q, n1 `+ E7 o- `DEFINE FINISH
% e4 }3 g3 N: o, ^
  
  IF (TEXT_SIZE 3)
5 j% \$ e, e& F2 g! D
    LOAD SUBPART 'FINISH_A4_MM_UP.MI'
' Q( ~4 z* c+ N' t2 {4 a1 c2 ~
ELSE
- I' z; p- G( c* m
  K1 V: L% m" @/ c+ j! h  IF (TEXT_SIZE .12)

+ G  U+ K; ^4 P; Y1 t0 G6 y% B- h    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

0 c) `; c- L& G4 hELSE

5 D. ?8 }8 h) Y- a# }1 K  IF (TEXT_SIZE .19)

/ z; w; J9 F/ w5 ~4 r    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'

ELSE
" a& L, f: `, W7 r# [7 w. e
  IF (TEXT_SIZE .5)
0 Q' b& k* }( ]! i/ _* W, Q
    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
. ~) S" n0 V  I* [0 K$ S' k( o
6 O# S- @- f4 {' l9 X
5 T# v7 E. `( o2 M5 r3 Q, E& jELSE
/ [9 M: n! Z5 c. b9 D2 D& @
    DISPLAY ("NO ACTION")
' o$ y; f0 C* q5 _# A
END_IF
; a6 b6 i# P, D% [/ {
END_DEFINE
/ `  y  k" l7 `3 j! r* ]0 P
[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

添加了如下语句之后变成这样的提示:
1 D% m/ _. I( w6 T2 _- ^$ T% ~TEXT_SIZE 是不被允许的宏

kting

试一下在Define finish后
5 L0 {/ Y3 a" Y! o* G加入
PARAMETER input_value

LOCAL TEXT_SIZE

LET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

4 n+ O2 M/ n8 C( J3 _8 S  INQ_ENV 12
% v: y* ~, s  A; t" U
  LET CURRENT_TEXT_SIZE (INQ 6)
0 @+ \7 k" h! ?' d$ g
: l" L! |3 O7 [' c/ R  

IF (CURRENT_TEXT_SIZE=.19)
5 D1 T/ ~( ?- V* J/ C
      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
8 t' p( ^" A; r8 [& E" l  
8 c/ F3 m6 j6 `6 {- \  ELSE

  IF (CURRENT_TEXT_SIZE=3)

" S; T& k6 P: t! _& k      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
, K0 V$ |6 k- T5 H( k3 }" a0 P/ W
/ \5 a; n  o% v+ B1 c
  ELSE
6 F( E1 |- {7 }! Z1 {* D- f7 C
  IF (CURRENT_TEXT_SIZE=0.12)

* {8 G8 G0 \# x; ?+ P: r      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
5 H7 ~8 A" S$ |+ ~0 a
  ELSE
/ R8 v" i$ E0 \0 W4 C' e
2 @- t7 E8 E1 L( c* ^  IF (CURRENT_TEXT_SIZE=5)

, D8 ]# |1 P2 `; |4 k* W6 F& S      LOAD SUBPART 'FINISH_A0_MM_UP.MI'


' I4 l  v3 ~2 }2 [% c  ELSE

    DISPLAY ("Wrong TEXT_SIZE")


8 _7 r7 L( u3 z2 i0 D  END_IF


END_DEFINE

sytgos

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

sytgos

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

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？
; j6 M, P/ @$ g5 \' ~  f, i
Define finish
( k! X+ i+ c5 Z* o7 Q( ]1 }
PARAMETER input_value

0 V1 B2 k; f5 D+ v; VLOCAL TEXT_SIZE

LET TEXT_SIZE (input_value)
。
- M' q" F$ m5 l9 U% M3 P: d) }% f( P。
8 R, E* a. H/ n" f+ F。