Quick Basic 4.5自开发功能应用两例

Author: 山东王剑 Date: 1996-10-18

        一、建立蕴涵文件
        在Quick Basic中建立如下文件mcolor.bi
        CONST black=0,blue=1,green=2,cyan=3,red=4
        CONST magenta=5,brown=6,white=7,blinking=16
        然后以文本格式存盘，然后便可在程序中利用元命令$INCLUDE调入，方法如下：
        '$INCLUDE:'mcolor.bi'
        CLS
        COLOR white,blue
        PRINT "This text is white on a blue background."
        COLOR blinking+red,white
        PRINT "This text is blinking red on a white background."
        二、建立自定义库函数
        在Quick Basic 4.5提供了同C语言相似的自造库函数功能，其可利用的库分为快速库和连接库。(现以快速库为例)
        在Quick Basic中建立如下文件msub.bas
        SUB demo
        SCREEN 2
        FOR angle%=0 to 360 STEP 12
        DRAW "TA="+VARPTR$(angle%)
        DRAW "U45 E40 D40 G40"
        NEXT angle%
        END SUB
        然后在主菜单中选择RUN项再选择Make Librarg根据提示键入库名(如mysub)便可生成连接库mysub.lib和快速库mysub.qlb。利用快速库须在调入QB时键入如下命令行QB /L MYSUB，在程序中可直接用CALL demo执行，也可先进行说明DECLARE demo然后便可直接用demo执行。