一个简单的MP3播放器

原创 2004年06月14日 17:23:00
利用API函数[mciSendString]可以轻松实现MP3音乐文件的播放。下面这段程序实现了MP3播放的大部分常规操作,对其稍加修改,做一个100KB大小的MP3播放器轻而易举

启动VB程序,在窗体上放置6个命令按钮,三个标签,一个公用对话框、一个进度条、一个状态栏和一个计时器,窗本的布置请参考附图

按钮"Open MP3 File"是用来打开对话框选择MP3文件,其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间;label2放在时度条的最左边,Caption属性为"00:00";lable3放在时度条的右边,用来表示歌曲总长。

下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As long

Dim mfn As String

下面就是各个对象的代码了:
Private Sub Form_load()
mfn=""
play.Enabled=False
pause.Enabled=False
Stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
Timer1.Enabled=False
Timer1.Interval=500
End Sub

Private Sub open_Click()
On Error Goto err
With CommonDialog1
.CancelError=True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action=1
stopplay_Click '停止按钮同时可以设备初始化
mfn=.FileName '这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled=True
End With
play_Click
Exit Sub
err:
End Sub

Private Sub play_Click()
On Error Resume Next
Dim t As Long
t=mciSendString("open " + mfn,0&,0,0) 'Open后边的空格一定不能丢
Dim ret As String * 128
t=mciSendString("status " + mfn + " length",ret,128,0)
'显示歌曲总长
ret=Left(ret,8)
If ret<>"" Then
ProgressBar1.Min=0
ProgressBar1.Max=Val(ret)
Label3.Caption=gettime(Val(ret))
End If
play.Enabled=False
pause.Enabled=True
stopplay.Enabled=True
back.Enabled=True
prew.Enabled=True
t=mciSendString("status " + mfn +" mode",ret,128,0)
'得到设备的当前状态,是播放还是暂停等等
ret=Left(ret,8)
StatusBar1.Panels(1).text=ret
'在状态栏显示播放状态
t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value),0&,0,0)
'开始播放
Timer1.Enabled=True
End Sub

Private Sub pause_Click()
t%=mciSendString("pause " + mfn,0&,0,0)
'发出暂停的命令
play.Enable=True
pause.Enabled=False
stopplay.Enabled=True
back.Enabled=False
prew.Enabled=False
End Sub

Private Sub stopplay_Click()
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
'停止播放
play.Enabled=True
pause.Enabled=False
stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
End Sub

Private Sub back_Click()
t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max/10)),0&,0,0) '向后跳一小段再播放
End Sub

Private Sub prew_Click()
t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max/10)),0&,0,0) '向前跳一小段再播放
End Sub

Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String * 128
t=mciSendString("status " + mfn + " position",ret,0,0)
'得到当前播放位置
ret=left(ret,8)
ProgressBar1.Value=Val(ret)
Label1.Caption=gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value=ProgressBar1.Max Then
stopplay_Click
End If
t=mciSendString("status " + mfn + " mode",ret,128,0)
ret=Left(ret,8)
StatusBar1.Panels(1).Text=ret
End Sub

Private Sub Form_Unload(Cacel As Integer)
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
End Sub

Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min,sec
min=position/1000
min=min/60
sec=min-Int(min)
min=Int(min)
sec=60 * sec / 100
sec=Int(sec * 100)
gettime=Str(min) + ":" + Str(sec)
End Function

图中5个控制按钮,其实是把字体设为"Webdings",让它们的Caption属性分别为"4" ";" "<" "7" "8"
就可以了

Java简单MP3播放器

MusicPlayer类 package com.play; import java.awt.BorderLayout; import java.awt.FileDi...
  • huahuaxingjing
  • huahuaxingjing
  • 2015年10月02日 11:06
  • 464

用JS+Html5实现一个简单的音乐播放器

1.HTML   标签定义声音,比如音乐或其他音频流。其主要属性有src:要播放的音频的 URL,controls:如果出现该属性,则向用户显示控件,比如播放按钮。   几个主要的标签如下: ...
  • lzc534650799
  • lzc534650799
  • 2017年03月29日 20:34
  • 3784

Android初步学习BroadCast与Service实现简单的音乐播放器

ctivity代码   view sourceprint? 001.package com.siyehuazhilian.musicplay; 002.  ...
  • judyge
  • judyge
  • 2015年05月31日 20:15
  • 546

制作一个简单的Android版的音乐播放器

音乐播放器是一个非常常见的应用,这篇博客就是介绍如何制作一个简单的音乐播放器,这款音乐播放器具有以下的功能:播放歌曲、暂停播放歌曲、、显示歌曲的总时长、显示歌曲的当前播放时长、调节滑块可以将歌曲调节到...
  • u010105970
  • u010105970
  • 2016年04月29日 17:37
  • 8088

Android开发之第一个小项目--我的MP3播放器(一)

我的mp3(一)不知不觉学习android也已经有一段时间了,学习完了基础的android知识后,一时间有点迷茫不知道该干什么,于是想写个项目给自己练练手,本来我以为MP3播放器挺好写的,结果后来仔细...
  • verzqli
  • verzqli
  • 2015年11月27日 16:58
  • 1154

用HTML5实现简易的音乐播放器

该文章是使用html5结合Jquery制作了一个简易的音乐播放器,在该播放器中实现了音乐的顺序播放,下一首,上一首和暂停等功能。...
  • a1217158716
  • a1217158716
  • 2017年04月27日 20:55
  • 1952

Android 音乐播放器的开发教程(七)运用Broadcast实现service与activity的通信 ----- 小达

运用Broadcast实现service与activity的通信 Broadcast的发送只需要一步,接收广播需要三步,就能实现在Activity和Service之间的通信....
  • Jing_Unique_Da
  • Jing_Unique_Da
  • 2014年12月29日 09:25
  • 3319

服务与多线程-简单音乐播放器

服务与多线程-简单音乐播放器要实现简单的音乐播放器,总是离不开服务和线程。因为服务可以让我们的程序在后台继续播放音乐, 而音乐播放器总是少不了进度条,进度条随着音乐播放进度的实时更新又需要用子线程更新...
  • u012925008
  • u012925008
  • 2015年11月21日 21:51
  • 1326

单片机项目:基于51单片机的MP3播放器

项目题目:    基于51单片机的MP3播放器 项目要求:   可以选用型号为VS1003的音频解码芯片,同时要配上SD卡或U盘接口,显示接口,控制接口,如果可以加上电池和充电模块最好。   项...
  • ky_heart
  • ky_heart
  • 2016年09月11日 22:28
  • 2104

开源一个VC++实现的MP3播放器(支持换肤、截屏、半透明)源码

一、说明: 这个项目是在2012年写的,大学期间比较无聊。程序是基于MFC的,当时初接触开发很多东西都做得不太好(代码规范、效率等),工作后也没再用MFC了,而且个人也不看好MFC的前途,所以就没...
  • mfcing
  • mfcing
  • 2015年01月25日 09:58
  • 2098
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个简单的MP3播放器
举报原因:
原因补充:

(最多只允许输入30个字)