在QBASIC中实现动画清屏

Author: 刘树玉 Date: 1997-01-01

　　大家都知道，ＱＢＡＳＩＣ有一个ＶＩＥＷ　［ＳＣＲＥＥＮ］（Ｘ１，Ｙ１）－（Ｘ２，Ｙ２）［，窗口底色］［，边界颜色］语句来设置指定区域为图形视见窗。我们利用这一功能就可以实现从左到右、从大小到、从小到大、百叶窗式等等各种清屏方式，现举从左到右和从小到大两例加以说明：
　　１．用ｃｌｓ清除屏幕
　　２．用ＳＣＲＥＥＮ定义屏幕模式。由于模式１２的图形规格为６４０×４８０，字符规格为８×１６的小字符，在这种模式下作出的图形和写出的字符比较漂亮，故本例选用模式１２。
　　３．利用ＶＩＥＷ　［ＳＣＲＥＥＮ］语句编程。根据本人的习惯，可以用ＳＴＥＰ来设置显示速度，本例为２；由于屏幕的宽高比为６４０÷４８０＝１．３３，故在程序中用系数１．３３来控制纵横坐标的比例，使其纵横坐标清屏达到同步，不至于溢出。
　　４．程序清单如下：
　　ｃｌｓ
　　ｓｃｒｅｅｎ　１２
　　ｒｅｍ　从小到大清除屏幕
　　ｆｏｒ　ｉ＝１　ｔｏ　２３９
　　ｖｉｅｗ　ｓｃｒｅｅｎ　（３２０－ｉ＊１．３３，２４０－ｉ）－（３２０＋ｉ＊１．３３，２４０＋ｉ），３，２
　　ｎｅｘｔ　ｉ
　　ｒｅｍ　从左到右清除屏幕
　　ｆｏｒ　ｉ＝１　ｔｏ　６３８　ｓｔｅｐ　２
　　ｖｉｅｗ　ｓｃｒｅｅｎ　（ｉ，１）－（ｉ＋１，４７９），１
　　ｎｅｘｔ　ｉ
　　同理，我们利用上面的方法还可以编制出各种各样的清屏方案。