|
ENTITY/CYL(1000)( \' v- o L3 B
NUMBER/VAL(42),MIDU
1 ?2 w* v, D# A" r8 U7 [STRING/stt(200),wjwz(200). Q- H* |" t) j( [8 a
MIDU=7.85 $$ 密度
" L# e5 K, M3 q. P' A1 F8 x/ w! fstring/part_name(132),ERP(132)# a" W! z3 J- X; P
string/date1(132),date2(132),date3(132),date4(132)8 s' J4 ~& d5 f1 \& }1 G7 e
ioi=07 U) J5 g" @1 Q2 w- K4 I6 M P6 D
: w3 k2 w2 e) V' x- F) c; S; b' X3 R8 a
$$程序加密,用时间限制使用权限$$6 X6 i" E0 T7 H! Y2 P( ^ k( _
) J5 O& @6 q1 b date1=substr(date,1,2)# X9 C2 j! ?7 D6 ^/ U, |
date2=substr(date,5,2)) p. m- C7 P W T4 h" J
date3=substr(date,9,2)8 q: s" R1 ~0 A6 N' m. g: m
date4=date3+date1+date2
( P8 U4 l* B3 W1 B# i. s+ O $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4% v2 L$ w5 I. |4 F
$$messg/date4/ F4 b! _; D. ?& m* {
if/valf(date4)>20140416,jump/messg:
* h4 V* ?& t" h$ F: X" k7 L9 f [0 D. P; L! P5 K* p
start:1 H+ h4 j5 R* F, |9 H" T
+ S# C* h3 l0 N/ _
L10:
( p* L& O" P+ s( K2 w# d param/'肖波提示:请输入密度...',$
! {% t2 F& p4 p) I '密度(g/mm")',MIDU,resp7 ?. ]6 Q+ j6 Y/ ^6 a# q8 V
JUMP/L10:,END:,,resp
& d5 @1 g# @& m5 ]7 A
" L% p2 U9 X2 V1 z. OL20:
3 c o9 y+ _" C9 y2 M' O, mMASK/70
+ I7 g6 y$ _5 {4 B/ x8 N6 Z# aIDENT/'肖波提示:请选择实体...',CYL,cnt,nm,RESP
, ]! Y% Q" f2 IJUMP/L20:,END:,,resp
0 c! |. L: }0 c$$注意UG单位是(毫米/英寸) GCM 表示厘米/克
1 a" w+ y6 y; a0 h8 F: E% YANLSIS/SOLID,CYL(1..nm),GCM,VAL& l, C( A( F6 F6 \; A" V# U
$$ 质量=密度*体积 U( O% l0 M+ z1 S8 r5 {( x
ZL_g=MIDU*VAL(2) $$ 质量(克)
" O! P7 W0 K( J4 [- _0 E. KZL_kg=ZL_g/1000 $$ 质量(千克)
' z5 l7 k% s& |0 k; \2 s' iZL_t=ZL_g/1000000 $$ 质量(吨)
& |+ P1 x" X3 }8 z1 Lioi=ioi+14 P9 \1 {- @1 a% V# d0 `
6 Y0 s7 [% M2 m( a, t4 E5 f! B1 D( S3 c6 P
l30:; ? ]4 c2 ^+ R4 _
jump/start:
b9 W/ G% D+ O9 o
2 a# X: @- ]% P$ v% Mmessg:
2 t y% P) ^" O$ a messg/'程序使用中有任何问题',$
0 `+ Z6 L( D9 e0 _ '你的使用时间已过期,请联系肖波 QQ:595219317'
; o& l/ S' w" h$ j: r( e) O9 B1 H3 V9 q* p
trm:
# y9 o3 E( y5 d8 c
- K& A% _) U5 z8 AHALT* @8 C9 x. |) _4 d* W
|
|