用BASIC语言设Windows风格的用户接口.docVIP

BASIC语言历史悠久,近年来发展迅速。BASIC语言的结构化程度高,易于理解,很适合广大的编程人员使用。而第三代BASIC语言的功能更是日臻完善、强大,使用人员更多。本文意在向编程经验不十分丰富的读者介绍用BASIC语言设计Windows风格的图形用户接口,起一点抛砖引玉的作用,不妥之处望不吝赐教。程序在VGA(用Screen12语句设置)方式下运行,可在QuickBASIC、MSBASIC或VisualBASICforMS-DOS下编译。另外需要说明的是程序中设置颜色使用的都是调色板位置号,一个调色板位置号并不固定代表某种特定颜色,而是可以由编程者通过PALETTE语句或PALETTEUSING语句自行指定的。当然,一般情况下我们使用系统缺省的调色板颜色。1.读点阵字模交叉显示汉字及ASCII字符。这里要用到UCDOS3.1的HZK16和ASC16两个字模文件,该功能模块的代码如下:SUBDispHz(HzCol,HzRow,Color,HzStr$)DIMi1,i2,i3,I,c1,c2,f,g,HzChar,AscCharASINTEGERDIMHzByASSTRING*32DIMAscByASSTRING*16DIMl,HzRecASLONGOPENHZK16FORBINARYAS#1`打开汉字库文件OPENASC16FORBINARYAS#2`打开ASCII码字库文件HzLen=LEN(HzStr$)`计算字符串长度HzPos=1`置字符串的首字节为当前字节WHILEHzPos＜=HzLen`字符串显示完前一直循环I=ASC(MID$(HzStr$,HzPos,1))`获取当前字符的ASCII值IFI＞HA0THEN`判断是否为汉字内码IFf=0THEN`f为零则该字节为汉字区码c1=I-HA1`计算区码f=-1`置f为非零ELSE`f不为零则该字节为汉字位码c2=I-HA1`计算位码f=0`置f为零HzRec=c1*94 c2`计算汉字在字库中的记录号l=HzRec*32 1`计算汉字在字库中的起始字节位置GET#1,l,HzBy`从l开始读取32字节FORi1=0TO15`字模垂直方向16行点FORi2=0TO1`每行16个点对应的两个字节HzChar=ASC(MID$(HzBy,i1*2 i2 1,1))`每个字节的ASCII值FORi3=0TO7`每个字节的8位IF(HzChar(2(7-i3)))ANDH1THEN`若该位是1PSET(HzCol i2*8 i3,HzRow i1),Color`画点ENDIFNEXTi3NEXTi2NEXTi1HzCol=HzCol 16`将光标置于下一个字符的左上角ENDIFELSE`不是汉字内码则为ASCII码l=I*16 1`计算ASCII字符在字库中的起始字节位置GET#2,l,AscBy`从l开始读取16字节FORi1=0TO15`字模垂直方向16行点,每行对应1个字节AscChar=ASC(MID$(AscBy,i1 1,1))`每个字节的ASCII值FORi3=0TO7`每个字节的8位IF(AscChar(2(7-i3)))ANDH1THEN`若该位是1PSET(HzCol i3,HzRow i1),Color`画点ENDIFNEXTi3NEXTi1HzCul=HzCul 8`光标置于下一个字符的左上角ENDIFHzPos=HzPos 1`置字符串的下一个字节为当前字节WENDCLOSEENDSUB参数HzCol、HzRow是所要显示字符串的左上角坐标,Color是字符串的颜色,HzStr$是要显示的字符串,其中可包含汉字、图形符号和ASCII字符。2.Windows风格图形界面。Windows界面简洁、美观、标准,用BASIC语言的图形函数可以很方便地生成一个Windows风格界面。先用VIEW(0,0)-(639,479),3设置背景色,再调用下面的过程生成窗口,调用一次生成一个窗口。参数Le、Top、Ri、Bo指定窗口左上角和右下角的坐标,FrmCol、TitCol是工作区和标题栏背景色,Title$、Menu$是标题和菜单的文字内容。例如,以下调用将生成一个主窗口和一个子窗口:MyForm30,30,609,440,7,4,程序主窗口,文件[F]选项[O]窗口[W]帮助[H]MyForm70,90,569,400,15,1,程序子窗口,文件[F]编辑[E]搜索[S]运行[R]帮助[H]过程代码如下:SUB