用Clipper制作实用的图象文件演示程序

Author: 童新红 Date: 1997-01-01
　　很多朋友用绘图软件绘制出了一幅幅精美的图画，有的甚至把本公司的产品绘成产品介绍图、公司销售服务网络图等。这些图画一般以某种格式的图象文件形式存储（如ＰＣＸ、ＢＭＰ格式等），如果你能够编写一个演示程序，把这些图象文件自动地一幅幅地演示给客户或者朋友们，一定会收到事半功倍的效果。这里给大家介绍一种演示ＰＣＸ图象文件的方法，该程序用Ｃｌｉｐｐｅｒ语言编写，并利用了ｕｃｄｏｓ的特显，源程序如下：
　　／＊ＹＳ．ＰＲＧ＊／
　　＃ｄｅｆｉｎｅ　ＹＳＮＵＭ　８　　　　　　　　　　　／＊可根据实际修改需演示的幅数＊／
　　ｃｌｅａｒ
　　ｏｕｔｓｔｄ（ｃｈｒ（１４）＋［ｍ１０　ｃ１　ｃｕ１，０　ｋｂ１，０］）　　／＊利用ｏｕｔｓｔｄ（）函数实现ｕｃｄｏｓ特殊显示＊／
　　ｎｎ＝ｓｐａｃｅ（１）
　　ｆｏｒ　ｉ＝０　ｔｏ　ＹＳＮＵＭ　　　　　　　　　　／＊循环输出ｐｃｘ图象文件＊／
　　ｎｎ＝ｓｔｒ（ｉ，１）　　
　　ｏｕｔｓｔｄ（ｃｈｒ（１４）＋［ｒｅ０，０，ｙｓ＋ｎｎ＋　．ｐｃｘ］）
　　ｉｎｋｅｙ（１０）　　　　　　　　　　　　　　　　　／＊延迟１０秒或按任意键继续＊／
　　ｉｆ　ｌａｓｔｋｅｙ（）＝２７　　　　　　　　　　　／＊如果键入ＥＳＣ键退出演示＊／
　　ｅｘｉｔ　　
　　ｅｎｄｉｆ
　　ｎｅｘｔ
　　ｏｕｔｓｔｄ（ｃｈｒ（１４）＋［ｍ３　ｃｕ１，１　ｋｂ１，１］）
　　ｃｌｅａｒ
　　用Ｃｌｉｐｐｅｒ编译、链接为ＹＳ．ＥＸＥ之后，在ＶＧＡ模式下把你的图象文件改为ＹＳ０．ＰＣＸ、ＹＳ１．ＰＣＸ、ＹＳ２．ＰＣＸ…，即可演示你的精美之作了。