[الورد الصناعي]

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

[Zuhare]

[تحديث] هذا الكود باستخدام mci

PHP كود :

Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim filename = "audio.mp3"
        mciSendString("close 0", Nothing, 0, 0)
        mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
        mciSendString("play 0", Nothing, 0, 0)
    End Sub

End Class 


[الورد الصناعي]

جزاك الله كل خير والف شكر لك
بعد تطبيق الكود عمل بشكل صحيح
بس يوجد ملاحظة صغيره وهي
يوم اضغط على زر Button1 يشتغل ملف الصوت وكل شي تمام
بس بعد انتهاء ملف الصوت اضغط مره ثانية على نفس الزر Button1 ولا يشتغل الملف
هل ممكن تطوير الكود لكي كل مره اضغط على زر Button1 يشتغل الملف من جديد

[justforit]

اذا تريد مثال جاهز ممكن تشوف الرابط هذا!

[Taha Okla]

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

استخدم الكود :

كود :

My.Computer.Audio.Play(Application.StartupPath & "\SoundFile.wav")

[الورد الصناعي]

هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي

---

جزاك الله خير اخي justforit
المشكلة المثال لازم تضع أداة وانا اريد كود بدون وضع أداة

[justforit]

(18-10-24, 09:57 PM)الورد الصناعي كتب : هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي

---

جزاك الله خير اخي justforit
المشكلة المثال لازم تضع أداة وانا اريد كود بدون وضع أداة

ممكن تذكر اصدار بيئة البرمجة عندك؟

[Taha Okla]

(18-10-24, 09:57 PM)الورد الصناعي كتب : هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح   عزيزي

يا عزيزي .. الكود كامل .. 
فقط ضع ملف الصوت بجانب الملف التنفيذي - وغير الاسم بالكود وشغل..
أنا أعمل على VS2022   وكذلك على VS2013   وهذا الكود يعمل على كليهما وما بينهما ..

يجب أن تلاحظ : نوع الملف يجب أن يكون من نوع wav
يفضل تحويل الملف إذا كان من نوع آخر,,
السبب بأنه لا يعمل إلا مع هذا النوع : لأن - 
- الأًصوات القياسية : لأي برنامج  هي من نوع wav
- وهذا الكود للمؤثرات الصوتية المرافقة للبرامج : حركة كاشير، ضغطة زر، أصوات طبيعة..إلخ..

[Taha Okla]

(18-10-24, 02:41 AM)Zuhare كتب : [تحديث] هذا الكود باستخدام mci

PHP كود :

Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim filename = "audio.mp3"
        mciSendString("close 0", Nothing, 0, 0)
        mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
        mciSendString("play 0", Nothing, 0, 0)
    End Sub

End Class 


طريقة ثانية  لكود الأخ(Zuhare) ... :
يا عزيزي جرب أنّ تعدل الكود أعلاه ليصبح :

PHP كود :

Public Class Form1

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim filename = "audio.mp3"
        mciSendString("close 0", Nothing, 0, 0)
        My.Computer.Audio.Stop()

        mciSendString(String.Format("open ""{0}"" alias 0", filename), Nothing, 0, 0)
        mciSendString("play 0", Nothing, 0, 0)
    End Sub

End Class 


[الورد الصناعي]

((  هذا الكود باستخدام mci ))

ما المقصود في mci  ممكن تعيرف مختصر لها