+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ممكن كود تشغيل ملف صوت MP3 (/showthread.php?tid=50477)
الصفحات:
1
2
ممكن كود تشغيل ملف صوت MP3 - الورد الصناعي - 17-10-24
السلام عليكم
ابغى اضع كود داخل زر Button1 يشغل ملف صوت نوع mp3 داخل مجلد برنامجي
يعني من خلال مسار الملف
بدون وضع اداة على النموذج فقط عن طريق الكود
RE: ممكن كود تشغيل ملف صوت MP3 - Zuhare - 18-10-24
[تحديث] هذا الكود باستخدام 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
RE: ممكن كود تشغيل ملف صوت MP3 - الورد الصناعي - 18-10-24
جزاك الله كل خير والف شكر لك
بعد تطبيق الكود عمل بشكل صحيح
بس يوجد ملاحظة صغيره وهي
يوم اضغط على زر Button1 يشتغل ملف الصوت وكل شي تمام
بس بعد انتهاء ملف الصوت اضغط مره ثانية على نفس الزر Button1 ولا يشتغل الملف
هل ممكن تطوير الكود لكي كل مره اضغط على زر Button1 يشتغل الملف من جديد
RE: ممكن كود تشغيل ملف صوت MP3 - justforit - 18-10-24
اذا تريد مثال جاهز ممكن تشوف الرابط هذا!
RE: ممكن كود تشغيل ملف صوت MP3 - Taha Okla - 18-10-24
وعليكم السلام ورحمة الله وبركاته
استخدم الكود :
كود :
My.Computer.Audio.Play(Application.StartupPath & "\SoundFile.wav")RE: ممكن كود تشغيل ملف صوت MP3 - الورد الصناعي - 18-10-24
هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي
جزاك الله خير اخي justforit
المشكلة المثال لازم تضع أداة وانا اريد كود بدون وضع أداة
RE: ممكن كود تشغيل ملف صوت MP3 - justforit - 18-10-24
(18-10-24, 09:57 PM)الورد الصناعي كتب : هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي
جزاك الله خير اخي justforit
المشكلة المثال لازم تضع أداة وانا اريد كود بدون وضع أداة
ممكن تذكر اصدار بيئة البرمجة عندك؟
RE: ممكن كود تشغيل ملف صوت MP3 - Taha Okla - 18-10-24
(18-10-24, 09:57 PM)الورد الصناعي كتب : هلا بيك Taha Okla
لم يعمل معي الكود ممكن تضع الكود كامل مع الشرح عزيزي
يا عزيزي .. الكود كامل ..
فقط ضع ملف الصوت بجانب الملف التنفيذي - وغير الاسم بالكود وشغل..
أنا أعمل على VS2022 وكذلك على VS2013 وهذا الكود يعمل على كليهما وما بينهما ..
يجب أن تلاحظ : نوع الملف يجب أن يكون من نوع wav
يفضل تحويل الملف إذا كان من نوع آخر,,
السبب بأنه لا يعمل إلا مع هذا النوع : لأن -
- الأًصوات القياسية : لأي برنامج هي من نوع wav
- وهذا الكود للمؤثرات الصوتية المرافقة للبرامج : حركة كاشير، ضغطة زر، أصوات طبيعة..إلخ..
RE: ممكن كود تشغيل ملف صوت MP3 - Taha Okla - 19-10-24
(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
RE: ممكن كود تشغيل ملف صوت MP3 - الورد الصناعي - 20-10-24
(( هذا الكود باستخدام mci ))
ما المقصود في mci ممكن تعيرف مختصر لها