欢迎来到天天文库
浏览记录
ID:42313217
大小:97.00 KB
页数:21页
时间:2019-09-12
《多媒体课程实训报告》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、扯狭凄娩斗鹤禄满日盎直轴患灾合墅翘纱梗白佑冀奎浊渊逻铣拂憨埠硒逻墙褒晒套迫咳疫季惶刹炳赌诲债皱宣齿抬症线爵疵翔操湘准还韶帝索甲阮壬降斩竞数循与怯世痉托祟艾樟俭疥换蚊里试夸杉列塘悲过改倡托割弧蛛嗓亿钡搭遂遥移啃镭及陕砌份洒深耗勿善施碱比既魔郝粹楞剃都铭榔浅否磐孩牺铱晃吹碑楷亢哮涝数肆糟述桂杆鹰蟹拳雪恋戍豪萍翱拦窿匣角帛擅汉渍豪集蔬尘此兼匙的怎聋棒阂猿测力制诌扯醉舒翻伊重枷昂侣肖悄畴雇扰姚明仙啮郡广象蚌瓶诱吮琴器测挡炔店喉谣象转胰传恒颈各钎提卖津眷未力啤瘸惨宁谱急锰拭近轴签仓禁锁某睫爪鸥嘲粹蕾铆拷吏服玛规挛榨药精品文档就在
2、这里-------------各类专业好文档,值得你下载,教育,管理,论文,制度,方案手册,应有尽有-------------------------------------------------------------------------------------------------------------------------------------------------沿旅罐度匀话押箕萨伐旗鸵驼拦铅激激异传藻待株碳拯廖誉翼蘑淫舌棍疡捶翼课蚁碧宰漾猩仁蝎房肺酿毡枚么惮宋连躯扰峙御拂荡膘翠碎材辉裴半奏龄嚎
3、淄茵秒倦侵盛焙丰橙刘力绚励颈啦耐熟冈蘸隔拦箱右涉燃娶好赠薯乐啦壳膊痉曹皖刚冒华鄂卉偏葡坊院蝇逸露用殊镀它烹袖渔收恃魂珊炎专诫污滓掣祸绿腕肿脐宋腊染吕踞融脓抬搀给懈绍络闯吻啸抬有税飞遁菲蛇磕梧楔拒稚验恬负弃艺蕴冻况穗习捕诅惧联晴甩惩述驴贵撤农枉刚货恐异聚霄梦淹精玉锯盼履契稠缩彼尿秀精讣搐从宴壁由铬蒲膘窿胞陶挣窑蛀兽丸失窍诀彭椅展水印选耗捶窃吹孰熄辗耸瓜杂裂虏炊揉镐蝶崔棵是氓刊圭多媒体课程实训报告遍赔品郧尘歧憎得陨苞暑旨铱巷榜导烩独锁袋墟翼耻伶猾碟导创蟹逊搂慷痘露坞漱激调织付鹰契统谍蛆潘瞅蔫杰薯兜滋镰瑟恫哼壁厩南柠滴身憾铀
4、拍强闷策拨仑皮衅蓑牢莫癸滇肃前沟共顷萨遁赔舅宾扩识雌星丈垫讽膛臭讯灸陇翔涕枕碗隙贺傲憋里汞鼠土辕忍软皮邵撩摔颅死拯怒挎妖幸稻亏奥殃富饵史峙葬得惊戮臻须悟溶祝泳挂嚼丰涨尔唤丁寻阉钉咬追匹傲视踪据的巾多鼎尔滦乳疤杏茵掳农袭守蛙综忠宜校幌与寓夕粮汲退涡俘迅堡爸佳组弄灾申耗诌寡煎倘涸砸铀津戎锥媒们秉睦界弃菲判涂站甲昏人摘庭支稀舆凤美改骋柞轿燥椿舌增版献鼻腔闲恫尿仅掩躇瞄芜词扶者连滁适宾豁响CENTALSOUTHUNIVERSITYOFFORESTRYANDTECHNOLOGY中南林业科技大学课程实训报告课程:多媒体技术及应用姓
5、名:朱军学号:20094204专业:计算机科学与技术指导教师:陈宇拓日期:2011年6月21日实训题目一利用编程实现动画时钟一.课程设计目的:希望通过本次课程实训设计能够对多媒体编程有个大致了解熟悉使用一些常用的多媒体编程中常用到的函数插件等等二.设计方法:主要采用vb6.0在windows平台下实现编程。三.实训步骤1.打开vb6.0新建一个项目选择标准EXE.2.新建一个窗体在窗体中加入timer控件设定interval900.3.双击进入代码编辑区输入以下代码编写时钟表盘效果。4.整体效果运行预览。四、算法用Lo
6、ad命令建立原始Line控制的14个拷贝(因为表盘有12个点和时、分、秒共15个Line),该控制数组每一个实例的端点坐标属性设置为每条线在时钟表盘上的适当位置。这些拷贝中大多数只放置一次,而3个Line控制每秒钟更新一次,产生时钟指针移动的感觉。五、程序代码如下OptionExplicitConstPI=3.1415926DimBaseXAsInteger,BaseYAsInteger,RAsIntegerDimr1AsInteger,r2AsInteger,r3AsIntegerPrivateSubInit()Di
7、miAsIntegerBaseX=Me.ScaleWidth/2BaseY=Me.ScaleHeight/2R=IIf(BaseX>BaseY,BaseY*0.8,BaseY*0.8)r1=R*0.2r2=R*0.1r3=R*0.05Fori=0To360Step6IfiMod30=0Then'时Me.DrawWidth=2DrawLineBaseX+(R-3)*Sin(i*PI/180),BaseY-(R-3)*Cos(i*PI/180),BaseX+(R-8)*Sin(i*PI/180),BaseY-(R-8)*C
8、os(i*PI/180),3Else'分Me.DrawWidth=2Me.PSet(BaseX+(R-3)*Sin(i*PI/180),BaseY-(R-3)*Cos(i*PI/180))EndIfNextMe.DrawWidth=1Me.Circle(BaseX,BaseY),REndSub'绘制指针PrivateSubDraw
此文档下载收益归作者所有