|
用QB直接写屏 |
|
| 来自:http://book.ssjj.com/ | 作者:陈宏宇 |
|
想提高字符显示的速度吗？想在常驻程序中使用字符显示功能吗？用过Ｃ的朋友可能会推荐使用直接写屏（所谓直接写屏既是指在ＶＧＡ
彩色８０列文本方式下，显示内存从ｂ８００ｈ
开始，屏幕上的每一个字符都对应显示内存的２个字节，偶字节为字符的ＡＳＣⅡ码，奇字节为该字符的属性。在显示内存里写入字符和属性即可在屏幕相对应处显示字符）实现上述功能。 可是ＱＢ的爱好者该怎么办？用Ｐｒｉｎｔ 语句显示字符实在太慢太慢，自然不可取。其实ＱＢ 也可以实现直接写屏功能，且看以下程序，本程序直接针对硬件编程，在屏幕第一行第一列显示１个绿色的字母Ｂ。 源程序如下： ｄｅｃｌａｒｅ ｆｕｎｃｔｉｏｎ ｄｉｒｅｃｔｗｒｉｔｅ ！（ｘ！，ｙ！，Ａ＄， ｉｃｏｌｏｒ ！） ｃｌｓ ｋ ＝ｄｉｒｅｃｔｗｒｉｔｅ（１，１，“Ｂ”，２） ｗｈｉｌｅ ｉｎｋｅｙ＄＝“” ｗｅｎｄ ｉｆ ｋ ＝０ｔｈｅｎ ｐｒｉｎｔ“参数不符合要求” ｅｎｄ ｆｕｎｃｔｉｏｎ ｄｉｒｅｃｔｗｒｉｔｅ ！（ｘ！，ｙ！，Ａ＄，ｉｃｏｌｏｒ ！） ｄｉｒｅｃｔ ＝１ ｄｅｆ ｓｈｇ ＝＆ｈｂ８００ ｉｆ ｘ ＞８０ｏｒ ｙ ＞２５ｏｒ ｘ ＜１ｏｒ ｙ ＜１ ｔｈｅｎ ｄｉｒｅｃｔ ＝０ ｅｎｄ ｉｆ ｉｆｌｅｎ（Ａ＄）＜＞１ｔｈｅｎ ｄｉｒｅｃｔ ＝０ ｅｎｄ ｉｆ ｉｆ ｄｉｒｅｃｔｗｒｉｔｅ ｔ ＝（ｘ －１）＊２＋（ｙ －１）＊８０＊２ ｐｏｋｅ ｔ ，ａｓｃ（Ａ＄） ｐｏｋｅ ｔ ＋１，ｉｃｏｌｏｒ ｄｉｒｅｃｔｗｒｉｔｅ ＝１ ｅｌｓｅ ｄｉｒｅｃｔｗｒｉｔｅ ＝０ ｅｎｄ ｉｆ ｅｎｄ ｆｕｎｃｔｉｏｎ ｄｉｒｅｃｔｗｒｉｔｅ ！（）函数的四个参数分别为行、列、字符、颜色。如果成功执行返回值为１，否则为０。在程序中加入此函数，可以提高显示速度，特别在编写ＴＳＲ 驻留程序时，使用本函数的优越性就更明显了。（浙江省瑞安市场桥电信局程控机房陈宏宇３２５２０５） |
|