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

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秒变换一幅图象,构成循环播放,注意三维动画要设计成首尾相接的,这样一个循环和另一个循环之间才能衔接好。如不需循环播放则无此问题,把程序中控制循环的语句去掉即可。
OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 打破边界 生态化反!乐视发布三款超级手机 苹果收购LinX:iPhone或将采用双摄像头技术 Google《Android性能优化》学习笔记 Amaze UI 2.3.0版本发布 整合多个第三方插件 专访Layabox创始人谢成鸿:Flash与HTML5结合的背后 高德推“LBS+”开放平台战略 整合位置大数据和云计算 CLion 1.0发布,C/C++跨平台集成开发环境 2015超实用的前端开发指南 期待吗?Linux 4.1将引入大量汇编代码变更! TSMC量产16FF+制程,Apple Watch或将采用Finfet技术 谷歌搜索引擎更新 移动端支持不好的网站排名将受影响 《近匠》格知GUECHI,设计师品牌让你离时尚更近 Apple Watch应用开发经验谈:我遇到的那些坑 约吗?UNITE 2015 BEIJING日程全揭晓! 谷歌扩擴增App搜索結果 已抓取300亿App页面 功耗、联网与交互:可穿戴设备操作系统问题解读 李大学离职京东后:转做投资人,助传统产业“互联网+”转型 Skype Translator实现中英实时语音对话 语音翻译领域又一新突破 如何判断自己是否适合自由职业? 创造·连接·成就:UNITE 2015 BEIJING圆满落幕 IT互联网人才招聘市场特点:人少钱多疯狂抢? React Native并非原生 Instagram Apple Watch应用设计师:对原有App全部重新思考 腾讯网移动端H5页面设计实战分享 Kendo UI和AngularJS常见问题解析 哪里有core java的e版down啊? 有事好商量!请进! DLL编程错误,请高手指教一下!! 活见鬼,真气人....... 问一个trigger问题? 问一下:我的char*都用_T("asdfsafd")表示了,资源也没任何问题,可有时候运行程序显示乱码 在论坛里,发一个帖子新开一个窗口,当发完后让原来那个窗口刷新一下 我的机子到底怎么回事???? 我试试.. CListCtrl中如何选定整个一行? 来到济南天气太热,特来送分 ★★★★★ 见于现在伪ID和盗用密码的现象十分嚣张,我提议…… ★★★★★ 请教各位,我用vb6.0访问ms sql7.0数据库,为什么有时出现,“过期,数据已超时?” 请问COM和DLL有什么区别和联系?(30分) 关于侯老师 win95-a-developers-guide 一书的源配书... ISAPI中不能存取ASP中的Session、Application变量?高手你老人家在哪里? 大家来看看这些招聘题目合不合适 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一 activeskin里的skinbuilder有谁用过???来讨论吧 我在msdn上看到vb中的字符串有两种:定长字符串和变长字符串。请问如何分别声明这两种类型? 怎样在ADO中引用已打开的recordset的某一字段值,请给几个例,谢谢了! seedundersnow and holyfire help me!about 8253! 谁有cute ftp 4.2.6 beta的注册码 请问如何把页面查询到的记录导入到Excel中呢? 有用过TAdvStringGrid的吗?OnGetEditorType( )为何不被调用? 请教高手如何用Xsl编制函数控制Xml??急急 哪位给一个MD5的例子!谢谢了 长春的李延生来领分 求救:一个VC中多线程的问题 提个问题,原来对VC尤其是界面和C++语法这一块比较熟,现在由于公司需要转C++BUILDER,难不难,需要熟悉哪些 [总300分,会继续加分]哪位大哥用编程实现过创建SQL Server的DTS package并且run the package的全过程[急] 能不能使用html 压缩中提到的文件头有什么作用 , 保含哪些信息 菜鸟问题1 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一。。。。。。。 关于:import java.util.StringTokenizer; 问题! 如何实现在某特定时间(如每月1号,或7天后)执行特定asp程序? 在开发工具中如:(vc,jsp)中如何得到oracle中自定义函数的返回值 当form被移动的时候会相应什么事件的? 关于使用mscomm32.ocx中的一些问题 类似股票信息显示系统的问题(图形显示) 强烈抗议:无怨无仇,为什么冒用我的ID 写一些乱七八糟的东西????? 一个简单的线程问题! 请问高手:两个类之间的关联关系如何实现? 各位请问, 我的系统要求支持三种语言, BIG5,GB2312,ENGLISH,数据库应该怎样设计!! 求救!!!vfp ,控件 optiongroup1, 属性 ButtonCount=N,如何给第N个OPtionN.Caption赋值 假如上天给你一个机会。。。请看过来。。。 如何配置IIS 使其利用TOMCAT 支持JSP AND SERVLET ? 请问:ORACLEH中保存每列的数据类型的系统表名叫什么? !!这个简单的问题,没解决!!!给分!! 对公的帐号不能向私人帐号汇钱,怎么办? 解方程:5x2+7x+12=0五x的平方+七x+12=0 (2012•台湾)判断下列哪一组的a、b、c,可使二次函数y=ax2+bx+c-5x2-3x+7在坐标平面上的图形有最低点?(  )A.a=0,b=4,c=8 B.a=2,b=4,c=-8 C.a=4,b=-4,c=8 D.a=6,b=-4,c=-8 设X1,X2是一元二次方程X²+4X-3=0的两个根,2X1(X2²+5X2-3)+a=2,则a=? x减0.7x等于3.6 分解2x四次+3x三次减5x2次+3x+2 计算:1的平方-2的平方+3的平方-4的平方+5的平方-6的平方+...+2001的平方-2002的平方+2003的平方-2004的平方. x-0,7x等于什么 若x3+5x2-12x+m有因式x-3.则m=? 1.(2√3-3√2)的平方 2.(3√5+2√6)(2√6-3√5)3.√2(√2-√6)+(1+√3)(1-√3)4.(2√3-3√2)(2√2+√3) X-0.7x等于多少 下列何式为5x^2+17x-12的因式?A:x+1 B:x-1 C:x+4 D:x-4 说出理由啊 , (x+2)(x-3)-2(x-6)(x+5)-3(x平方-5x+17),x=5.5 5x2=1打 成语5x2=1打一成语 分解因式5x2+6xy-8y2 (1/2-3+5/6-7/12)*(-6)的平方 1分之1等于1是什么成语 设x2+ax+b是xn-x3+5x2+x+1与3xn-3x3+14x2+13x+2的公因式,则1+a+b=() 1=1的平方 1+3=2的平方 1+3+5=3的平方 用秦九韶算多项式f(x)=6x2+3x2-5x2+4当X=4的值时需要把多项式改写成什么 5x2 =1打一成语 抛物线y=-0.5x2+2.5x-2与x轴相交于点A,B,与Y轴相交与点C.1.求证:ΔAOC相似与ΔCOB2.过点C做CD//X轴交抛物线与点D.若点P在线段AB上以每秒1个单位的速度由A向B运动,同时点Q在线段CD上也每秒1个单位 已知函数f(x)=0.5x2-x+1.5的定义域和值域都是[1,-b],求b的值. 1*1等于1,根据提示写成语还有12345679 24.(13分)如图,在平面直角坐标系中,直线y=-x+3与x轴、y轴分别交于点B、C;抛物线y=-x2+bx+c经过24.(13分)如图,在平面直角坐标系中,直线y=-x+3与x轴、y轴分别交于点B、C;抛物线 已知f(x)是二次函数,且f(x)+f(2x)=5x2+3x+2,求f(x) 0+0等于一什么成语 已知:如图12,抛物线y=-4/5x²+mx+4与y轴交于点C,与x轴交于点A、B,(点A在点B的左侧)且满足OC=4OA.设抛物线的对称轴与x轴交于点M:(1)求抛物线的解析式及点M的坐标;(2)联接CM,点Q是射 f(x)=5(x≤1) f(x)=1/x-1(x﹥1) f(5)= f(1/2)=f(x)=5(x≤1)f(x)=1/x-1(x﹥1)f(5)=f(1/2)= 拍立得相机拍出来的照片效果相当于数码相机的多少像素 如图,抛物线y=-0.5x2+0.5x+6,与x轴交于A、B两点,与y轴相交于C点已知E点(0,-3),在第一象限的抛物线上取点D,连结DE,使DE被x轴平分,试判定四边形ACDE的形状,并证明你的结论为什么D坐标是(3,3) f(x)=x(1-x)(x大于等于0) f(x)=x(1+x)(x小于0)判断f(x)奇偶性 9 8 7 6 5 4 3 2 1中间加上加减号等于21咋写 急 如图,抛物线y=-x²+5x+n经过点A(1,0)与y轴交于点B 已知f(x)=x(1/2x-1+1/2)⑴判断f(x)的奇偶性 ⑵求证:f(x)大于0 5X^2-2根号15X+3等于0, 5x2-4(a+3)x+a2-29=0 已知函数f(x)=1/2^x-1+1/2 求f(x)的定义域 判断函数f(x)的奇偶性 证明当X大于0时f(x)大于0 若y等于根号下5x减1再加根号下1减5x,则5x加y等于几 5X2—3因式分解 函数f(x)=x(x大于-1小于等于1)的奇偶性是A :奇函数非偶函数B:偶函数非奇函数C:奇函数且偶函数D:非奇函数偶函数 已知A=4x²-10x+8,B=5x²-6x+8,C=2x²-3,①求(a-b)*C②当X=-2时,求(A-b)*C 2x一10二4.5x2怎么算? 已知函数f(x)对任意实数X,y恒有f(x+y)=f(x)+f(y)且当x大于0f(x)小于0 判断f(x)奇偶性并证明判断f(x)的单调性,并证明之 4/5x2=4x2一5x2=8/10=4/5是对还是错 (负1减二分之1)乘(负1减3分之1)乘.乘(负1减10分之1) 请计算 +8!+9!+...+2006!的第十位+8!+9!+...+2006!的和的第十位,谢谢楼下的回答!请问是怎样得出n=45时最后的10位数据已经是全0了呢? 当x变化时,分式3x2+6x+5/0.5x2+x+1的最小值为多少3x2,0.5x2指3倍的x的平方,0.5倍的x的平方尽量按一元二次方程格式 (负3又3分之2)十(负6分之一)= (-30)除以(3/1-5/1-15/1)等于多少 已知A=4x²-10x+8,B=5x²-6x+8,C=2x²-3,求(A-B)C分解因式 (负1.3)十[负4(负2负7)]= 48*(7/12+5/600)除以2/3 1/8+(1/8+1/30)*1548*(7/12+5/600)除以2/3 1/8+(1/8+1/30)*15 6x-6.5x2=8求方程 数学题所有的要过程3/5X2/11+2/11÷5/2 48X(1/2+5/6+3/8) 2又5/8X9.25+7又3/8X9又1/47/9÷11/8X(1/4+2/3) 7/18÷[(5/7-1/3X7/16] 请不要嫌麻烦 -30除以(3分之1—5分之1—15分之一) 已知A=1-x2,B=x2-4x-3,C=5x2+4,求多项式A-2[A-B-2(B-C)]的值,其中x=-1 超急! 利用EXCEL确定x3-5x2-4x+6=0近似解?1)x为-9、-8、-7、-6、-5、-4、-3、-2、-1、0、1、2、3、4、5、6、72)x为-1.6、-1.5、-1.4、-1.3、-1.2、-1.1、-1、……、0.6、0.7、0.8、0.9、1、1.1、……、5.2、5.3、5.4、5.5 若sina是5x2-7x-6=0的根,则 已知多项式x2-(a-1)x^3+5x2-(b+3)x-1中不含x^3和x项,求a、b的值 设x1、x2是一元二次方程x^2+4x-3=0的两个根,2x1(x2的平方+5x2-3)=_____
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn