أضافة صوت - نسخة قابلة للطباعة

أضافة صوت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أضافة صوت (/showthread.php?tid=9983)

أضافة صوت - مهند إلكترو - 09-08-13

السلام عليكم ...
الأخوة المبرمجين ما هو الكود الذي يمكني من أخراج صوت بوسطة VS 2010
وجزاكم الله كل خير:confused::confused::confused:

أضافة صوت - AHMED HUSSIEN - 09-08-13

السلام عليكم ورحمة الله وبركاته

الكود التالى لتشغيل ملفات Wav

PHP كود :

Public Class Form1

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PlaySound("E:\Ahmed 2013\Visual Studio\Visual Studio Project\Sound\Windows Pop-up Blocked.wav", Nothing, Nothing)
    End Sub
End Class 

أضافة صوت - VB6DAO - 09-08-13

.................

أضافة صوت - VB6DAO - 09-08-13

كود :

.

' WAV فقط صوت من نوع

' من ملف

My.Computer.Audio.Play("aaaa.wav", AudioPlayMode.Background)

' من الريسورس

My.Computer.Audio.Play(My.Resources.aaaa, AudioPlayMode.Background)

أضافة صوت - SUB NEW - 10-08-13

اخى الكريم
الامر ابسط مما تتصور فقط ضع الاصوات التى ستقوم بتشغيلها فى مشروعك فى مسار البرنامج واكتب هذا الكود فى المكان الذى تريد تشغيل منه مثلا زر امر او اى شئ اخر

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

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'تشغيل الصوت مره واحده فقط عند الضغط على البوتون 
        My.Computer.Audio.Play(Application.StartupPath & "\1.wav")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'تشغيل الصوت متكررا كلما توقف بدا من جديد فى الخلفيه
        My.Computer.Audio.Play(Application.StartupPath & "\2.wav", AudioPlayMode.BackgroundLoop)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        تشغيل الصوت والانتظار حتى انتهائه وبعد ذلك يقف
        My.Computer.Audio.Play(Application.StartupPath & "\3.wav", AudioPlayMode.WaitToComplete)
    End Sub
End Class 

المشاركه التاليه بها مثال

جل الود

[مساعده] تشغيل ملف صوت من على الكمبيوتر

أضافة صوت - مهند إلكترو - 24-08-13

الله يفتح عليكم..... بارك الله فيكم جميعا حقا أستفدت من الموضوع