应用QBASIC编制动画一例 刘树玉 1997-01-01 　　在ＱＢＡＳＩＣ中我们可以利用ＧＥＴ和ＰＵＴ的存储功能来实现动画。 　　ＧＥＴ和ＰＵＴ的应用格式如下： 　　ＧＥＴ　（Ｘ１，Ｙ１）－（Ｘ２，Ｙ２），数组名 　　ＰＵＴ　（Ｘ，Ｙ），数组名［，粘贴格式］ 　　其中粘贴方式有如下五种方式： 　　ＰＳＥＴ：照原样粘贴 　　ＰＲＥＳＥＴ：原图取反后粘贴 　　ＡＮＤ：原图与现图作与运算后，保留共同部分，再显示 　　ＯＲ：原图与现图作或运算后，保留现图（背景），再显示 　　ＸＯＲ：原图与现图作异或运算后，清除原图，保留现图，再显示 　　其余参数的设置参见有关书籍，在此不再详述。 　　假如有一字符串“清屏模拟显示”，从屏幕的左端显示出来，逐渐向右移动，到屏幕右端后弹回，又向左移动，来回循环移动，每循环一次，屏幕的背景变换一次颜色，颜色循环１４次以后，程序停止运行。操作步骤如下： 　　１．定义数组的ＩＧ（Ｎ）为整数型。 　　２．利用ＵＣＤＯＳ的特殊显示功能造出一个４０×４０点阵的汉字串，并存储到数组ＩＧ（Ｎ）和文件Ｆ．ＤＡＴ中，以备其它程序调用。 　　３．读数据文件Ｆ．ＤＡＴ到数组ＩＧ（Ｎ）中，如果在同一个程序中有步骤２的话，则可以省略这一步。 　　４．设置循环体，改变背景的颜色。 　　程序清单如下： 　　Ｎ＝３１８４　“定义数组的大小” 　　ＤＩＭＩＧ（１　ｔｏ　Ｎ）　ＡＳ　ＩＮＴＥＧＥＲ　“定义数组” 　　ＯＰＥＮ　＂ＬＰＴ３：＂　ＦＯＲ　ＯＵＴＰＵＴ　ＡＳ　＃２ 　　ＬＯＣＡＴＥ　１０，１０：ＰＲＩＮＴ　＃２，ＣＨＲ＄（１４）；“［｛－１６０｜７０＠４０，４０）１（４清屏模拟显示｝ 　　ＣＬＯＳＥ　＃２ 　　ＧＥＴ（１６０，７２）－（４９９，１０８），ＩＧ　“读取数据到数组ＩＧ中” 　　ＰＵＴ（１００，２００），ＩＧ 　　ＯＰＥＮ　＂Ｆ．ＤＡＴ＂　ＦＯＲ　ＯＵＴＰＵＴ　ＡＳ　＃２　“将数组写到磁盘文件Ｆ．ＤＡＴ中” 　　ＦＯＲ　Ｉ＝１　ＴＯ　Ｎ 　　ＰＲＩＮＴ　＃２，ＩＧ（Ｉ） 　　ＮＥＸＴ　Ｉ 　　ＣＬＯＳＥ　＃２ 　　ＯＰＥＮ　＂Ｆ．ＤＡＴ＂　ＦＯＲ　ＩＮＰＵＴ　ＡＳ　＃１　“打开数据文件Ｆ．ＤＡＴ” 　　ＦＯＲ　Ｉ＝１　ＴＯ　Ｎ 　　ＩＮＰＵＴ　＃１，ＩＧ（Ｉ）“读数据到数组ＩＧ中” 　　ＮＥＸＴ　Ｉ 　　ＣＬＯＳＥ　＃１ 　　ＦＯＲ　Ｃ＝１　ＴＯ　１４　“设置颜色循环体” 　　ＰＡＩＮＴ　（１０，１０），Ｃ　“给屏幕着底色” 　　Ｘ＝０ 　　ＦＯＲ　Ｉ＝１　ＴＯ　２９８　“从左到右显示” 　　Ｘ＝Ｘ＋１ 　　ＰＵＴ　（Ｘ，１００），ＩＧ，ＰＳＥＴ 　　ＮＥＸＴ　Ｉ 　　Ｘ＝２９８ 　　ＦＯＲ　Ｉ＝３１０　ＴＯ　１４　ＳＴＥＰ　－１　　　“从右到左显示” 　　Ｘ＝Ｘ－１ 　　ＰＵＴ　（Ｘ，１００），ＩＧ，ＰＳＥＴ 　　ＮＥＸＴ　Ｉ 　　ＮＥＸＴ　Ｃ 　　ＥＮＤ 　　同理，依上述方法还可以编制出各种各样的动画，诸如弹性碰撞的小球、星星、跳跃前进的画面等等，只要你巧加利用，一定会使你的程序锦上添花。