if 语句

sytgos

如果要实现以下动作,该如何用语句表达
! Q6 `* O1 \4 z; M: N% c9 I  z
7 |+ U& Y. a0 u" |如果系统字体为 3
) P! P9 x* u; @' x% M那么
0 j2 E, r7 W: pLOAD SUBPART ‘c:\finish3.mi’
7 t, T4 r9 f3 s9 g$ q$ F
8 H6 }- E9 Q4 [1 m- w如果系统字体为 4
3 ?) k7 `% d4 k: H( s! S! G/ C. d那么
LOAD SUBPART ‘c:\finish4.mi’

如果系统字体为 5
' M- b' O$ x: m3 O) [那么
LOAD SUBPART ‘c:\finish5.mi’

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

0 l/ G5 Q2 j! s7 r% Y0 }, g# O
, S8 J& ]& i7 D" O# FElse if 不做动作

下面是我乱写的,看了一下,是不是缺一个let语句?


DEFINE F
/ f+ e' O' e* d& ~
# e( _0 Y) [% [2 P8 ^, ?9 U  IF (TEXT_SIZE=3)
6 n0 x9 \4 J2 u  e3 T6 T
2 q9 ?$ i) y5 I9 S0 O- l( V& m' H  LOAD SUBPART   ‘c:\finish.mi’
6 x3 _7 R- j0 I/ y9 Q8 n/ ]  n   
" O" z9 t6 l# T  M1 {  END_IF
, @' m% A' ?4 F4 ^" Y: p( y, m
END_DEFINE

kting

可以如下：
DEFINE F

! H0 l2 j. m/ m; Y2 J7 {  IF (TEXT_SIZE=3)

  LOAD SUBPART   ‘c:\finish.mi’
1 D5 G+ j+ t' U   
ELSE

# U/ D9 G+ m, O/ ?2 y) ]8 a IF (TEXT_SIZE=4)
" ]0 U! s( a" J, o5 g
6 g/ }. J1 N, d2 n  A LOAD SUBPART '....'
$ I1 C$ P5 j" s! t) ~& G% [9 p7 Q
ELSE
) c% `! l, d: s9 f3 V$ Z/ W" x0 [+ z
& s5 o8 K" l, [! F5 [ IF (TEXT_SIZE=5)
- X1 j  q' k  G) n2 Y7 Y& H+ s9 i
( n3 X0 P- g. {. c7 w, o LOAD SUBPART '...'
7 J- D& G& `% C4 I0 p
ELSE
. F1 e, K7 d3 s0 y) A7 I: H
; N: r/ v6 W/ E" d' l, Y IF
.
.
.
ELSE
2 _; e3 q+ J7 J+ t3 V# k% r) L6 m
. I, u; x" G0 F) G DISPLAY ("NO ACTION")
9 G, Z* V* Z6 A1 _, O1 a1 T$ }
$ ~+ X9 k5 r" M" x END_IF

END_DEFINE

9 y! R- ^& |. x" v* A: [这就是所谓的条件语句的嵌套了......

sytgos

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



) S+ P$ x' K- F
8 x+ f0 {8 k1 B2 f8 HDEFINE FINISH
* j1 p% c. @- M8 l
4 o) E) j; V% i7 f  
  IF (TEXT_SIZE 3)

, T: {+ y/ [$ B) v5 L8 N5 y    LOAD SUBPART 'FINISH_A4_MM_UP.MI'

ELSE

  IF (TEXT_SIZE .12)
7 ?% n: D3 Z+ I" T/ x
    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

, i) I2 _7 d* L" DELSE

- `3 i! y/ H7 i7 w" r/ m  IF (TEXT_SIZE .19)

    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
5 e$ ~0 c) Y0 q( v4 d1 O8 x
8 |2 l; @- t3 T: |, sELSE

+ U& ^& f' n  K  IF (TEXT_SIZE .5)

    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
7 {7 O  `1 V+ M% }6 {) }# m) `
: x8 e' ]* X5 M& N7 z7 I3 w$ S
ELSE
$ @# C/ K2 |- E! h! f# _
3 a4 m, w3 u- h! z: ~7 J    DISPLAY ("NO ACTION")

  \% b  Q* v( v+ V* X, F: ?END_IF

5 k( J# w# o* f1 xEND_DEFINE

! T( P6 h( G: |[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

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

kting

试一下在Define finish后
加入
& a8 S4 ^0 _: q0 J* R$ C' ?3 a; _# hPARAMETER input_value

LOCAL TEXT_SIZE
7 m  Q$ y8 C# x' F$ k
7 W7 K  `' [5 e2 v& N( D" bLET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

  INQ_ENV 12

% P9 l" Q! d) m* k8 ~9 K  LET CURRENT_TEXT_SIZE (INQ 6)

3 s' ~5 @0 |$ a1 t  S+ h$ d7 M  

" \" W$ ~& _) L! p IF (CURRENT_TEXT_SIZE=.19)

' z  U2 Z" g) K5 i' \$ X      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
  
  ELSE

  IF (CURRENT_TEXT_SIZE=3)
7 q) j2 Y# N$ w' a& C
  A5 A& v2 G, x* @      LOAD SUBPART 'FINISH_A4_MM_UP.MI'
! V  |4 o9 Z. D2 g
6 f* N# f$ e0 Y# K+ X
  ELSE

+ w( N7 d* e+ S6 D  IF (CURRENT_TEXT_SIZE=0.12)

      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

4 X  H0 t8 |* F& v1 k# ~4 u  ELSE

  IF (CURRENT_TEXT_SIZE=5)

      LOAD SUBPART 'FINISH_A0_MM_UP.MI'
" t$ W1 W- x1 l2 L) H# V- C  b

, }- q. e  \/ W; R4 o9 Q, v  ELSE
" X/ _, Y1 G7 `
; h. ], l( [0 x: W    DISPLAY ("Wrong TEXT_SIZE")


  END_IF
+ z) x; ^( L4 V# n* H2 _

END_DEFINE

sytgos

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

sytgos

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

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？
% Y4 \! |! [/ m2 U2 r6 Q9 v' J7 c
Define finish
5 f0 s0 G+ Y2 e: k' M. y+ T
6 D) |( I. ]; I& @( jPARAMETER input_value

! i( h* u9 @8 \0 T0 pLOCAL TEXT_SIZE

& F8 q" ?$ T' v1 _( x" v1 D  O: \LET TEXT_SIZE (input_value)
。
。
9 a, I/ u% I4 D7 x* A3 h( B& W。