文档介绍：程序设计初步
程序文件
程序的逻辑性与通用性
逻辑性:
输入
处理
输出
如:R=3
S=*R*R
?”圆的面积=”,S
通用性:程序可反复执行,应用范围更广。
程序的建立与修改
[<文件名|?>] &&可不加扩展名PRG
FILE [<文件名|?>]
程序文件的执行
DO <文件名>[WITH<参数表>]
当有参数表时,程序的第一个语句必需是:PARAMETERS<参数表>,DO后实在参数与PARA后形式参数的个数,类型与排列次序必须一致.
EXP:P111-4-1
程序的注释
*|NOTE<注释内容>
&&<注释内容>
输入输出命令
文本输出命令
1、\|\\ <文本行>
2、TEXT
<文本信息>
ENDTEXT
在SET TEXTMERGE ON时,可在TEXT 中加入表达式。
键盘输入命令
INPUT[<提示信息>] TO <内存变量>
ACCEPT[<提示信息>] TO <内存变量>
SET TALK OFF
CLEAR
USE SB
ACCEPT “请输入设备名称:” TO MC
LOCATE FOR 名称=MC
?”设备”+MC+”的基本情况如下:”
?”编号:”+编号
?”名称:”+名称
?”启用日期:”+ DTOC(启用日期)
?”价格:”+STR(价格)
USE
SET TALK ON
宏代换函数
&<字符型内存变量>
EXP:p117
格式化输入输出命令
@<行坐标>,<列坐标> [SAY<表达式>][GET<变量>][RANGE[<表达式>],[<表达式>]][…]
其中:SAY为显示作用;
GET命令只有同READ命令一起使用时,才能编辑GET中的<变量>
基本形式
@<行>,<列> [SAY<表达式>][GET<变量>]
READ[SAVE][CYCLE][TIMEOUT<等待时间>]
EXP:P118-4-3
CLEAR
SET TALK OFF
ACCEPT”输入库文件名:” TO S
USE &S
***@2,3 SAY”输入待查询的字段名(C型):” GET K DEFAULT SPACE(10)
READ
K=ALLTRIM(K)
L=FSIZE(K)
***@3,3 SAY”输入待查询的”+K+”的值:” GET P DEFAULT SPACE(L)
READ
LOCATE FOR &K=P &&即字段变量=P
DISP
USE
SET TALK ON
EXP:P119-4-4
CLEAR
SET TALK OFF
SET COLOR TO GR+/R,W/R,GR
STORE SPACE(8) TO MC
RQ={//}
JG=0
***@2,10 SAY “编号” GET BH DEFAULT SPACE(5)
***@4,10 SAY “名称” GET MC
***@6,10 SAY “启用日期” GET RQ
***@8,10 SAY “价格” GET JG
READ SAVE
***@10,10 SAY “请检查! 有错即改,按回车认可.”
READ
SET TALK ON
SET COLOR TO
USE
(USE SB
APPEND BLANK
REPLACE 编号 WITH BH,名称 WITH MC,启用日期 WITH RQ,价格 WITH JG
LIST)
数据格式编辑
PICTURE”@<功能符串> <格式符串>”
FUNCTION”功能符串”
EXP:P121-4-5
CLEAR
SET TALK OFF
M=”abc”
N=0
***@2,10 say m pict”!!!”
***@3,10 say n func”z”
***@4,10 say m pict”***@r m=xxx”
n=
***@5,10 say n pict”*” get n pict”99”
read
EXP:P121-4-6在格式符串中使用非格式符示例
CLEAR
SET TALK OFF
STORE SPACE(4) TO B1,B2
***@6,10 SAY “B1:” GET B1 PICT”a-99”
***@8,10 SAY “B2:” GET B2 PICT”***@r a-99”
read
?”b1=”+b1
?”b2=”+b2
set talk off
数据值域检验
RANGE