?? zyhwa_se.prg
字號:
***********************************
*以下是人機對話程序(ZYHWA_SE.PRG)*
***********************************
PARA WAN_TIT,WAN_CHA,WAN_IMO,WAN_SELE,WAN_X,WAN_Y,WAN_GET
PRIV PARB,PP_CAPS
PARB=PARA()
IF len(wan_cha)<6
wan_cha=spac(120)
ENDI
PUSH KEY CLEA
Clea TYPE
IF AT([\],WAN_TIT)>0
PRIV UL1
UL1=SUBS(WAN_TIT,2,1)
WAN_TIT=IIF(UL1=[1],[系統提示],;
IIF(UL1=[2],[系統報告],;
IIF(UL1=[3],[系統警告],;
IIF(UL1=[4],[異常報告],;
IIF(UL1=[5],[梗阻報告],[系統說明])))))
Rele UL1
ENDI
PP_CAPS=CAPS()
=CAPS(.t.)
DO CASE
CASE INLI(WAN_IMO,1,11,12)
IF WAN_IMO=12
Rele WIND RJDH
POP KEY
Clea TYPE
=CAPS(PP_CAPS)
RETU
ENDI
PRIV UL1
UL1=INT(LEN(wan_cha)/34+1.6)+2
IF PARB > 5 AND WAN_X > -0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE UL1,44 SYST COLO 0/7*,7+/1,7+/1;
TITL WAN_TIT FONT "宋體",12
Acti WIND RJDH
ELSE
DEFI WIND RJDH AT 0,0 SIZE UL1,44 SYST COLO 0/7*,7+/1,7+/1;
TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
Acti WIND RJDH
ENDI
=zwaf("喂!")
@ 0.6,6 SAY wan_cha ;
SIZE 7,35;
FONT"宋體",12;
COLOR RGB(,,,255,255,255)
IF WAN_IMO<>11
Clea TYPE
PRIV QQWWTT
@LEN(wan_cha )/34 + 0.9,36 GET QQWWTT func"*h 確定";
FONT "宋體",11 SIZE 1.5,7,0.2 DEFA 1
Clea GETS
@0.4,2 say[]
UL1=INKE(0,"M")
Clea TYPE
Rele WIND RJDH
ENDI
CASE WAN_IMO=2
IF PARB>=6 AND WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 3.5,37 SYST;
TITL WAN_TIT FONT "宋體",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 3.5,37 SYST TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
IF PARB<7
@ 1,3 GET WAN_SELE FUNC"*H \<Y:確認;\<N:修改;\<Q:放棄" SIZE 1.3,9,2;
colo 6+/4,7+/5,,7+/1
ELSE
@ 1,3 GET WAN_SELE FUNC"*H& WAN_GET" SIZE 1.3,9,2;
colo 6+/4,7+/5,,7+/1
ENDI
READ CYCL MODA
ENDD
Rele WIND RJDH
CASE WAN_IMO=3
IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 3.5,34 SYST;
TITL WAN_TIT FONT "宋體",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 3.5,34 SYST TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
IF PARB<7
@1,3 GET WAN_SELE FUNC"*H\<Y:確認;\<Q:放棄"SIZE 1.3,12,4;
colo 6+/4,7+/5,,7+/1
ELSE
@1,3 GET WAN_SELE FUNC"*H&WAN_GET"SIZE 1.3,12,4;
colo 6+/4,7+/5,,7+/1
ENDI
READ CYCL MODA
ENDD
Rele WIND RJDH
IF WAN_SELE<>1
WAN_SELE=3
ENDI
CASE WAN_IMO=4
IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 7,15 SYST TITL WAN_TIT FONT "宋體",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 7,15 SYST TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
IF PARB<7
@1,1.5 GET WAN_SELE FUNC"*\<Y:確認;\<N:修改;\<Q:放棄"SIZE 1.3,12,0.6;
colo 6+/4,7+/5,,7+/3
ELSE
@1,1.5 GET WAN_SELE FUNC"*& AN_GET"SIZE 1.3,12,0.6;
colo 6+/4,7+/5,,7+/3
ENDI
READ CYCL MODA
ENDD
Rele WIND RJDH
CASE WAN_IMO=5
IF PARB>=6 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE 6,15 SYST TITL WAN_TIT FONT "宋體",12
ELSE
DEFI WIND RJDH AT 0,0 SIZE 6,15 SYST TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
ENDI
Acti WIND RJDH
WAN_SELE=0
DO WHIL WAN_SELE<1
IF PARB<7
@1.2,1.5 GET WAN_SELE FUNC"*\<Y:確認;\<Q:放棄"SIZE 1.3,12,0.8;
colo 6+/4,7+/5,,7+/3
ELSE
@1.2,1.5 GET WAN_SELE FUNC"*&WAN_GET"SIZE 1.3,12,0.8;
colo 6+/4,7+/5,,7+/3
ENDI
READ CYCL MODA
ENDD
Rele WIND RJDH
IF WAN_SELE<>1
WAN_SELE=3
ENDI
CASE WAN_IMO=6
PRIV UL1
UL1=INT(LEN(wan_cha)/34+0.8)+4
IF PARB>=5 .AND.WAN_X>-0.9
DEFI WIND RJDH AT WAN_X,WAN_Y SIZE UL1,44 SYST colo 0/7*,,7+/1,7+/1 ;
TITL WAN_TIT FONT "宋體",12
Acti WIND RJDH
ELSE
DEFI WIND RJDH AT 0,0 SIZE UL1,44 SYST colo 0/7*,,7+/1,7+/1 ;
TITL WAN_TIT FONT "宋體",12
Move WIND RJDH CENT
Acti WIND RJDH
ENDI
=zwaf("喂!")
@0.6,6 SAY wan_cha;
SIZE 7,35;
FONT"宋體",12;
COLOR RGB(,,,255,255,255)
DO WHIL .T.
@UL1-2,10 SAY[你按下的鍵是:]GET WAN_SELE;
SIZE 1,1.2 DEFAULT"";
FONT"宋體",12;
Picture "@k!";
COLO,7+/1
READ MODA
IF BETW(WAN_SELE,[A],[Z])
EXIT
ENDI
ENDD
Rele WIND RJDH
ENDC
POP KEY
Clea TYPE
=CAPS(PP_CAPS)
RETU
**********************
func zwaf
**********************
PARA cmo0
@0.158,1.500 TO 1.579,4.875 PATTERN 1 PEN 1,8 STYLE"99"COLOR RGB (0,0,0,128,0,0)
@0.526,2.000 SAY cmo0 FONT"宋體",11 STYLE"T"COLOR RGB (255,255,0)
RETU
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -