说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中播放三维动画编程一例

HTML文档下载 WORD文档下载 PDF文档下载
VB中播放三维动画编程一例



  用三维动画做多媒体应用程序中的动画界面,由于画面效果良好逼真,已越来越多地被程序员们采用。在VB中播放三维动画的方法,刊物中已有介绍。常见的有:1 利用Autodesk公司提供的Aaplay.VBX控件,可方便实现,但正版Aaplay.VBX很难见到,且在VB4.0以上版本中,已不再支持VBX控件而改用OCX。2 利用MCI(VB4.0中为MMContral) 控件或调用动态链接库AAPLAY.DDL,但MCI控件只能播放AVI格式的动画却对FLC无能为力,调用DDL库的详细方法又未被普遍掌握。本文介绍另一途径可方便实现对三维动画的灵活播放,供大家参考。

  首先,用3DS软件制作三维动画,制作过程本文不再详述,注意在生成动画文件时不生成FLC或FLI文件而要生成连续多幅BMP格式图象,以供VB中使用。图象的大小最好和播放时动画窗口的大小一致,这样在VB中就不用再专门改变图象的大小了。文件名可起成类似“DH2”这样的名称,如制作一个60幅的动画,在生成时就会自动生成DH20000.BMP至DH20059.BMP一系列图形文件。将它们放在预定目录如“c:\bmp”中。

  第二,在播放动画的窗体中设置Picture控件数组,如:“Picture1(60)",下标为0至59 。将其属性Autosize置为true。这样Picture的大小将自动与BMP图象的大小一致,如想改变播放时图形的尺寸,可以使用Image控件数组,将其Stretch属性置为True。(使用Image控件播放时画面比Picture控件略为流畅,因其显示速度较快)

  第三,编程播放。

  在Form_load( )过程中加入以下代码:

  FOR I=0 TO 59

  PICTURE1(I).LEFT=NN 'NN 、HH为常数,设定PICTURE PICTURE1(I).TOP=HH '在窗体中的位置  '以下为装入图象

  FILENAME="C:\BMP\DH" & STR(20000+I)

  FILENAME=FILENAME & ".BMP"

  PICTURE1(I).PICTURE=LOADPICTURE(FILENAME)

  NEXT

  在窗体中加入时钟控件Timer1,其Interval属性置为56。在Timer 事件函数中加入以下代码:

  TIMER1_TIMER( )

  I=I+1

  IF I=60 THEN

  I=0

  PICTURE1(0).VISIBLE=TRUE

  PICTURE1(59).VISIBLE=FALSE

  ELSE

  PICTURE1(I).VISIBLE=TRUE

  PICTURE1(I-1).VISIBLE=FALSE

  END IF

  END SUB

  以上程序为每1/18秒变换一幅图象,构成循环播放,注意三维动画要设计成首尾相接的,这样一个循环和另一个循环之间才能衔接好。如不需循环播放则无此问题,把程序中控制循环的语句去掉即可。
中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 突出图片搜索:微软向测试人员开放Socl社交搜索 豌豆荚创始人:和巨头竞争,我们拼产品和技术 “互联网女皇”报告解读:智能电视大趋势 苹果扩大其北卡罗莱纳州燃料电池发电场规模 Oracle回收站使用全攻略 微软这次很诚实:IE真的糟透了 Facebook进军短信业务,挑战微信鼻祖WhatsApp 从菜鸟到专家的五步编程语言学习法 亚马逊企业文化:从书贩到云服务巨头的催化剂 明年Google I/O大会日程敲定 或发Android“酸橙派”? 绝境求生,WebOS寄望Android Facebook在移动路上走过的那些弯路 曙光聂华:推动数据融合 CloudStack Committer李学辉:2013年社区将爆发 继续霸权:美众院否决联合国掌控互联网 墨迹天气创始人金犁:巧用细分市场的力量 请问:框架(Frame)为什么不能动态生成两次 ????????????? 在win2k下有人知道ActiveReports报表怎么自定义打印纸张大小 大家讨论一下运算符重载的问题!!!! 位操作问题?欢迎各位朋友讨论! data控件能连接sqlserver数据源么? 有没有办法使重复的值只显示一个,空值不显示也不要占位置?(急呀!!!) 用TURBO C2.0能不能写32位的软件? 如何设置WN98中的硬盘驱动器盘符 SOS pekie 请教啦! 投影仪投出的图像中间部分呈粉红色,是不是投影仪坏了? 在MYSQL中我想修改root密码,可是总报错说user表是read only,如何把只读的属性去掉? 关于开发网络麻将游戏需求的问题。。谢谢。 关于jsp或applet调用本地DLL的问题 在BCB中如何添加自己的类? 关于APPLET从服务器下载图片的问题! 建议下一次改版的时候考虑一下这个问题:CSDN 的很多页面好像用NetScape不能浏览? 我不用IE很多年了, 因为太容易死机 有没有做股票的朋友? 急!!!50分求购一个在程序中实现按下按钮功能的小程序,多谢了 在图象上的汉字显示问题 请问谁知道把AVI文件转换成BMP位图数据的算法 圣诞快乐 用什么工具可以从exe文件中把资源文件,如图像、图标提取出来? Word与Delphi的结合!高手请进! 贴子为什么掉到第二页上再UP就回不到第一页去了?见龟!——千山一刀 ^^^^^^^^^如何配置sybase的clinet端????^^^^^^^^^^^^^^^^^^^^ 进程与线程 在win2000系统下,构建asp+sql的web站点,但在web页中无法显示出小数点前的零? 如何配置sybase的clinet端? 关于webbrowser。 TO:riolee(随风) 关于directshow的 开始菜单中的运行找不到 请问各位谁能提供 CString 里有一个operator LPCTSTR,难道这个LPCTSTR也可以被重载,它不是操作符啊,也不在可被重载的范围中啊? 请问到何处用蚂蚁下载photoshop6.01软件 在UPDATE的时候,如何返回受影响的记录个数?[Oracle8i] 请问各位谁能提供jpeg文件格式的中文说明??????????????????? [question]tmd的,有人惹我,怎么办 Windows CE, Windows NT Embedded等嵌入式操作系统和相关开发工具在上海如何购买??? mobile web application 里的softkey到底是怎么回事呀 [心情不好]砂粉阿 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 ASP新手提问! 有谁知道在DELPHI中得到包括硬盘、多媒体、主板等信息? 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 10 11 12 13 14 第10、11、12题怎么做? 根号2+4根号2=多少?结果保留3个有效数字 11,12,13题 9.10.11.12.13.14 已知不等式x+3≤6.(1)把不等式化为x≥a或x≤a的形式(2)求不等式的正整数解,并把它们在数轴上表示出来 北师大附小六2班共有学生60人.其中13岁的占百分之五,11岁的占百分之十,其余的都是12岁.六2班11岁的和13岁的一共有多少人?12岁的比11岁的多多少人? 在三角形ABC中b等于根三.c等于3.B等于30度.则a等于多少? 若关于x的不等式x-a1? 育才小学六(1)班同学做广播体操,体育委员在前面领操,其他学生排成每行12人或每行16人都正好是整行,这个班至少有学生多少人? 化简(-m分之n)除以m的平方-m分之n的结果是 若关于x的不等式x 11 12 13 化简 |m|+| (2+m-m^2) 除以(m+1) | 若关于X的不等式x-a<0的正整数解只有1,借助数轴求A的取值范围 11 12 13 14 在三角形ABC中,角A-角B=角B-角C=15°,求角A.角B.角C个等于多少急1! 10除以x=0. 求解11、12、13、14题 49减m的平方分之1除以m的平方减7m分之1求讲解初二数学偷懒没学好,求老师讲解一下这题用了什么运算方法,数学书有答案可是我看不懂,应该怎么解? 9,10,11, 请解答第11,12,13,14题 m平方--7m+11=1 M为 9,10,11,12题该怎么做?帮帮忙 当x为何值时,分式|x|-2/x的平方-2x的值为0?要有过程啊 a的平方减去b的平方的差的七次方除以m等于a减b的差的七次方 m的值 根号5减根号21和根号5加根号21各等于多少 在等腰三角形ABC中,∠A=4∠B,则∠C=在等腰三角形ABC中,∠A=4∠B1.若∠A是顶角,则∠C=2.若∠A是底角,则∠C=若等腰三角形的一腰上的高与另一腰的夹角为30°,则其顶角的大小是_____度 4减m的平方除以2减m等于多少?要过程,谢谢 九题十题十一题十二题. 已知等腰三角形ABC的两个顶点为A(0,1)B(0,3)第三个顶点C在X轴的正半轴上关于Y轴对称的抛物线y=ax"+bx+c经过A,D(3,-2)P三点 且点p关于直线AC的对称点在x轴上1 求直线BC的解析式2 求抛物线y=ax"+bx+ 在三角形ABC中,a等于3,b等于根号7,c等于2,那么角B等于多少度? 9.10.11.12题 如图,在等腰三角形ABC中,AB=AC=5cm,BC=6cm,点P从点B开始沿BC边以每秒1cm的速度向C点运动,点Q从点C开始沿CA边以每秒2cm的速度向点A运动,DE保持垂直平分PQ,且交PQ于点D,交BC于点E,点P,Q分别从B,C两点同 10.11.12. 5除以5分之一等于多少 如图,在等腰三角形ABC中,AB=AC,AB=5cm,D为BC上任意一点,DF//AC,DE//AB,求平行四边形AEDF的周长 10+11+12+13 根号500等于多少保留四位有效数字 五角星加花等于66,花减五角星等于24.问五角星和花是多少 x-(3x-5)/2小于等于2(8-x)/5-1,解不等式,并将解集钻数轴上表示出来 9.10.11.12.13.14. 请你将6の25这20个自然数分别填入五角星构图中的20个小圈内使得各条直线上的六个数字之和都恰好等于90 (10+12+13+14+11)×9÷15 从1除以7,2除以7,3除以7,4除以7.你发现了什么?从得数中寻找答案,得数我就不打了 10.11.12.13.14. 求不等式3(x-1/2)小于或等于2(x-3)+1的最大整数解. 2乘根号5减去根号15加上2分之π约等于多少?保留4个有效数字 三个三角两个五角星相加等于三十一,三个三角一个五角星相加等于二十.三角代表什么数字,五角星代表什么数字? 利用数轴求出不等式 -1≤x≤3 的整数解 1/根号5,等于多少,保留4个有效数字, C++的编程 把0到9这个十个数字放在五角星的十个交点里面 使每排的四个数字之和等于18用C++编程做,只有十分了可以悬赏了,算是大家技术交流,我以前都是笔算的,十来年了 若关于x的不等式x-a小于0的正整数解只有1,2,3,借助数轴求a的取值范围 10?11?12?13?14? 10+11+12+13+14=? 在三角形abc中,已知a等于2,角b等于140度,求角a,c和边c 10,11,12,13, 五个正方形相加等于五角星,正方形加正方形加五角星等于五十分之二之一,那么正方形等于【】,五角星【】 10,13, 周记 是写 一个星期的每一天的事 还是 写一个星期最难忘的一件事?投票认为一个星期的每一天的事 选1 写一个星期最难忘的一件事选2
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn