الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أريد كود تشغيل ملفات "WAV" في خلفية الفروم

بدأه علي العامر في 11 أغسطس 2011 · 6 رد · 1,408 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

أريد كود تشغيل الملفات الصوتية "WAV" في خلفية الفروم

استخدمت الكود التالي , لكن يدخل الفروم في حالة عدم استجابة

My.Computer.Audio.Play(Application.StartupPath & "\sund\and.wav ", 0)

بحثت في المنتدى لكن لم أجد مسعاي

النظام Windows 7 البرنامج VB.net 2008

تم تعديل هذه المشاركة بواسطة علي العامر في 11 أغسطس 2011 في 03:37

إن كانت النفوس كباراً **** تعبت في مرداها الأجسام

.:: علي العامر ::.

مبرمج أكسس وفيجوال يبلغ من العمر 16 سنة

#2

استخدم

My.Computer.Audio.Play(Application.StartupPath & "\sund\and.wav ",AudioPlayMode.BackgroundLoop)

بالطبع نفذ هذا السطر مره واحده فقط (لا تنفذه داخل loop)

تم تعديل هذه المشاركة بواسطة Ali Al-Zyoud في 11 أغسطس 2011 في 04:53

#3

أشكرك أخي الكريم على سرعت تجاوبك

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

إن كانت النفوس كباراً **** تعبت في مرداها الأجسام

.:: علي العامر ::.

مبرمج أكسس وفيجوال يبلغ من العمر 16 سنة

#4

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

اخي يمكنك استخدام اداة الـ Windows Media Player وانصحك باستخدام خاصية البحث لأنه حسب علمي قد تطرقك لحل سؤال مشابه لسؤالك

.:: Wish to become better and better ::.

#5

اعتقد افضل طريقه هي بأستخدام ال Windows Media Player كما تفضل VB Helper

iهنلك طريقه قد لاتكون مناسبه تماماً ، ولكنها تقوم بالعمل. الا وهي تشغيل ال audio على thread منفصل الي مثال (المثال يوضح الصوره العامه يجب تعديله عند الاستخدام):

 
Imports System.Threading

Public Class Form1
   Sub playsounds()
      While True
         My.Computer.Audio.Play("d:\11k8bitpcm.wav", AudioPlayMode.WaitToComplete)
         My.Computer.Audio.Play("d:\11k16bitpcm.wav", AudioPlayMode.WaitToComplete)
      End While
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim tt As Thread = New Thread(AddressOf playsounds)
      tt.Start()
   End Sub
End Class

ومن الجميل ان ال members لل Audio object هي thread safe فلا مشكله من استخدامها على اي thread

تم تعديل هذه المشاركة بواسطة Ali Al-Zyoud في 11 أغسطس 2011 في 15:15

#6

يمكنك استخدام هذه :

My.Computer.Audio.Play("C:\Music\Music.wav")
#7

شكرا

مواضيع مشابهة