哪个播放器可以看百妖谱?

来自:    更新日期:早些时候
多媒体编程技术--------制作音乐播放器~

最佳答案其实 网上有很多 关于类似的开发源代码,我给你找一些资料吧。。在VB中使用MCI指令设计多媒体程序湖北赵军 《VB多媒体程序设计》一文详细的介绍了VB中多媒体控件MCI.VBX的用法。用MCI.VBX控件可以非常方便,快捷的制作出一个多媒体作品。其固然好,但MCI.VBX控件的控制界面有些太"古老",能不能自己做一个精美的控制界面?另外,有时程序中只想放声音而已,用MCI.VBX感觉有"杀鸡用宰牛刀"的味道,有没有"杀鸡刀"可用?答案都是肯定的。那就是Windows为多媒体程序的设计提供的标准多媒体控制接口,即 MCI(Media Control Interface)。 MCI接口 MCI覆盖了音频、视频、影片、激光视碟机、和录像机的多媒体的主要产品,够满足大多数多媒体应用程序的需要。对于标准设备安装相应的Mci Driver,Windows即可对此进行访问操作,对于非标准设备如果它提供MCI Driver,可以直接从平台发出MCI命令对之进行操作。因此Windows对MCI标准的支持可使Windows能够支持所有符合MCI标准的设备。其突出的优点及设备无关性,要更换设备是只要更换相应的MCI Driver,应用系统无需修改即可操作新的设备。MCI设备 应用系统通过指定一个MCI设备的类型区分设备,由于前几期已有文章介绍了已定义的设备类型,这里就不再叙述了。Windows3.x API中MCI函数 MCI指令有两种风格:命令-字符串接口(Command-String Interface)和命令-消息接口(Command-Message Interface)。Windows API中提供了三组MCI函数(全以mci词首开始)。Command-String Interface MciSendString()Mciexecute()Command-Message Interface MciSendCommand()MciGetDeviceID()CSI And CMI Mix Interface MciGetErrorString()McisetYieldProc() (VB中不支持)MCI指令还有其相对固定的格式,即:Command Device_Name Arguments[Wait][notify]Command:要使用的MCI指令,如Play等。Device_Name:设备名称或文件名,如cdAudio等。Argements:参数。例如:Play cdAudio Wait。VB MCI编程实例 播放声音文件(wav,midi) 播放声音文件最简单的函数是(2)组中的mciExecute(),他只需传递一组字符串即可。在VB Moudel中声明为:DECLARE FUNCTION MCIExecute Lib "MMSystem"(ByVal CommandString As String)As Integer好了!现在只需在你的程序里加入:Result%=MCIExecute("Play C:\windowsata.wav")就可以听到美妙的声音了。但这个函数的功能似乎是太简单了,例如不能返回字符串等。下一步我们来试一试MCISendString()这个函数来播放放声音文件,MCISendString()函数在VB Moudel中声明为:Declare Function mciSendString Lib "MMSystem"(ByVal lpstrCommand As String,lpstrString As Any,ByVal wRtnLenght As Integer,ByVal hcallback as Integer)AS Long (windows 3.X)Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long(windows 95)其中第一个参数是告诉MCI所做的事情;第二个参数为该函数返回的字符串信息:第三个参数是用于存放返回的字符串的缓冲区的大小:第四个参数用于建立一个调用返回参数,在VB中为"0"。接下来就可以用MCI指令做事情了,播放声音文件的一些常用的MCI指令如下表:MCI指令 功能参数 OpenPlayPauseResumeSeekRecordSaveStopClose 打开声音文件播放声音文件暂停恢复搜索指定位置开始录音保存当前文件停止关闭声音文件 Alias 表示打开声音文件的别名From start_time to end_time 通常以秒为单位 To position ,to start,to end开始录音后必须保存文件 读者只需按照上表的命令,在使用MCIsendString函数即可播放文件了,这里就不给例子了。播放CD音频(Cdaudio) "虽然有一些强大的CD播放器,但我还是喜欢自己动手来做一个,哪怕是最简单的",只是每一个初学编程的人都想做的事,现在让我们来把梦想变成现实,来制作一个简单的播放器。源程序如下:声明部分:Option ExplicitDeclare Function mcisendstring Lib "MMSystem" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal wReturnLength As Integer, ByVal hCallback As Integer) As LongGlobal Result As IntegerGlobal ReturnString As String * 128程序部分:Sub Command1_Click ()result = mcisendstring("play CDAudio", returnstring, 1End subSub Command2_Click ()result = mcisendstring("pause CDAudio", returnstring, 127, 0)End SubSub Command3_Click ()result = mcisendstring("stop CDAudio", returnstring, 127, 0)result = mcisendstring("close CDAudio", returnstring, 127, 0)End SubSub Command4_Click ()result = mcisendstring("stop CDAudio", returnstring, 127, 0)result = mcisendstring("close CDAudio", returnstring, 127, 0)result = mcisendstring("set CDAudio door open", returnstring, 127, 0)End SubSub Form_Load ()result = mcisendstring("close CDAudio", returnstring, 127, 0)result = mcisendstring("open CDAudio shareable", returnstring, 127, 0) '以共享的方式打开If result 0 ThenMsgBox "不能打开CDAudio设备!", 16, "错误"EndElseresult = mcisendstring("status CDAudio number of tracks", returnstring, 127, 0)Label4.Caption = Left$(returnstring, InStr(returnstring, Chr$(0)) - 1)'清除多余的字符result = mcisendstring("status CDAudio current track", returnstring, 127, 0)CurrentTrackNumber = Left$(returnstring, InStr(returnstring, Chr$(0)) - 1)'得到当前的歌曲号result = mcisendstring("status CDAudio length track " & CurrentTrackNumber, returnstring, 127, 0)label6.Caption = Left$(Left$(returnstring, InStr(returnstring, Chr$(0)) - 1), 5)'得到当前的歌曲时间End IfEnd Sub以上程序在Windows 3.x vb3.0中通过,在32位 Windows中只需改变MciSendstring()声明即可。Video 视频(AVI) 我每当看一张多媒体光盘时,都会被其中的一些数字电影所折倒。现在有了MCI我们也可以播放AVI动画了,并且并不他们的差。其源程序如下:VERSION 5.00Begin VB.Form AVI Appearance = 0 'FlatBackColor = &H00FFFFFF&Caption = "AVI播放器 "ClientHeight = 2700ClientLeft = 3105ClientTop = 3405ClientWidth = 4710ForeColor = &H80000008&LinkTopic = "Form1"PaletteMode = 1 'UseZOrderScaleHeight = 180ScaleMode = 3 'PixelScaleWidth = 314WindowState = 2 'MaximizedEndAttribute VB_Name = "AVI"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As LongPrivate Sub Form_Click()PlayVideo "f:\2.avi", AVI.hWndEndEnd SubPrivate Function Mcistring(commandstring As String) As StringDim returnstring As String * 256Dim dummy As Integerdummy = mciSendString(commandstring, returnstring, 255, 0)Mcistring = returnstringEnd FunctionPrivate Sub PlayVideo(FileName As String, ByVal hWindow As Integer)Dim commandstring As StringDim pstring As String * 255'打开AVI设备commandstring = "Open " & FileName & " alias AVI"pstring = Mcistring(commandstring)'设置输出窗口commandstring = "Window AVI handle " & Str$(hWindow)pstring = Mcistring(commandstring)'定义全屏commandstring = "Put AVI destination at 0 0 640 480"'读者不妨试试改改字符串中0 0 648 480 几个字符,你会大吃一惊的!但要注意字符之 间要有空格。(显示模式为:640*480) pstring = Mcistring(commandstring)'播放AVIMousePointer = 11commandstring = "Play AVI wait "pstring = Mcistring(commandstring)MousePointer = 0'关闭AVI设备commandstring = "Close AVI"pstring = Mcistring(commandstring)End Sub以上程序也只是用到了MCI指令的一小部分,但是实现功能却很强大,写到这我们不能不感谢Microsoft的程序工程师们!(VB5.0 Windows 95中通过,在Windows 3.x中只需改变声明即可,但必需按装Video For Windows。)五、结束语 Windows强大的MCI为多媒体的程序设计开辟了广阔的天地,如果我们灵活应用它,可以作出一个不错的多媒体程序。由于篇幅有限,在加上本人能力有限,关于Windows API的MciSendCommand()函数本人尚未完全掌握,有兴趣的读者可参考有关书籍。

《》近年来,随着课改的不断深入,现代教育技术,尤其是多媒体技术越来越多地运用于教学实践,对音乐教学产生了巨大的影响。多媒体技术在音乐课堂中的运用在给传统音乐课堂教学带来冲击与变化的同时,也为音乐教师打开了一条音乐教学改革的新路。《义务教育音乐课程标准》中明确提出:“以信息技术为代表的现代教育技术极大地扩展了音乐教学的容量,丰富了教学手段和教学资源,在音乐教育中有着广阔的应用前景,教师应努力掌握现代信息技术,利用其视听结合、声像一体、形象性强、信息量大、资源宽广等优点为教学服务。”在新课程标准的要求和启示下,多媒体教学已经成为我国当前各教学领域不可缺少的部分,多媒体课件以其画面丰富、声形并茂、生动有趣等特点,广泛运用于课堂教学中,在音乐课堂里,其优越性更是不容置疑的。但是,在音乐教学中多媒体技术得到大量运用的同时,也存在着一些误区,而这些误区的存在在客观上已经开始影响它正确运用的方向,制约其进一步、深层次的发展。多媒体仅仅是教学活动中工具和手段,教师必须从教学系统的整体出发,不能“画蛇添足”为了使用多媒体而用多媒体,我们对待音乐课堂中多媒体课件的作用,就像一首歌里唱得那样“想说爱你不容易”。要认真研究如何恰到好处地运用课件,让它在课堂教学中起到“画龙点睛”的作用,以期达到事半功倍的教学效果。在教学实践中,我认为在解决重点问题和对待难点问题的突破中才能真正体现它的价值,如使抽象的概念具体化,复杂的关系简单化,难以想象的问题直观化。在一次专题活动中,我听到了关于对多媒体教学的另一种评价:这是一次优质课评比。几乎每一堂比赛课都用上了多媒体电教手段,这无疑对我们的教学起到了辅助、丰富和深化的作用。但在这些课上,我看到不少老师忙于操作电脑而缺乏了与学生的合作交流,把学生的思维限制在课前设置好的一幅幅画上、一个个程序之中,教学的灵活性显得不够。这是否走进了误区?这是否有滥用多媒体的倾向?多媒体虽然可以激发人们的学习热情、可以用具象来表示抽象,但是多媒体也可能剥夺了学生想象的空间,从而造成学生更大的依赖。透过这些现像,我就的问题从以下几方面谈谈自己的观点。 —、正确认识多媒体技术 根据音乐新课程理念对教师的要求,对现代教育技术的学习和掌握是音乐教师的一项重要基本功。从音乐教师发展的角度来看,掌握多媒体教学手段将是音乐教师所必需的素质。随着现代教育技术的进一步发展和完善,随着计算机知识的普及和广泛地使用,多媒体运用能力必将与学科运用能力相整合,将音乐学习和音乐教学同现代教育技术的结合提升到一个新的水平。 多媒体技术的运用不仅突破了传统音乐教学在时间、空间和地域上的限制,有利于音乐审美情境的创设,为师生的音乐情感体验提供了条件和环境,而且具有很强的人机交互能力,因此有利于改变以往那种以教师为中心的传统音乐教学模式,将教师与学生的主动性充分调动起来。特别是对于学生来说,多媒体技术为实现新的音乐学习目标提供了便利工具,为学生了解丰富多彩的音乐世界打开了大门,帮助学生组织、建构和完成多项音乐学习任务,能有效地发展学生的音乐思维能力。其应用使学生的学习方式由单一的课堂学习方式向多方式、多途径发展,学生不仅在课堂上通过多媒体辅助教学方式获取音乐知识,还可以借助于多媒体课件或信息,网络在计算机室或家中等场所朝进行个别化学习。 虽然多媒体技术在教学实践中得到了广泛的应用,但它也不是万能的,它也有其固有的缺陷,其中最突出的是它的机械性。音乐教育是一种情感教育,它讲究以情动人,因而它需要音乐教师的情绪投入,并要求教师能够对学生在活动中表露的情感进行具体的分析判断,并采取相应的措施。这些是多媒体技术所不能胜任的。 二、处理好教师与多媒体的关系 现代教学媒体的使用是教学现代化的一个标志,必然在教学领域里提出很多新的课题。在新的形势下作为教师必须保持积极的态度,迎接挑战重塑自我,努力学习现代教学理论,超越技术因素,提高使用现代教学媒体的能力和水平,进入教学艺术境界。这样,我们才能跟得上形势的发展,在教学领域里继续发挥能工巧匠主导作用。另一方面,随着教育技术的发展,也出现了一种过分夸大多媒体的作用的倾向,甚至认为教学机器可以替代教师的工作。这是一种十分错误的论调。现代化教学媒体,是教师开展教学活动的工具,只要积极主动去学习,人是能够掌握任何工具的。而教学机器是不可能替代教师的工作的,这是因为: (一)、现代教学媒体必须依靠教师精心设计,操作,才能发挥它的效能。例如:一年级的欣赏曲目《玩具兵进行曲》。全曲分为了三个片段,分别描述玩具兵在“游行”、“玩耍”、“回家”。虽然三个段落的音乐,无论是节奏感的表达还是音乐形象的描绘都很形象、生动。可是,对于一年级的小朋友来说让他们光听是不可能听懂的。于是根据孩子的年龄特点出发,在听片段音乐的过程中,我分别为这段音乐配上相应内容的vcd

百妖谱可以在哪个软件看 手机软件,主要指安装在智能手机上的软件,完善原始系统的不足与个性化。使手机完善其功能,为用户提供更丰富的使用体验的主要手段。

bilibili


网页链接




哪个播放器可以看百妖谱?视频

相关评论:
  • 18588828791哪个播放器可以看百妖谱?
    燕爬费百妖谱可以在哪个软件看 手机软件,主要指安装在智能手机上的软件,完善原始系统的不足与个性化。使手机完善其功能,为用户提供更丰富的使用体验的主要手段。

  • 相关主题精彩

    版权声明:本网站为非赢利性站点,内容来自于网络投稿和网络,若有相关事宜,请联系管理员

    Copyright © 喜物网