صوت على الفورم

السلام عليكم

الموضوع سهل ان شاء الله كل ما تحتاجة ملف بأمتداد wav

قم فى تعريف المتيغرات العام وبوضع هذا الاكواد

    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
        As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer
    Public Const SND_SYNC = &H0
    Public Const SND_ASYNC = &H1
    Public Const SND_FILENAME = &H20000
    Public Const SND_RESOURCE = &H40004
    Public Sub PlaySoundFile(ByVal filename As String)
        PlaySound(أسم الملف, Nothing, SND_FILENAME Or SND_ASYNC)
    End Sub

وفى ال Form_Load ضع هذه الكود

 PlaySoundFile(أسم الملف)

ملاحظة يجب وضع ملف الصوت فى الفهرس Bin الموجود بالمشروع الخاص بك

بالتوفيق ,,,,

او بأمكانك عمل module كما يلي

Imports System
Imports System.Runtime.InteropServices
Imports System.Resources
Imports System.IO

Public Class Sound

    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
      As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer

    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
      As Byte(), ByVal hmod As Integer, ByVal flags As Integer) As Integer

    Public Const SND_SYNC = &H0 ' play synchronously 
    Public Const SND_ASYNC = &H1 ' play asynchronously 
    Public Const SND_MEMORY = &H4  'Play wav in memory
    Public Const SND_ALIAS = &H10000 'Play system alias wav 
    Public Const SND_NODEFAULT = &H2
    Public Const SND_FILENAME = &H20000 ' name is file name 
    Public Const SND_RESOURCE = &H40004 ' name is resource name or atom 

    Public Shared Sub PlayWaveFile(ByVal fileWaveFullPath As String)
        Try
            PlaySound(fileWaveFullPath, 0, SND_FILENAME)
        Catch
        End Try
    End Sub

    Public Shared Sub PlayWaveResource(ByVal WaveResourceName As String)

        ' get the namespace 
        Dim strNameSpace As String = System.Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString()

        ' get the resource into a stream
        Dim resourceStream As Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strNameSpace + "." + WaveResourceName)
        If resourceStream Is Nothing Then Exit Sub

        ' bring stream into a byte array
        Dim wavData As Byte()
        ReDim wavData(CInt(resourceStream.Length))
        resourceStream.Read(wavData, 0, CInt(resourceStream.Length))

        ' play the resource
        PlaySound(wavData, 0, SND_ASYNC Or SND_MEMORY)
    End Sub

    Public Shared Sub PlayWaveSystem(ByVal SystemWaveName As String)
        PlaySound(SystemWaveName, 0&, SND_ALIAS Or SND_ASYNC Or SND_NODEFAULT)
    End Sub
End Class

و في formload اكتب ما يلي :

اقتباس

  Sound.PlayWaveFile("PATHE.wav.")

ما قصرت اخى moh1983

شكراااااااااااااااااااااااااااااا

جزيل الشكر لجهودكم المبذولة وماقصرتوا

بصراحة أنا ماجربته إلى الآن لاني توني شايفة الكود وعندي شغل لكن بمجرد الذهاب للبيت سأطبقه وأعطي النتيجة

بسم الله الرحمن الرحيم

جزاكم الله عنا خيرا

لقد جربت البرنامج والحمد لله نجح بعد عناء طويل معه

جربت الكودين

وجزاكم الله خيرا

ولكن كيف اصنع شىء يشتغل مثل windoes madia player

اى يشتغل ويقف ويتقدم وهاكذ

كنت اصنعه فى vb6

ولكن كيف يصنع هنا

ثانيا وهو الاهم اطــــــــــــــــــــــــــــلت عليــــــــــــــــــــــــــكم

اريد ان افهم الكود

ما هذه الثوابت الكثيره

انا اسف للاطاله والرغى الكثير اعذرونى

ولكنكم علماء وانا جاهل

ولكم جزيل الشكر

:rolleyes:

السلام عليكم

اخواني اخواتي الأعضاء

جربت الكود بس يطلع خطأ عند اسم الملف ممكن تقولون لي كيف اكتب اسم الملف في الكود انا كتبت الكود في الموديول ارجوكم بسرعة ابغى الافادة الله يخليكم

طب مو لو تستخدمو أداة mmcontrol أحسن لكم ؟؟؟

بيطل خطا عشان لازم تدخل اسم الملف string

اى ضع اسمه يبن دبل كتشن

وإن شاء الله يمشى

االسلام عليكم

المقصود باسم الملف هو ( أسم ملف الى هيتم وضعة بجوار ملف التشغيل exe ويكون بامتداد wav ) مثال song.wav

اختي كفاح مشكورة بس عملت مثل ماقلت

PlaySound(romance.wav,nothing,snd_filename or snd_async

ومع ذلك ماضبط حتى لما حطيت اسم الملف بين دبل كوتيشن مثل ماقال الأخو وهم ماضبط

ايش اعمل محتاجة الكود ضروري.

اختي كفاح مشكورة بس عملت مثل ماقلت

PlaySound(romance.wav,nothing,snd_filename or snd_async

ومع ذلك ماضبط حتى لما حطيت اسم الملف بين دبل كوتيشن مثل ماقال الأخو وهم ماضبط

ايش اعمل محتاجة الكود ضروري.

اختي كفاح مشكورة بس عملت مثل ماقلت

PlaySound(romance.wav,nothing,snd_filename or snd_async

ومع ذلك ماضبط حتى لما حطيت اسم الملف بين دبل كوتيشن مثل ماقال الأخو وهم ماضبط

ايش اعمل محتاجة الكود ضروري.

السلام عليكم

قمت بعمل مثال لك ويارت تقول لي اخى فانا شاب مثلك :P

أجعل اسم الملف 1.wav

بالتوفيق

_________.rar

اختي كفاح

ماشتغل عندي الفورم ماقام يغني وعملت مثل ماسويت حنى الملف سميته 1 مثل ماانت عامله وما ضبط

تعبت وماجاي يضبط والحل يعني

السلام عليكم

قمت باضافة ملف الويف وشغل الملف التنفيذى هيشتغل مباشرة

انا اسمى احمد يعنى انا شاب <_<

_________.rar

أنا لما بدي أ عمل صوت يشتغل على الفورم بستخدم أداة

mmcontrol وهادي بجيبها من قائمة tools

وبختار من customize tool box الأداة

microsoft multimedia control v6.0

وبكتب الكود التالي في الحدث load

axmmcontrl1.command="close"

axmmcontrol1.filename=

"واحط مسار الاغنية "

axmmcontrol1.command="open"

axmmcontrol1.command="play"

بس تعرف هالشغلة

انو كل هالحكي هاد بالفيجوال بيسك 2002 :P :rolleyes:

ومابعرف إذا بيتغير كل هالحكي يالاصدارات التانية للفيجوال

يمكنك إستخدام الكود التالي في VB 2005

my.Computer.Audio.Play("c:\File.wav")

اخى فى الله إن شاء الله يكون اخر ردود لنا حيث اننى ارفقت لك مثال بالصوت معمو ل وشغال إن شاء الله خذه وقارنا بالكود وإن شاء الله تستفيد

;) ;) ;)

Sound2.rar

أخ bnf252 أنا لا أعرف طريقة إستخدام الأداة process فأنا جديد في تعاملي مع الفجوال بيسك دوت نت والمنتدى ولإنترنت :blink: ولكني استعملت هذه الأكواد وهي تنفع معي وتعمل بمجرد تشغيل البرنامج.

ولكن يجب أن تتأكد أن الصوت فعلاً Wav وليس إمتداده فقط

My.Computer.Audio.Play("c:\p.wav")

وهذا كود آخر أستعمله ولكن يجب أن تتأكد أن الصوت فعلاً Wav وليس إمتداده فقط

		Dim Sound As New Media.SoundPlayer
		Sound.SoundLocation = "c:\r.wav"
		Sound.Load()
		Sound.Play()

أتمنا أن تعجبك هذه الأكود :rolleyes:

وإفم تفعل ما تطلبه فأخبرني :^)

الكودين لا يعملا الواضح ان يكون لهما فضاء للا سماء هما فيهم خطاء

هذا الكود يعمل فقط على نسخة الـ 2005

اخواني

مشكورررررررررررين للمساعدة لكن انا فقدت الامل ان الصوت الموسيقي يشتغل على الفورم الخاص فيني

اخت كفاح اشتغل عندي المشروع بس المشروع حقي حطيت عليه الملف الموسيقي ما اشتغل وانا مقهورة

أخ bnf252 لاتيأس فأنا قد يكون عندي السبب تتبع فقط الخطوات التالية

1- إفتح Sound Recorder بتاع الوندوز من

Start >> Programs >> Accessories >> Sound Recorder

2- إفتح ملف الصوت بتاعك المراد فتحه بهذا البرنامج

ستجد أن البرنامج لا يرسم أي بيانات ( إشارة خضراء )

إذا وجدت هذا فإننا وجدنا المشكلة التي نبحث عنها

أرجوا المحاولة مع الرد

قال تعالى أن يعقوب قال ( يَا بَنِيَّ اذْهَبُواْ فَتَحَسَّسُواْ مِن يُوسُفَ وَأَخِيهِ وَلاَ تَيْأَسُواْ مِن رَّوْحِ اللّهِ إِنَّهُ لاَ يَيْأَسُ مِن رَّوْحِ اللّهِ إِلاَّ الْقَوْمُ الْكَافِرُونَ )

السلام على الجميع

شكرا اخ ياسر على جهودك المبذولة بس شغلت الصوت اللي عندي على البرنامج واشتغل مية بالمية

يعني الحل غير سليم