if 语句

sytgos

如果要实现以下动作,该如何用语句表达
$ ?4 L& l/ d% k* i; U! S
如果系统字体为 3
, w  I: ]4 ~8 I  s那么
LOAD SUBPART ‘c:\finish3.mi’

如果系统字体为 4
那么
" q1 l, ^) [- m% o: n' L! xLOAD SUBPART ‘c:\finish4.mi’
8 i0 {9 x; Z: }; ]) i$ E" B
如果系统字体为 5
那么
LOAD SUBPART ‘c:\finish5.mi’

如果系统字体为 6
- L% Y  i2 Q4 Y& t! T那么
LOAD SUBPART ‘c:\finish6.mi’
' i. z; @6 c4 v# n4 y; p: p/ o

* V8 f' B- A7 Q' k+ A$ y/ ]. N& {Else if 不做动作
. M$ X& s) j% n. T+ o& @: e
2 d7 N3 a  f7 K. e" K9 K下面是我乱写的,看了一下,是不是缺一个let语句?
+ l) P# B; y4 m3 }0 H3 k, V/ s
: B. m5 T* {: m
DEFINE F
6 A$ B& E7 e9 B, B: K
, r1 G4 _+ W, I8 n. T& g% {  IF (TEXT_SIZE=3)
$ V+ K7 i& \0 I0 n. c& Y; j4 y2 E
  LOAD SUBPART   ‘c:\finish.mi’
' C5 t/ E( s8 O* a6 Z( ]   
- F+ A$ Y1 Z  z1 ~  END_IF
- p( i- X# ~* X( _, b$ g5 S9 G' e
9 v2 E' [4 T* Z* @; TEND_DEFINE

kting

可以如下：
DEFINE F
2 ?" |; f- ?" W" q; R* t8 E
( \) N) s" ]( r  IF (TEXT_SIZE=3)
( V* e. n: C' |8 r) L' b' [
2 p1 y. i5 Y- T  LOAD SUBPART   ‘c:\finish.mi’
  j# `8 z4 o! ^" \- T0 ?   
ELSE

IF (TEXT_SIZE=4)

LOAD SUBPART '....'
: n1 F& T- M3 Z8 q: P! D
) J* Y1 [( g- i! O ELSE

IF (TEXT_SIZE=5)
' H% P/ I5 o6 P) W+ K$ P
" G: C! b+ G. R0 L1 a0 ?" y6 E. C LOAD SUBPART '...'
6 y2 x4 P2 U/ G9 V9 O
ELSE
5 d1 ^1 p# f! R: ^+ {" Y
4 y5 \7 x1 \# h9 t9 ]/ ? IF
$ D1 M/ D/ O! d' m& A; W! q% r4 {2 S0 u .
.
% U/ s6 U3 B/ }" N& T. ~9 w# N0 S .
" D2 o* v. v9 U( o) s" R ELSE
4 A6 T7 o4 A; U4 Q* j
1 o8 R0 u' _( _  T DISPLAY ("NO ACTION")
& N7 ]! V$ b! [5 l$ x+ K
END_IF
3 L$ l# m1 Z5 N. q5 f8 p. L. Y
' _! |* J/ ?7 z7 [. MEND_DEFINE
$ d# [7 C% ~$ t9 y9 Y0 _
5 S! |# [8 v; |. v这就是所谓的条件语句的嵌套了......

sytgos

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


& w- P# ^. A: X* U) r# q* @
0 ?0 f6 c" `: [2 S! J, i

6 S" Z/ x. x  m% PDEFINE FINISH

4 ]  k" Z  d6 J+ K* h, O" h# X  
5 j0 x! b& x6 D9 }+ M  IF (TEXT_SIZE 3)
* o& b! V$ @" ]# D. {( Q
  `1 Q" u( ^8 U1 |2 H) [0 u    LOAD SUBPART 'FINISH_A4_MM_UP.MI'

9 F+ |9 F1 [. G& K* J7 uELSE

  IF (TEXT_SIZE .12)

, y1 L6 Q! b7 k  D7 D    LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

1 F. U: P/ t6 U/ s: \2 d8 ~ELSE
( Q1 T+ F% m: ^+ b( H
, c2 R2 [; `- U$ y8 _9 E# y9 r  IF (TEXT_SIZE .19)

9 L7 K0 i3 q# D7 D1 h$ q    LOAD SUBPART 'FINISH_A0_INCH_UP.MI'

ELSE

  IF (TEXT_SIZE .5)
; f6 r9 q( ]- c
7 L  X( Q% l9 R* d6 G) T9 W; h7 ]- h    LOAD SUBPART 'FINISH_A0_MM_UP.MI'
" t: b) G; O# J

ELSE

% D' B4 @, ^( F! j; p    DISPLAY ("NO ACTION")
1 `- I; \4 E: M8 {5 X9 A
END_IF
, V. A9 L. D7 Q$ |* i+ t: O
: m; t0 }) a! [1 {' `/ sEND_DEFINE

! J7 L; U1 H3 z. X' Y  X; W4 b$ u[ 本帖最后由 sytgos 于 2009-1-22 08:44 编辑 ]

sytgos

添加了如下语句之后变成这样的提示:
3 a) v# d' ^9 ~; C2 MTEXT_SIZE 是不被允许的宏

kting

试一下在Define finish后
4 r5 o7 S$ C( y1 x7 G加入
PARAMETER input_value
& h* i) L$ Y# P. A' G* i" a
LOCAL TEXT_SIZE
$ i, j& ]1 i# p0 K8 W. _/ p& @
LET TEXT_SIZE (input_value)

sytgos

DEFINE FINISH_UP

; Q0 F% h1 I9 N+ m& F9 L4 u" K  INQ_ENV 12
/ _. S) Z2 L+ j$ i/ k( S
  LET CURRENT_TEXT_SIZE (INQ 6)

  
5 N5 F+ ]3 f- V0 i
2 S! L% }$ \& [" E2 H+ e% s IF (CURRENT_TEXT_SIZE=.19)
7 ^, x9 k, e; S( v
4 m3 y) w4 w3 g, c8 K      LOAD SUBPART 'FINISH_A0_INCH_UP.MI'
  
  ELSE
8 `. K  I6 J: [9 @1 {3 [
  IF (CURRENT_TEXT_SIZE=3)
0 }0 |, k& b+ H/ }' M: x
      LOAD SUBPART 'FINISH_A4_MM_UP.MI'

7 T# R: G2 q# Z5 N4 ^! F
/ [: n- y. I# Z% B+ u+ Y  ELSE
$ C5 E# Z2 ]- f8 n9 n( U
4 n' x. _2 S6 q* P- \  IF (CURRENT_TEXT_SIZE=0.12)

" F. z2 n( U  u0 R* k# h6 e      LOAD SUBPART 'FINISH_A4_INCH_UP.MI'

, F* @, O" ]. f# v: U. }  ELSE

  IF (CURRENT_TEXT_SIZE=5)

( C) C  M( L1 \' u; _  _! ~      LOAD SUBPART 'FINISH_A0_MM_UP.MI'
7 E$ j  u% |: u1 k$ r" l

+ S: s* ^; D7 D1 S+ M3 U  ELSE

4 L. n# c) U3 W9 t# d) J' G    DISPLAY ("Wrong TEXT_SIZE")

$ r7 F1 \0 w7 J3 M8 b; `( Z4 ]
& W2 z& @# t7 ~# F0 [; u) K( p+ G  END_IF
! B1 A9 g1 U9 A' I
/ v% d4 z4 D% o. B& X# k
END_DEFINE

sytgos

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

sytgos

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

kting

恭喜你成功了，不过不知道只加如下面的怎样了呢？
  P" Y- J4 b" U' i% J8 b
Define finish

PARAMETER input_value
2 D8 s0 h; [+ i+ t' N: g
LOCAL TEXT_SIZE
' a  A+ |/ @+ u' k; }% [8 p
LET TEXT_SIZE (input_value)
。
。
。