تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أضافة صوت
#1
السلام عليكم ...
الأخوة المبرمجين ما هو الكود الذي يمكني من أخراج صوت بوسطة VS 2010
وجزاكم الله كل خير:confused::confused::confused:
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

PHP كود :
Public Class Form1

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

    
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        PlaySound
("E:\Ahmed 2013\Visual Studio\Visual Studio Project\Sound\Windows Pop-up Blocked.wav"NothingNothing)
    
End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة:
#3
.................
الرد }}}
تم الشكر بواسطة:
#4
كود :
.

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


' من ملف
My.Computer.Audio.Play("aaaa.wav", AudioPlayMode.Background)

' من الريسورس
My.Computer.Audio.Play(My.Resources.aaaa, AudioPlayMode.Background)
الرد }}}
تم الشكر بواسطة:
#5
اخى الكريم
الامر ابسط مما تتصور فقط ضع الاصوات التى ستقوم بتشغيلها فى مشروعك فى مسار البرنامج واكتب هذا الكود فى المكان الذى تريد تشغيل منه مثلا زر امر او اى شئ اخر

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


PHP كود :
Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button3.Click
        تشغيل الصوت والانتظار حتى انتهائه وبعد ذلك يقف
        My
.Computer.Audio.Play(Application.StartupPath "\3.wav"AudioPlayMode.WaitToComplete)
    
End Sub
End 
Class 

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

جل الود

[مساعده] تشغيل ملف صوت من على الكمبيوتر
الرد }}}
تم الشكر بواسطة:
#6
الله يفتح عليكم..... بارك الله فيكم جميعا حقا أستفدت من الموضوع
الرد }}}
تم الشكر بواسطة: SUB NEW


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أضافة نص في تكست DOX.1 3 1,590 24-06-20, 11:25 AM
آخر رد: asemshahen5
  [VB.NET] أضافة أسماء اليوزرات داخل ListBox أبو فيصل 7 3,126 31-10-15, 03:02 AM
آخر رد: سعود
  أضافة عنصر إلى قائمة combobox starosta 3 3,244 17-02-15, 08:11 PM
آخر رد: Clickers
  أضافة ملف الى ListBox مبتدئ 1 1,543 23-06-13, 10:48 PM
آخر رد: kslawy
  مشروع مبيعات ومشتريات ارجو تعديل على خطا عند أضافة الاصناف تحديل جدول المبيعات بعد الحفظ yasser96 0 2,249 19-05-13, 01:33 AM
آخر رد: yasser96

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


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