View Full Version : مبتدی: پخش wma و mp3
vb-sosol
جمعه 08 بهمن 1389, 15:42 عصر
ممنون مبشوم کمک کنید که در vb بتونم wma و mp3 رو پخش کنم
محسن واژدی
جمعه 08 بهمن 1389, 20:46 عصر
سلام
واسه اجرای یک فایل صوتی معمولی دستورات زیر رو در یک ماژول کپی کنین
Option Explicit
'*-------------------------------------*
'* Playsound flags: store in dwFlags *
'*-------------------------------------*
' lpszName points to a registry entry
' Do not use SND_RESOURSE or SND_FILENAME
Private Const SND_ALIAS& = &H10000
' Playsound returns immediately
' Do not use SND_SYNC
Private Const SND_ASYNC& = &H1
' The name of a wave file.
' Do not use with SND_RESOURCE or SND_ALIAS
Private Const SND_FILENAME& = &H20000
' Unless used, the default beep will
' play if the specified resource is missing
Private Const SND_NODEFAULT& = &H2
' Fail the call & do not wait for
' a sound device if it is otherwise unavailable
Private Const SND_NOWAIT& = &H2000
' Use a resource file as the source.
' Do not use with SND_ALIAS or SND_FILENAME
Private Const SND_RESOURCE& = &H40004
' Playsound will not return until the
' specified sound has played. Do not
' use with SND_ASYNC
Private Const SND_SYNC& = &H0
Public Enum enSound_Source
ssFile = SND_FILENAME&
ssRegistry = SND_ALIAS&
End Enum
' These are common sounds available from the registry
Public Const elDefault = ".Default"
Public Const elGPF = "AppGPFault"
Public Const elClose = "Close"
Public Const elEmptyRecycleBin = "EmptyRecycleBin"
Public Const elMailBeep = "MailBeep"
Public Const elMaximize = "Maximize"
Public Const elMenuCommand = "MenuCommand"
Public Const elMenuPopUp = "MenuPopup"
Public Const elMinimize = "Minimize"
Public Const elOpen = "Open"
Public Const elRestoreDown = "RestoreDown"
Public Const elRestoreUp = "RestoreUp"
Public Const elSystemAsterisk = "SystemAsterisk"
Public Const elSystemExclaimation = "SystemExclaimation"
Public Const elSystemExit = "SystemExit"
Public Const elSystemHand = "SystemHand"
Public Const elSystemQuestion = "SystemQuestion"
Public Const elSystemStart = "SystemStart"
Private Declare Function PlaySound& Lib "winmm.dll" Alias_
"PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long)
' hModule is only used if SND_RESOURCE& is set and represents
' an HINSTANCE handle. This example doesn't support playing
' from a resource file.
' Plays sounds from the registry or a disk file
' Doesn't care if the file is missing
Public Function EZPlay(ssname As String, _
sound_source As enSound_Source) As Boolean
If PlaySound(ssname, 0&, sound_source + _
SND_ASYNC + SND_NODEFAULT) Then
EZPlay = True
Else
EZPlay = False
End If
End Function
موفق باشید
محسن واژدی
جمعه 08 بهمن 1389, 21:18 عصر
این دو تا سورس رو داخل انجمن پیدا کردم، ببینین به کارتون میاد:
http://barnamenevis.org/attachment.php?attachmentid=33742&d=1248290343
http://barnamenevis.org/attachment.php?attachmentid=37937&d=1254686071
vb-sosol
شنبه 09 بهمن 1389, 12:13 عصر
این دو فایل نتونست کمکی بهم بکنه
من یک فایل mp3 و wma دارم توی یک پوشه کنار برنامه میخوام اجرا بشه
ali.rezaei7
شنبه 09 بهمن 1389, 13:41 عصر
درود. يه راهش استفاده از كامپوننت WindowsMediaPlayer است.براي وارد كردن اين كامپوننت به پروژه، كليد تركيبي CTRL+T رو بزن. و از ليست كامپوننت رو انتخاب كن.بعدش از اون كنترل، يه نسخه به پروژت اضافه كن. و براي پخش آهنگ، تو رويداد مورد نظرت اين كد رو كپي كن:
WindowsMediaPlayer1.URL = "FileName"
M.T.P
شنبه 09 بهمن 1389, 13:49 عصر
پخش صوتی و تصویری (http://barnamenevis.org/showthread.php?331651-%D9%BE%D8%AE%D8%B4-%D8%B5%D9%88%D8%AA%DB%8C-%D9%88-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.