[分享]理科工具箱 For NC3K

cc90042938

鼓励.......
PS:偶有mathtool......
战略性路过......

Eskimo

此软件在NC3000 GVBASIC+环境中调试通过.
做此软件就是为了在中考前做个纪念.

SCITOOLS.BAS->主程序
MATH.MOD->插件包样品，内包含7个初中生用得到的工具
MAKEPLUG.BAS->制作插件的

用法：

主程序->
1- 在初次运行时会提示，输入一个插件包的文件名就可以工作了（插件名不要加".MOD"）
2- 引入新插件包时，在主界面按F1，根据提示操作。
3- 当原先引入的任何一个插件包有改变时（加了一个插件——最常见的）,在主界面按F4，然后就会工作正常了。
4- 其中，70-71 行是一些参数（配置文件名等等），可以修改

MATH.MOD->
包含7个初中生可以用到的东西
1- 点->解析式 顶点式
2- 点->解析式 直线
3- 点->解析式 抛物线
4- 一般式->顶点式
5- 分解质因数
6- 一元二次方程(AX2+BX+C=0)
7- 三角形面积 SSS(知道3个边的长)

MAKEPLUG.BAS->
1- 第一行程序必须是行号20，最大行号不要过50。
2- 插件出口处用RETURN（即结束插件运行的地方）。
3- 最后一条指令后跟“”（不加引号）
4- 最后一条指令后一行开头加 "::"（同样不加引号）

具体看例子：

10 PLIBASE%=8216:GRAPH:GOTO 50
20 INPUT "A=";A:INPUT "B=";B:INPUT "C=";C=(A+B+C)/2:S=SQR(D*(D-A)*(D-B)*(D-C)):GRAPH  <- 20行开始
21 PRINT BDR$," S="S,BDR$,LGO$;:RETURN  <- 插件出口用RETURN <- 最后一条指令后跟“:D”
25 ::  最后一条指令后一行开头加 "::"
30 ::XT RINT N
32 GOTO 20:D
35 ::H RINT BDR$," ";S$,BDR$,LGO$;:RETURN:D
40 ::
50 PRJ$="三角形面积 SSS"
60 INPUT FI$
70 FI$=FI$+".MOD"
80 PRINT "Project:";PRJ$,"Filename:";FI$
90 PRINT
100 WHILE 1
110 IF PEEK(PLIBASE%+CNT)=58  THEN IF PEEK(PLIBASE%+CNT+1)=58  THEN 140
120 CNT=CNT+1
130 WEND
140 CNT=CNT-4:OPEN FI$ FOR RANDOM AS #1 LEN=1 :FIELD #1,1 AS T$
150 IF LOF(1)<>0  THEN 380
。。。。。。


最后介绍一下自己^_^
我今年初3，马上要中考了，发个软件以示纪念，但愿会对星迷们有些帮助。