20XX
骞磋蒋鑰冪▼搴忓憳鑰冭瘯鐭ヨ瘑鐐?/p>
FoxPro
绋嬪簭璁捐
1.
鍛戒护鏂囦欢鐨勫缓绔嬨�佷慨鏀瑰拰杩愯
(1)
鍛戒护鏂囦欢鐨勫缓绔嬩笌淇敼
MODIFYCOMMAND[<
鍛戒护鏂囦欢鍚?/p>
>/?][INWINDOW<
绐楀彛鍚?/p>
>/SCREEN]
(2)
鍛戒护鏂囦欢鐨勬墽琛?/p>
DO<
鍛戒护鏂囦欢鍚?/p>
>
鍏朵腑
SETDEVELOPMENTON/OFF
锛屽浜?/p>
ON
鐘舵�佹槸榛樿锛屾墽琛屾柊鐨勭増鏈紝澶勪簬
OFF
鐘舵�侊紝鍒欐墽琛屾棫鐗堟湰銆?/p>
(3)
鍛戒护鏂囦欢鐨勬敞閲?/p>
NOTE<
娉ㄩ噴
>*<
娉ㄩ噴
>&&<
娉ㄩ噴
>
2.
椤哄簭缁撴瀯绋嬪簭璁捐
(1)CLEAR
鏄竻灞忓懡浠わ紝
SETTALKON
涓洪粯璁わ紝姣忔墽琛屼竴鏉″懡浠ゅ氨缁欏嚭鍥炲簲锛?/p>
RETURN
鏄竴鏉¤繑鍥炲懡浠ゃ�?/p>
(2)
闈炴牸寮忓寲杈撳叆鍛戒护
ACCEPT[<
瀛楃琛ㄨ揪寮?/p>
>]TO<
鍐呭瓨鍙橀噺
>
鎺ュ彈浠庨敭鐩樿緭鍏ョ殑瀛楃鍨嬫暟鎹紝杈撳叆鐨勫瓧绗︿覆涓嶅繀鐢ㄥ紩鍙锋嫭璧锋潵銆?/p>
<
瀛楃
琛ㄨ揪寮?/p>
>
鍙槸鎻愮ず浣滅敤銆?/p>
INPUT[<
瀛楃琛ㄨ揪寮?/p>
>]TO<
鍐呭瓨鍙橀噺
>
鎺ュ彈浠庨敭鐩樿緭鍏ョ殑
C
锛?/p>
N
锛?/p>
D
锛?/p>
L
绛夛紝鑻ユ槸瀛楃涓插垯蹇呴』鐢ㄥ紩鍙锋嫭璧锋潵銆?/p>
WAIT[<
瀛楃琛ㄨ揪寮?/p>
>]TO<
鍐呭瓨鍙橀噺
>
绛夊緟浠庨敭鐩樿緭鍏ヤ竴涓瓧绗︼紝
<
瀛楃琛ㄨ揪寮?/p>
>
鍙兘鏄彁绀轰綔鐢ㄣ�?/p>
SETCONSOLEON(
榛樿锛屾墍鏈夐潪鏍煎紡鍖栬緭鍏ユ暟鎹兘鏄剧ず
)/OFF(
鐩稿弽
)
(3)
鏍煎紡鍖栬緭鍏ヨ緭鍑哄懡浠?/p>
鏍煎紡鍖栬緭鍑哄懡浠?/p>
@<
琛岋紝
鍒?/p>
>SAY<
琛ㄨ揪寮?/p>
>[PICTURE<
鎻忚堪绗︿覆
>][FONT<
瀛椾綋
>[
锛?/p>
<
瀛楀彿
>]]SETDEVICETOSCREEN
灞忓箷
杈撳嚭
SETDEVICETOPRINT
鎵撳嵃鏈鸿緭鍑?/p>
鏍煎紡鍖栬緭鍏ヨ緭鍑哄懡浠?/p>
@<
琛岋紝鍒?/p>
>[SAY<
琛ㄨ揪寮?/p>
1>]GET<
鍐呭瓨鍙橀噺
>|<
瀛楁
>[PICTURE<
鎻忚堪绗︿覆
>][RANGE<
琛ㄨ揪寮?/p>
2>[
锛?/p>
<
琛ㄨ揪寮?/p>
3>]]
涓?/p>
READ
鍚堢敤锛屾墠鑳戒慨鏀瑰彉閲忥紝涓�涓?/p>
READ
鍙互淇敼鍓嶉潰澶氫釜
@
鈥?/p>
GET
鐨勫彉閲忓�硷紝閫氬父
SAY
鍙槸鎻?/p>
绀轰綔鐢ㄣ�?/p>
瀹氫箟鏂囨湰缂栬緫鍖?/p>
<
琛岋紝鍒?/p>
>EDIT<
鍐呭瓨鍙橀噺
>SIZE<
鏁板�艰〃杈惧紡
1>
锛?/p>
<
鏁板�艰〃杈惧紡
2>[FONT<
瀛椾綋
>[
锛?/p>
<
瀛楀彿
>]][SCROLL]
閫氳繃
READ
缂?/p>
杈戯紝涓昏鏄澶囨敞瀛楁璧蜂綔鐢ㄣ�?/p>
娓呭睆鍛戒护
CLEAR
娓呴櫎鏁翠釜灞忓箷
<
琛?/p>
1
锛屽垪
1)[CLEAR|CLEARTO<
琛?/p>
2
锛屽垪
2>]
娓呴櫎灞忓箷灞�閮ㄥ尯
3.
鍒嗘敮璇彞
IF<
鏉′欢
>
<
鍛戒护搴忓垪
1>
[ELSE
<
鍛戒护搴忓垪
2>]
ENDIF
澶氬垎鏀�夋嫨璇彞
DOCASE