if 语句

sytgos

如果要实现以下动作,该如何用语句表达
/ T$ x9 [, E- o+ n0 h
如果系统字体为 3
那么
% m4 W  @: ~7 p' x: ]LOAD SUBPART ‘c:\finish3.mi’

如果系统字体为 4
  b' k5 ]" G" S+ w+ X( x% r9 q那么
5 b1 j" H9 V8 T; k# ULOAD SUBPART ‘c:\finish4.mi’

, h1 H3 W& }, |如果系统字体为 5
那么
. M$ R" K+ d- \8 iLOAD SUBPART ‘c:\finish5.mi’
- t* v+ |; c1 K$ ?
如果系统字体为 6
那么
  d8 O( e& H" H7 Y% b5 a. tLOAD SUBPART ‘c:\finish6.mi’
0 A/ v$ }: _& D* f0 H0 l6 a
$ l5 C& D! }% o+ q% _9 J3 I. I
, H- z. a0 C2 u7 t6 jElse if 不做动作
, I9 w, j- o6 k$ G' h
下面是我乱写的,看了一下,是不是缺一个let语句?

* Z) i) C; U9 w# H
DEFINE F
; ^3 |  H5 K" l$ x
  IF (TEXT_SIZE=3)
# d% r1 E! x4 _4 H8 q# l$ v. O/ w
  LOAD SUBPART   ‘c:\finish.mi’
5 _. |9 r0 L. b1 i   
  END_IF
  U) z" o4 d1 q% f$ p$ K$ ^8 L
4 F  b8 e9 j2 S: v& ]1 `END_DEFINE

kting

可以如下：
  H+ `( |% C6 x& K9 wDEFINE F

8 V" t- V5 i/ K" j* ]  IF (TEXT_SIZE=3)

  LOAD SUBPART   ‘c:\finish.mi’
   
ELSE

IF (TEXT_SIZE=4)

9 @9 ^/ Q( r1 ?% E LOAD SUBPART '....'
: J! J  v: W; r* n6 |' n: y& I
) S7 d3 `* V2 C. ~# T" Z  H% C ELSE

IF (TEXT_SIZE=5)
2 e( J" g; o" x, |$ M0 w5 v3 Z
, G* o4 L. [! N( e' M0 ]' P LOAD SUBPART '...'

8 ?4 e7 @& t2 L( g8 ^ ELSE

IF
.
.
.
% k2 L& q4 M) o$ I2 i ELSE

' V( v1 ]$ i& m DISPLAY ("NO ACTION")
5 p( x8 K+ f" G& T; x
9 i( B7 _! B0 D5 j1 \/ ?: F END_IF
. t* G( C) o2 l- k, D
: g2 @: O1 {7 e9 q% g9 Q1 ^: D8 dEND_DEFINE
4 d/ K- f: Z$ w0 F  Z  q
1 Q& c4 L; u) I; Y2 d5 z这就是所谓的条件语句的嵌套了......

sytgos

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

  I& C; z+ o' i
! `# C4 C; G- G4 Z
" W& g- J; l" b8 x/ {6 x; h
: J; r4 h5 H& N+ a* V% V
% W' P9 F5 Z7 |) O+ T7 D- `DEFINE FINISH

  
  IF (TEXT_SIZE 3)

    LOAD SUBPART 'FINISH_A4_MM_UP.MI'

ELSE

  IF (TEXT_SIZE .12)
7 Z1 v) }6 R% Z( e8 _0 R' V
1 K9 P/ E, T1 \4 }    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
" f1 X% x9 q0 g6 {+ K
ELSE

; Z& _+ G) Q" e2 b- o' m  K9 U( b; j' d  s  IF (TEXT_SIZE .19)
9 x3 g" j7 z5 ^; n* h7 u* T; }
    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
" p3 I; g( [$ {1 B& H% q- m. [
ELSE
6 a# e, A0 w  K" V/ u* Y
  IF (TEXT_SIZE .5)
$ {* L$ F: O$ |# r8 o1 _
+ S; h+ U7 ?* t5 m. T    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
/ `. d: r# q& H9 ^: e
9 E1 }# Z5 t8 g
ELSE

( {: @6 d$ d3 `# }# p& Y    DISPLAY ("NO ACTION")

0 ~( K: @0 Z9 _2 C+ X( [* AEND_IF

END_DEFINE

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

sytgos

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

kting

试一下在Define finish后
加入
PARAMETER input_value

7 @/ Q$ l8 a" T. o, j. X4 e/ DLOCAL TEXT_SIZE

; O3 K& I4 F. J& rLET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

  INQ_ENV 12

  LET CURRENT_TEXT_SIZE (INQ 6)

  
3 D; y" w( X" N7 y$ t. ?4 L- @
) v2 b6 Z+ v% U% w; Y IF (CURRENT_TEXT_SIZE=.19)

      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
; v8 Z1 J# r, e4 @& @+ W7 a  
0 H" M. K0 ?+ |* I& M  ELSE
% m# k" X6 ]$ O- [& q2 ~( F# B
  IF (CURRENT_TEXT_SIZE=3)
. n% U) I9 }8 l. H* z
- ]3 t' K- T8 S$ K: b! _* W      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
5 M' g) B4 f: u. E

) X. s# G9 ^! g' A  ELSE

  IF (CURRENT_TEXT_SIZE=0.12)

      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'
  G3 w* P4 I: d4 R! h3 @: v
  ELSE
) v* d  P0 r3 Q7 F; [8 A
  IF (CURRENT_TEXT_SIZE=5)

      LOAD SUBPART 'FINISH_A0_MM_UP.MI'


9 |- _7 [$ z9 J2 F8 }5 T# F/ e1 U  ELSE

    DISPLAY ("Wrong TEXT_SIZE")
4 ?) Q0 C: k5 D5 C# z
: m8 ], U4 ~' u$ j( I
  END_IF


& i& Y) }- |/ f" Z. Q) F& kEND_DEFINE

sytgos

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

sytgos

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

kting

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

Define finish

PARAMETER input_value

9 v1 b  y* C) X4 uLOCAL TEXT_SIZE
& V. ]) @: z( o% u9 ~
  U. _( ~/ C. Z9 P% W* ]LET TEXT_SIZE (input_value)
。
* c6 M$ B5 C/ |+ }* Z; y。
9 N! E* d/ z4 P; ~。