用PB实现简单的动画

金美萍  
2001年 29期

　　在以前的《电脑报》上看到了怎样用VB实现动画，禁不住在这里想发表一下自己在PB编程时的一些小技巧。笔者是用PB中的timer事件实现了动画。现欲在窗口中实现一个走动的小人，下面就说说实现过程中的主要步骤。对于走动小人的每一步均有一个图片，每个图片为一个文件，共有16个文件，这些文件名字依次为pick0.bmp到pick15.bmp。假设将这几个文件保存到“c:\bmp\”下。
　　　　主要程序代码如下：
　　　　建立全局变量：picture  pt[16]
　　　　int  pCount
　　　　在窗口上用画笔建立一个picture对象，假设该对象名字为p＿1，在所要实现动画窗口的OPEN事件中写如下代码：
　　　　int i
　　　　pCount = 1
　　　　for i = 1 to 16
　　　　pt[i]=create picture  //创建picture 对象
　　　　pt[i].picturename=＇c:\bmp\pick＇+string（i - 1）+＇.bmp＇
　　　　//将要显示的图片文件名赋值给创建的picture对象
　　　　next
　　　　timer（0.5，this）　
　　　　//表示每隔0.5秒发生一次该窗口的timer事件
　　　　然后在该窗口的timer事件中写如下代码：
　　　　if pCount >16 then
　　　　pCount=1
　　　　end if
　　　　p＿1.picturename=pt[pCount].picturename
　　　　pCount=pCount+1
　　　　最后，在退出该窗口是不要忘记将你创建的picture对象释放掉，所以在该窗口的close事件中写如下代码：
　　　　int i
　　　　for i = 1 to 16
　　　　destroy pt[i]
　　　　next
　　　　到此，动画就可以基本上实现了，该程序在Windows 98、PB4环境下调试成功。
　　
　　 
 