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

利用VB进行多媒体程序设计初步

HTML文档下载 WORD文档下载 PDF文档下载
利用VB进行多媒体程序设计初步
VB(Visual Basic)具有很强的多媒体处理控制功能,VB的多媒体控制MCI(Media control interface)包括一套控制音频和视频设备但具有与设备无关的命令,用它来进行多媒体设计是很方便的。比如:你也许想拥有一个自己编写的CD播放器,那么利用VB的MCI只需写几行代码就可生成一个功能比较齐全的CD
播放器。下面简单谈谈用VB的MCI进行多媒体设计的初步知识并给出一个非常简单的CD播放器的例子。
在使用MCI之前必须安装好多媒体设备如声卡、CD—ROM等以及这些设备的驱动程序,否则MCI将不听指挥。

一、MCI控制的安装
MCI控制在VB不同版本中的安装方法是不一样的。在VB 3.0专业版中,MCI控制文件为MCI.VBX,在VB 4.0中MCI控制文件为MCI16.OCX(16位)、MCI32.OCX
(32位)。一般情况下MCI控制在启动VB之后并没有加入到工具箱中(TOOLBOX),需要自己动手安装它。

1.VB 3.0中MCI的安装。打开VB的FILE菜单,选择Add File项,从Windows\system目录下找到MCI.VBX,选择OK即可,这时你将发现TOOLBOX最后又多了一个工具,这就是MCI。如果你经常要用它,建议在VB目录下找到Autoload.mak 文件,用字处理软件打开它,把MCI.VBX添加在其中,这样每次启动VB时就将其自动调入。

2.VB 4.0中MCI的安装。VB 4.0支持16位和32位两种系统,在WINDOWS 3.1下只能使用16位系统。MCI不能和VB 3.0中一样用Add File调入,如果你这样做将会发现系统提示错误,需在Autoload.mak文件中调入。笔者打开Autoload.mak文件后发现调用格式为:OBJECT={序列号}#1.0#0;文件名,不知道MCI16.OCX的序列号是无法安装的。幸好在VB目录下的子目录SAMPLE下有一个MCI的子目录,进入它可以看到有一个MCITEST.MAK文件,打开它可以看到有:Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.0#0;MCI32.OCX一行(也许您的序列号不一定和这相同),将这一行复制到Autoload.mak文件中即可。由于本人使用的是WINDOWS 3.1,在安装VB 4.0时32位系统无法装入,硬盘中根本没有MCI32.OCX文件,VB何以将MCI32.OCX调入呢?经试验发现VB以序列号选择文件,可能上述序列号是MCI16.OCX文件的序列号,进一步试验发现即使将序列号后面的MCI32.OCX去掉也可调入,这进一步说明了VB 4.0中一个OCX文件有一个对应的序列号,因此绝对不能改变序列号,否则将无法正确调入所
需的文件。MCI 安装完毕,用鼠标双击工具箱的MCI图标,如果在Form中出现9个熟悉的按扭,那么安装就成功了。

二、MCI的属性和事件
MCI提供许多关于MCI控制方面的属性和事件。比较常用的属性有:
Button visible 决定该按钮在MCI控制中是否可见。
Command 要执行的MCI命令,如Open Close Play Stop Eject等。
Device Type 要打开的MCI设备类型,如动画播放设备、MIDI序列发生器、激光视盘机、WAV文件播放器、录相机等。
Filename 使用Open命令打开或Save命令保存的文件名。
Length 确定一个文件或CD唱片的长度。
Track 指定特定的轨道,供Tracklength和Trackposition使用。
Tracks 当前MCI设备的轨道数。
Tracklength 在当前时间格式下,传回Track所指轨道的时间长度。
Trackposition 在当前时间格式下,传回Track所指轨道的起始位置。
Visible 决定在运行时刻多媒体MCI控制是否可见。

比较常用的事件有:
Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件,
每一个Buttonclick事件缺省执行一个MCI命令。
Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送。
Statusupdate 这个事件可监测目前多媒体设备的状态信息,比如用滚动条来表示当前轨道的位置。详细的属性和事件的用法请参看控制帮助文件。

三、CD播放器的例子
对初学者来说,能利用入门知识编写一个的成功小程序是很鼓舞人心的,下面我们来编写一个非常简单的例子:迷你CD播放器。在MCI调入Toolbox之后,双击MCI工具,将会在Form中出现9个按钮,用鼠标移动这些按钮至合适的位置,然后双击Form窗体,把下面的代码加入到事件中:

Sub Form_Load()
MMControl1.DeviceType = “CDaudio" 'MCI设备类型为CD唱片
MMControl1.Command = “open" '打开设备
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl1.Command = “close" '退出时关闭MCI设备
End Sub
保存文件,在CD驱动器中放入一张CD唱片,然后运行,你将发现九个按钮中Prev、Next、Play、Eject四个按钮变黑(有效状态),点一下Play按钮,音乐出来了!若驱动器中无CD盘则所有按钮都处于无效状态。这样一个简易CD播放器就完成了,它具有四种功能,但自己动手写的代码只有上面加注释的三行。这个CD播放器有点太简单了,下面就看你的了,你可以加入一些文字信息如开发时间、作者、版权等,再进一步学习MCI可加入其他功能如显示播放时间、曲目等。
专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 《近匠》融云,自主研发真正“不丢消息”的IM云服务 【CTO讲堂】听云CTO Wood:APM实现原理及对IT和产品运营的价值 从7个维度浅析虚拟现实Alpha年 Maker Faire上的微软:将技术与工具带给Maker才是关键 友盟2015年Q1移动互联网报告:车联网App崛起 多面编程语言Scala NEC高可用集群软件EXPRESSCLUSTER X3.3面向中国市场正式发布 【探秘ES6】系列专栏:模版字符串 专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 Qualcomm拥抱创客文化:如何基于DragonBoard 410c创造和创业? 【探秘ES6】系列专栏:剩余参数和默认参数 专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联·云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 java界面控制 求一用php实现压缩/解压缩的程序. 请问在WORD200中有什么好的方法在下划线中输入文字,而下划线不随字体而改动? Excel中保护工作表? 请问使用16倍速的刻录机能刻32倍速的盘吗 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 一个使用用户空间控制流程的问题,望各位帮忙解答,小弟感谢不尽,在线等待 iis 为啥总出现 "the special module not found"(补充) 菜鸟问题---applet中的Runable方法, 紧急求助 装机:双敏的UKT400N主板性能怎么样?有啥缺点?适合超频吗? 请问vc编制数据库问题:如何读写binary字段 Chinajiji,看过来!多谢惠寄ISO/IEC 14882 请教各位高手用replace函数替换字符串时如何将颜色也变掉 SQL7.0备份的数据库如何在SQL2K中恢复? 如何改变编译出来的.exe文件的名称 谁有这样的矢量图设计系统例程可以参考参考? 谁有AVL树的代码呀。大家来讨论AVL树呀。呵呵 Maya 新手 哪位大侠能提供矢量图设计的例程! 请高人指点这个题目该怎么解决? 打包打包~~~~~什么是打包?? 多文件上传,一个很奇怪的现象! revalidate();怎样用? 怎樣得到系統的所有根目錄(如 C:,D:,E:),及根目錄下的所有子目錄. 求将excel文件导入notes数据库的方法(最好有例子),分不够可以再给! 小弟欲购编程器,各位大侠给点意见,大分相送,绝不亏待! 100分求教 如何访问远程数据库???? 荒漠中生活的骆驼刺,它的根扎的很深,这是对什么环境条件的适应( )我很急啊``````````````` 京瓷复印机8030这款机器怎么样? 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样谢 用一根铁丝,可以围成一个边长为六分米的正方形,如果用这根铁丝围成一个长方形(长和宽都是整分米数),那么有多少种围法?每种违法的面积是多少 有时听到中东地区,亚太地区,这些地区是怎样划分的?地球上还划分有哪些地区?您有划分的图片吗? 三角形+三角形+三角形—圆形—圆形=75 圆形+圆形+圆形—三角形—三角形=5 三角形=?圆形=? 在干旱的沙漠中,骆驼刺地下的根比地上的茎长很多,造成这种现象的主要非生物因素是? 室温25度时,1千克水,水温从室温下降到0度,所需能量是多少?最好提供计算公式 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样拜 工作中写请假条该怎么写? 建筑电气中NHW-4*150-CT/SC150 已知三角形与圆形的重合部分占三角形面积的5分之1,占圆面积的9分之2求三角形与圆的面积比.热求 快 在录制一段音频时,仅提高量化位数将怎么样在录制一段音频时,仅提高量化位数将( )(A)降低该音频的音质,减少存储容量(B)降低该音频的音量,对存储容量不产生影响(C)提升该音频 问一下建筑电气设计中ZR-YJV-4*185+1*95-SC150-FC是什么意思啊?还有Vigi NSE 400N 4P/350 EL ,Vigi 500mA,0. My parents are b____English teachers 乐在其中 作文 600字以上 一个球场长50米,宽20米.把它画比例尺是1:500的图纸上,长和宽应该画多长? 翻译 地震使整个城市成为一片废墟.(用in ruin) 关于音频保真度与量化位数的问题某用户要录制一段音频,采用下列采样频率和量化位数,能使该音频保真度最高的是(A)44.1kHz,8bit (B)44.1kHz,16bit(C)44.1kHz,24bit (D)44.1kHz,32bit求详解.知道 一个球场长50米,宽20米,把它画在比例尺是1/500的图纸上,长和宽各画多长? 英语翻译十万火急!一小时内... 音频中的量化比特数的含义视频中的量化比特数是决定每个像素颜色的种类但是音频中音色是由频率决定的啊?那量化比特数决定什么? 以《我乐在其中》为题写600字的作文!(最好写关于过年的) 辛亥革命征文比赛 800字 乐在其中作文600字 二次函数配方y=-x2+x+1如何配方? “几乎一片废墟”用英语怎么说? 请假条回家本人请假回家几天写仿请假条 BLOOD-C文人为什么要和小夜打赌 玉树地震发生后,许多人被困在废墟下面.翻译成英语怎么说. 想回家请假条怎么写 运动会加油词咋写 ? 自己丰富才能感知世界的丰富,自己善良才能感知世界的美好,自己坦荡才能逍遥地生活 请假条的写法奶奶去世 运动会的加油词怎么写 英语翻译谢谢聪明的人帮我翻译下,不要啰嗦的, 延字共有几画,第四笔是什么,用音序查字法先查什么 关于勤奋的话题作文 【歪批译吧】自己丰富才能感知世界的丰富英文 “戈”下面一个“鸟”怎么念? 哪个洲的国家最多,哪个洲国家最少,哪个州没有国家 通过函数提取将学号转变为班级学号的3、4位代表班级,01代表1班,02代表2班,03代表3班,怎么用函数来提取并转换成文字呢? 不计热量损失,将80千克的水从30度加热至90度,需要多少度电?为什么加热到60度和90度的水用的电一样? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件,恰好有1件是次品的抽法有多少种?要求有过程.快! 林老师骑自行车从甲地到乙地,第一小时行了全程的3分之1,第二小时行了全程4分之1这时离哋还有20km甲、乙两地相距多少千米? 中东是属于哪个州的啊? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件恰好有1件是次品的抽法有多少种 8、某班48位同学参加一次跳绳测验,在规定时间里,最多的跳了175次,最少的跳了160次.那么,在该班中至少 一段路程为s,一辆车在通过前2/3s的速度为v1,通过后1/3s的速度为v2,则汽车在全程的平均速度是( ) 二次函数怎么配方 东周的都城是? 第九届全国创新英语大赛怎么翻译 养龟所必备的仪器,什么加温棒什么的? 初三几何圆与三角形AD是ΔABC的角平分线,以D为圆心,AD为半径作⊙D交AB于E,交AC于F,AD=AE=2,BE=1,求AC的长 1:2000的平面图怎么换算,图上距离是15厘米,换算出来是多少米. 加热棒100W一个小时耗电是多少度或者是一天耗电多少度 问三角形是多少,圆形是多少 什么歇后语形容身在危险中却毫不知情 女同学的力气比男同学小,用数学上可能性的观点回答:是一定还是可能 三角形的个数是圆形的4分之5三角行有多少个? 国务院部署推进公司注册资本登记制度改《我是特种兵之火凤凰》演员拍摄搞笑花不留遗憾,5对老夫妻补拍婚纱照美对华钢铁产品发起贸易救济调查宁波市环境空气质量优良率在浙江省排名发改委官员:我国城市群交通存在三大问工业利润增势保持稳定但增长基础仍然脆廊坊数百学生不满校园管理聚集抗议 官俄媒:俄中简化边界海关检查体现两国高医改网站技术问题百出 奥巴马上教堂也上海自贸区基本运行制度创新框架已建立收入分配改革有望三中全会后推进 提低林毅夫:中国经济仍有20年年增长8%女大学生为照顾瘫痪母亲休学 喂饭端尿袁隆平赴武大演讲 因场地问题仅持喇叭三中全会将推“空前”改革首瞩目纽约华裔因“眼红”杀害表哥一家五口被奥巴马夫妇携女儿做礼拜 一家服装两风美媒:美是全球不多的超级大国 不得不16名沙特女性因驾车挨罚 引集体抗议新闻集团窃听丑闻将开审 或付出16亿交通网络建设提速 拉升增城物业价值河北省人民医院获省卫生系统首个园林式石家庄900名女教师听“幸福园丁 健城管立法有需要 新设部门没必要15家医疗机构被暂缓校验禅城工商推政务微信招聘“男性优先”也是性别歧视?三四十岁女性成宫颈癌患者主体深圳大学港澳台生 到校率仅三成明日女士去多个景区享门票优惠上市家居企业看好2014年欠款收不回 女子怒烧 朋友摩托车余秋雨推新版《文化苦旅》 回应“余孽献血使人更健康长寿穗4531套公租房都在中心城区女人是流动的六十年砥砺前行 六十年春华秋实明起南国丝都可以摘桑葚相亲维权请保姆 网上“娘家”帮你忙外地客钻空子买楼风险高姜杰:中国首个四级火箭2014年第四
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘