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

عندما اشغل ملف صوتي, كيف أعرف أنه انتهى لتنفيذ كود أو تشغيل ملف آخر

بدأه اأإبراهيم في 19 يونيو 2011 · 10 رد · 583 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ساستخدم أداة الوندوز لتشغيل ملف صوتي, وبعد أن ينتهي أريد كود ما (كتشغيل ملف آخر)

#2

أخي الفاضل

ان شاء الله يكون الرابط أدناه يوفي المطلوب

/index.php?showtopic=227139&view=findpost&p=1126522

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3
محمد فؤاد تركي كتب:

أخي الفاضل

ان شاء الله يكون الرابط أدناه يوفي المطلوب

/index.php?showtopic=227139&view=findpost&p=1126522

ليس هذا المطلوب

أنا أعرف كيف أشغل ملف صوتي,

ولكن... أريد عندما ينتهي هذا الملف يقوم البرنامج بعمل شىء ما (على سبيل المثال: يظهر رسالة مكتوب فيها لقد انتهى عرض المادة)

#4

المثال الذي أريد إنشائه في المرفقات

WA1.rar

#5

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

اخي جرب الكود التالي


Private Sub AxWindowsMediaPlayer1_StatusChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.StatusChange
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
MessageBox.Show("Finished!!")
End If
End Sub
 

      
      

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

    

  

    
    

      
#6
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي جرب الكود التالي

 Private Sub AxWindowsMediaPlayer1_StatusChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.StatusChange
    	If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
        	MessageBox.Show("Finished!!")
    	End If
	End Sub
 
نعم هذا الكود يظهر رسالة بعد إنتهاء الملف الصوتي, ولكن لا يشغل ملف صوتي آخر
على كلٍ فقد وجدت الحل والحمد لله
وتجدون الحل في الرابط التالي:
http://vb4arab.com/vb/showthread.php?p=217477

      
      

      
    

  

    
    

      
#7
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي انت قلت تريد تنفيذ كود ما بعد الانتهاء مثل تشغيل ملف, انا اظهرت لك رسالة واعتقد ان تشغيل ملف صوت اخر ليس بمشكلة!! بالتوفيق ..

      
      

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

    

  

    
    

      
#8
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي انت قلت تريد تنفيذ كود ما بعد الانتهاء مثل تشغيل ملف, انا اظهرت لك رسالة واعتقد ان تشغيل ملف صوت اخر ليس بمشكلة!! بالتوفيق ..
لقد استبدلت 
MessageBox.Show("Finished!!")
بــــ
        Wmp.URL = "c:\002.mp3"
        Wmp.Ctlcontrols.play()
ولكن لم يعمل الملف الصوتي الثاني

      
تم تعديل هذه المشاركة بواسطة اأإبراهيم في 21 يونيو 2011 في 14:55

      

      
    

  

    
    

      
#9
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي يمكنك استبدال الكود السابق بـ

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Dim Playlist As WMPLib.IWMPPlaylist = AxWindowsMediaPlayer1.playlistCollection.newPlaylist("MyPlaylist")
    	Dim VideoFile As WMPLib.IWMPMedia3 = AxWindowsMediaPlayer1.newMedia("Windows Logon Sound.wav")
    	Playlist.appendItem(VideoFile)
    	VideoFile = AxWindowsMediaPlayer1.newMedia("Windows Logoff Sound.wav")
    	Playlist.appendItem(VideoFile)
    	AxWindowsMediaPlayer1.currentPlaylist = Playlist
	End Sub
 

      
      
1

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

    

  

    
    

      
#10
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي يمكنك استبدال الكود السابق بـ

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Dim Playlist As WMPLib.IWMPPlaylist = AxWindowsMediaPlayer1.playlistCollection.newPlaylist("MyPlaylist")
    	Dim VideoFile As WMPLib.IWMPMedia3 = AxWindowsMediaPlayer1.newMedia("Windows Logon Sound.wav")
    	Playlist.appendItem(VideoFile)
    	VideoFile = AxWindowsMediaPlayer1.newMedia("Windows Logoff Sound.wav")
    	Playlist.appendItem(VideoFile)
    	AxWindowsMediaPlayer1.currentPlaylist = Playlist
	End Sub
 
نعم هذا هو الكود المطلوب
جزاك الله كل خير

      
      

      
    

  

    
    

      
#11
        
        

      
السلام عليكم ورحمه الله وبركاته
لاشكر على واجب اخي .. بالتوفيق ..

      
      

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

    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…