当前位置：文档之家 › 用VB实现队列播放MP3

用VB实现队列播放MP3

  • 格式：doc
  • 大小：28.50 KB
  • 文档页数：2

用VB实现队列播放MP3

出处：网络

队列播放MP3就是在文件列表框中一次选择多个MP3文件，让播放程序顺序地播放选择的MP3文件。这是一般的MP3播放器都有的功能，如何在VB程序设计中来实现队列播放MP3的方法呢？

首先介绍一下程序中要用到的MediaPlayer控件。它不是VB的标准控件，而是Windows操作系统自带的一个多媒体控件。大家可以在VB开发环境中的单击“工程”→“部件”对话框中，添加MediaPlayer控件。如果要播放MP3，则至少要6.01以上版本的MediaPlayer控件(Windows98中自带的就是这个版本)。如果在部件对话框中找不到MicroSoft

Mediaplayer Control，那可能是你没有安装附件所致，这需要在系统中安装相应的附件。

正因为使用了Windows自带的控件，所以编出的程序的可移植性很好，更为重要的是，MediaPlayer控件可以播放包括AVI、MOV、WAV、MPG、MP3、M3U、QT等等在内的28种多媒体视频、音频格式的文件，可谓功能强大。

这个程序正是利用了MediaPlayer控件可以播放MP3和M3U文件的特性来实现队列播放MP3的。我再说一下M3U文件，这种文件实际上是ASCII码文件，如果你用记事本打开它，就可以发现文件的内容实际上就是多媒体文件的地址列表，能够播放它的程序会顺序播放文件里列出的多媒体文件。

下面就是程序的实现步骤：

首先建立一个新窗体Form1，添加DriveListBox，DirListBox，FileListBox各一个，Caption属性分别设为Drive1，Dir1和File1，再添加CommandButton以及MediaPlayer控件各一个。然后编写代码如下：

Option Explicit

Private Sub Command1_Click()

Dim num As Integer

Dim filename As String

Dim filenum As Integer

Dim i As Integer

num=File1.ListCount

filenum=FreeFile

Open ″C:\filelist.m3u″ For Output As ＃filenum

For i=0 To num－1

If File1.Selected(i) Then

filename=File1.Path＋″\″＋File1.List(i)

End If

Print ＃filenum，filename

Next

Close ＃filenum

MediaPlayer1.filename=″C:\filelist.m3u″

End Sub

Private Sub Dir1_Change()

File1.Path=Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drive1.Drive

End Sub

程序在Win98系统中调试通过。使用的时候只要选好MP3歌曲所在的文件夹，在文件框中用Shift或Ctrl键选择多个文件即可实现队列播放。

合集下载

用VB编程模拟内存固定分区分配

用VB编程模拟内存固定分区分配

・研究开发・・・・・・　电脑知识与技术　

用ＶＢ编程模拟内存固定分区分配　

王学军　

（宿迁学院计算机科学系，江苏宿迁２２３８００）　

摘要：存储器是计算机系统的重要组成部分。近年来，随着计算机软件规模的不断扩大，系统对存储器尤其是内存的要求也越来越　

高，操作系统如何对它加以有效管理，最大限度地发挥内存这种宝贵而又紧俏的资源至关重要。事实上，操作系统对内存的分配方式有多　

种，不同的方式特点不一，但由于内存分配是看不见的，不易增加学生的感性认识。为此，采用ＶＢ编程，模拟内存的固定分区分配，可以　

使学生能通过图形化的分配界面．加深对内存分配原理的理解。　

关键词：操作系统：内存分配：ＶＢ编程　

中图分类号：ＴＰ３１　１　文献标识码：Ａ　文章编号：１００９—３０４４（２００６）２０—０１６６—０１　

Ｕｓｉｎｇ　ＶＢ　ＰｒＯｇｒａｍｍｉｎｇ　Ｍｅｔｈｏｄ　ｔｏ　Ｓｉｍｕｌａｔｅ　ｔｈｅ　Ｆｉｘｅｄ　Ｐａｒｔｉｔｉｏｎ　Ａｌｌｏｃａｔｉｏｎ　ｏｆ　Ｍｅｍｏｒｙ　

ＷＡＮＧ　Ｘｕｅ－ｊｕｎ　

（ＳｕＱｉａｎ　ＣｏＨｅｇｅ　Ｄｅｐａｒｔｍｅｎｔ　ｏｆ　Ｃｏｍｐｕｔｅｒ　Ｓｃｉｅｎｃｅ，Ｓｕｑｉａｎ　２２３８００，Ｃｈｉｎａ）　

Ａｂｓｔｒａｃｔ：Ｍｅｍｏｒｙ　ｉｓ　ｔｈｅ　ｉｍｐｏｒｔａｎｔ　ｃｏｎｓｔｉｔｕｅｎｔ　ｐａｒｔ　ｏｆ　ｃｏｍｐｕｔｅｒ　ｓｙｓｔｅｍ．Ｉｎ　ｒｅｃｅｎｔ　ｙｅａｒｓ，ａｌｏｎｇ　ｗｉｔｈ　ｃｏｍｐｕｔｅｒ　ｓｏｆｔｗａｒｅ　ｓｃａｌｅ　ｕｎｃｅａｓｉｎｇ　ｅｘｐａｎ－　

ｓｉｏｎ，ｔｈｅ　ｃｏｍｐｕｔｅｒ　ｓｙｓｔｅｍ　ｔＯ　ｍｅｍｏｒｙ　ｉｎ　ｐａｒｔｉｃｕｌａｒ　ＲＡＭ　ｒｅｑｕｉｒｅｍｅｎｔｓ　ａｒｅ　ａｌｓｏ　ｍｏｒｅ　ａｎｄ　ｍｏｒｅ　ｈｉｇｈ．Ｈｏｗ　ｄｏｅｓ　ｔｈｅ　ｏｐｅｒａｔｉｎｇ　ｓｙｓｔｅｍ　ｐｅｒｆｏｒｍ　ｔＯ　ｉｔ　

ｖａｌｉｄｌｙ　ｔＯ　ｃｏｎｔｒｏｌ，ｉｎａｘｉｌｎｕｍ　ｌｉｍｉｔ　ｄｉｓｐｌａｙｓ　ｔｈｉｓ　ｋｉｎｄ　ｏｆ　ｐｒｅｃｉｏｕｓｌｙ　ａｎｄ　ｓｃａｒｃｅ　ｒｅｓｏｕｒｃｅ　ｉｓ　ｖｅｒｙ　ｉｍｐｏｒｔａｎｔ．Ｉｎ　ｆａｃｔ，ｔｈｅ　ｏｐｅｒａｔｉｎｇ　ｓｙｓｔｅｍ　ｈａｓ　ｍａｎｙ　

用VB模拟实现短进程优先调度算法

用VB模拟实现短进程优先调度算法

１５６　福建电脑　２００６年第１２期　

用ＶＢ模拟实现短进程优先调度算法　

宋秀芹，张学军　

（德州学院计算机系山东德州２５３０２３）　

【摘要】：本文介绍了利用ＶＢ模拟实现短进程优先（ｓＰ　调度算法的方法，并给出相应的源代码程序。　

【关键词】：ＶＢ短进程优先模拟　

操作系统中的处理机调度算法很抽象．学习者很难想象处　

理机是如何按调度算法去调度进程的　本文正是模拟处理机调　

度中短进程优先（ＳＰＦ）调度算法的调度的过程。它将课本上的抽　

象描述转化成了动态的演示，使处理机的调度过程更加直观．能　

引起学习者的兴趣　

１．短进程优先调度算法介绍：　

短进程优先调度（Ｓｈｏｕｔｅｓｔ　Ｐｒｏｃｅｓｓ　Ｆｉｒｓｔ　Ｓｃｈｅｄｕｌｉｎｇ简称　

ＳＰＦ）算法，优先考虑进程的服务时问，每次总是在就绪队列中选　

择一个服务时间最短的进程进行调度．并将处理机分配给此进　

程。系统若采用非抢占式调度算法，则使其立即执行并一直执行　

到完成或因等待事件发生而阻塞放弃处理机时为止：若采用抢　

占式调度算法．如果有新的进程进入就绪队列．词度器就会被触　

发．而且新进程的服务时间比现行进程的剩下的服务时间短．这　

时正在执行的进程会被中断．并由新进程取得ＣＰＵ的使用权。　

本文实现的是非抢占式ＳＰＦ调度算法　

２．用ＶＢ模拟短进程优先调度算法的思路　

用随机产生的字母串代表进程．共有５个进程，每个进程产　

生时间．长度各不相同。　

首先定义了一个用户白定义类型ｓｐｆｔｙｐｅ，其中各成员分别　

代表每个进程的进程序列号，到达时间，服务时间，开始服务时　

间，完成时间．周转时间以及带权周转时间。　

ＣＰＵ处理进程是从第一个进程开始的　由于采用的是非抢　

占式调度算法。则第一个进程处理完毕后有如下几种情况：　

（１）第二个进程没有产生，则ＣＰＵ处于等待状态。　

（２）第二个进程已经产生．但是第三个进程没有产生，ＣＰＵ　

顺序执行第二个进程　如果依次执行第ｎ个进程完毕后．第ｎ＋１　

个进程产生．第ｎ＋２个进程尚没有产生．则短进程则自然演变成　

利用VB建立鼠标键盘操作回放

利用VB建立鼠标键盘操作回放

利用VB建立鼠标键盘操作回放

很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用 了Windows的Hook函数。本文介绍如何通过使用VB来实现鼠标键盘操作的纪录和回放。Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows消息，函数语法为：

Public Declare Function SetWindowsHookEx Lib "user32" _

Alias "SetWindowsHookExA" _

(ByVal idHook As Long, _

ByVal lpfn As Long, _

ByVal hmod As Long, _

ByVal dwThreadId As Long) As Long

其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消

息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为：

Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;

其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样

一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。

在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。

WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠

WinCC上可以很方便的编写VB脚本和C脚本

WinCC上可以很方便的编写VB脚本和C脚本

..

. .. . .

S. . . . . .. WinCC上可以很方便的编写VB脚本和C脚本，但是调试起来还是比较费劲的。下面介绍一下个人的应用体会。

1，VB，最好安装VB6，先在VB6里面编写程序，然后再放到WinCC的脚本中，事半功倍，毕竟VB的调试非常方便。

a，插入引用

注意选择OLE Automation 和WinCC *****；

b，可以直接在VB里面调用WinCC的全部变量，部，外部全可以：

如下： ..

. .. . .

S. . . . . ..

c，在VB里面监视WinCC的变量：

d，调试完毕，程序拷贝到WinCC 的脚本中。

2，C语言

系统提供了一个应用程序窗口，如下，只要把他拖到画面窗口即可：

..

. .. . .

S. . . . . ..