تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير المسار ملف صوتي
#1
السلام عليكم.اخواني من فضلكم عندي ملف صوتي تبع المشروع موجود بالقرص c و يشتغل تمام
حبيت اغيرو من القرص c الى الريسورس تبع المشروع.حاولت بكذا وسيلة لكن ما ضبطت
كيف لو سمحتم اغير بالكود يلي موضوع بالفورم load
كود :
      Dim sp As New System.Media.SoundPlayer
       'sp.SoundLocation = "c:\Nachide.wav"
       sp.SoundLocation = "my.Resource:\Nachide.wav"
       sp.PlayLooping()
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام

بدل ما تستخدم SoundLocation استخدم Stream مثل
sp.Stream = My.Resources.Nachide
الرد }}}
تم الشكر بواسطة:
#3
تسلم  يا غالي .. ما ضبطت لا location تبعي ولا stream تبعك.هل ممكن التعديل على الكود تبعي الله يرضى عليكم
الرد }}}
تم الشكر بواسطة: ﻣﺒﺘﺪﺉ
#4
اصلا انا اعطيتك الكود الخاص بك بعد التعديل

وانا مجرب الكود اللي اعطيك واشتغل

هل انت وضعت الملف الصوتي في الريسورس اكيد

ما فيه علامة تنصيص " " اذا كان الملف في الريسورس ولا تضيف نوع الملف wav.

Dim sp As New System.Media.SoundPlayer
sp.Stream = My.Resources.Nachide
sp.PlayLooping
الرد }}}
تم الشكر بواسطة:
#5
اخي الطيب .و الله حطيت الملف الصوتي بصيغة mp3 و wav لازيل الشكوك بالريسورس

و حطيت الكود تبعك بالفورم لود لكن شوف المشكل و الله ماني فاهم حاجة ايش الغلط
الرد }}}
تم الشكر بواسطة: ﻣﺒﺘﺪﺉ
#6
احذفهم من الريسورس لان اسمائهم متشابهة
وارجع للريسورس وضع فقط ملف صيغة wav
لان SoundPlayer يشغل فقط ملفات صيغة wav
الرد }}}
تم الشكر بواسطة:
#7
اخي و الله صار عندي شك لاني جربت العملية بمشروع جديد خالص لازالة الشكوك مع الاكواد الاخرى وما ضبطت للاسف
انت تقصد الريسورس يلي مجلدها مكتوب عليه resources بالصورة
الرد }}}
تم الشكر بواسطة:
#8
لا يا أخي

أقصد الريسورس اللي داخل المشروع
لو فتحت المشروع تلاقي قائمة باسماء ملفات المشروع على اليمين ومن ضمنها My Project اضغط عليها مرتين
وراح يفتح خصائص المشروع وعندها حتشوف على اليسار تاب اسمه Resources هذا اللي اقصده
تسحب الملف من من مستكشف الويندوز وتسقطه داخل هذا الريسورس
الرد }}}
تم الشكر بواسطة:
#9
اخي الملف كان يشتغل عادي جدا جدا بالقرص c ما في طريقة اغير المسار فقط لو سمحت

كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim sp As New System.Media.SoundPlayer
       'sp.SoundLocation = "c:\Hymne.wav"
       sp.SoundLocation = "My.Resources:\Hymne"
       sp.PlayLooping()
   End Sub
الرد }}}
تم الشكر بواسطة:
#10
أخي اذا تريد تشغيل الملف من الريسورس فليس له مسار لأنه سيدخل ضمن ذاكرة البرنامج يعني سيكون مدمج مع ملف التشغيل الخاص بالبرنامج
وطريقتها ذكرتها لك


عموما انا مبتدئ، وانتظر أحد المحترفين ليفيدك


تحياتي
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم