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

كود :
AxWindowsMediaPlayer1.stretchToFit = True
       If RadioButton1.Checked = True Then
           If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped = True Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
               AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
           End If
       End If

كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا

الرد }}}
تم الشكر بواسطة: bidaya
#2
(24-02-20, 05:51 AM)ابو روضة كتب :
السلام عليكم ورحمة الله وبركاته...
أخوتى لدى ملفات صوتية داخل الليست بوكس تعمل متوالية أى صوت تلو الأخر
فى حين انتهاء المقطع الاول يتم الانتقال للمقطع التالى وهكذا الى أن يتم االانتهاء منهم جميعا.
بصادف مشكلة أنه أوقات هناك أصوات لا تعمل فبضطر أن أضغط أنا على الصوت التالى بالماوس
وانا أريد أنا يعمل هذا تلقائى فى حالة أى صوت لم يعمل يتفاداه وينتقل للمقطع الذى يليه.
فهل هناك كود لعمل هذا الله يكرمكم...
وهذا هو الكود وهو داخل تايمر

كود :
AxWindowsMediaPlayer1.stretchToFit = True
       If RadioButton1.Checked = True Then
           If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped = True Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
               AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
           End If
       End If

كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا


اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه
الرد }}}
تم الشكر بواسطة: bidaya
#3
إقتباس : اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه

الموضوع مش حكاية خاص وعام أستاذ لكن المشروع كبير لآنى بضع أغلب مشاريعى
بمشروع واحد , يعنى حضرتك ممكن يتم الحل من خلال تخمينك فقط..
فهذا الكود لجلب الاصوات داخل ليست بوكس 1 بالاسم وليست بوكس 2 بالمسار


كود :
ofb.InitialDirectory = ""
       ofb.Multiselect = True

       If (ofb.ShowDialog = Windows.Forms.DialogResult.OK) Then
           filneames = ofb.SafeFileNames
           paths = ofb.FileNames
           For i As Integer = 0 To filneames.Length - 1
               ListBox1.Items.Add(filneames(i))
           Next
           For i As Integer = 0 To filneames.Length - 1
               ListBox2.Items.Add(paths(i))
           Next


وهذا كود التشغيل وكود التحديد


كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub
   Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = ListBox2.SelectedItem
   End Sub
الرد }}}
تم الشكر بواسطة: bidaya , bidaya
#4
(24-02-20, 05:51 AM)ابو روضة كتب :
السلام عليكم ورحمة الله وبركاته...
أخوتى لدى ملفات صوتية داخل الليست بوكس تعمل متوالية أى صوت تلو الأخر
فى حين انتهاء المقطع الاول يتم الانتقال للمقطع التالى وهكذا الى أن يتم االانتهاء منهم جميعا.
بصادف مشكلة أنه أوقات هناك أصوات لا تعمل فبضطر أن أضغط أنا على الصوت التالى بالماوس
وانا أريد أنا يعمل هذا تلقائى فى حالة أى صوت لم يعمل يتفاداه وينتقل للمقطع الذى يليه.
فهل هناك كود لعمل هذا الله يكرمكم...
وهذا هو الكود وهو داخل تايمر

كود :
AxWindowsMediaPlayer1.stretchToFit = True
       If RadioButton1.Checked = True Then
           If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped = True Then
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
               AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
           End If
       End If

كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا


المشكلةالتي في الصورة يتم حلها بحذف = True ليصبح
كود :
If AxWindowsMediaPlayer1.playState = WMPPlayState.wmppsStopped Then

(24-02-20, 03:25 PM)ابو روضة كتب :
إقتباس : اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه

الموضوع مش حكاية خاص وعام أستاذ لكن المشروع كبير لآنى بضع أغلب مشاريعى
بمشروع واحد , يعنى حضرتك ممكن يتم الحل من خلال تخمينك فقط..
فهذا الكود لجلب الاصوات داخل ليست بوكس 1 بالاسم وليست بوكس 2 بالمسار


كود :
ofb.InitialDirectory = ""
       ofb.Multiselect = True

       If (ofb.ShowDialog = Windows.Forms.DialogResult.OK) Then
           filneames = ofb.SafeFileNames
           paths = ofb.FileNames
           For i As Integer = 0 To filneames.Length - 1
               ListBox1.Items.Add(filneames(i))
           Next
           For i As Integer = 0 To filneames.Length - 1
               ListBox2.Items.Add(paths(i))
           Next


وهذا كود التشغيل وكود التحديد


كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub
   Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = ListBox2.SelectedItem
   End Sub

اعتذر اليك لعدم تمكنني من ايجاد الحل بالتخمين
الرد }}}
تم الشكر بواسطة: bidaya
#5
إقتباس : اعتذر اليك لعدم تمكنني من ايجاد الحل بالتخمين

لا تعتذر أخى فالموضوع لا يستحق فدائماً ما كنت ومازلت تقوم حضرتك بالمساعدة ومشاركاتك خير دليل...
الله المستعان أخى هاحاول معاه وصدقنى لو كنت أقدر رفع المشروع كنت رفعته..
الرد }}}
تم الشكر بواسطة: bidaya
#6
هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.
الرد }}}
تم الشكر بواسطة: bidaya
#7
(24-02-20, 06:12 PM)سعود كتب : هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.

يا أهلا بالغالى استاذ سعود حمدلله على السلامة والله اشتقت لك أخى...
نعم الملفات محلية على جهازى ليست خارجية.
الرد }}}
تم الشكر بواسطة: bidaya
#8
(24-02-20, 06:53 PM)ابو روضة كتب :
(24-02-20, 06:12 PM)سعود كتب : هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.

يا أهلا بالغالى استاذ سعود حمدلله على السلامة والله اشتقت لك أخى...
نعم الملفات محلية على جهازى ليست خارجية.

الله يسلمك ويبارك فيك.
هل جربت التعامل مع الحدث :
AxWindowsMediaPlayer1_ErrorEvent

على حسب :!
ان كان السبب هو الامتداد فحاول ان تحصر الامتدادات بقائمة تكون مسموحة بحيث لا يكون الخطا واردا.
الرد }}}
تم الشكر بواسطة: bidaya
#9
(24-02-20, 07:45 PM)سعود كتب :
(24-02-20, 06:53 PM)ابو روضة كتب :
(24-02-20, 06:12 PM)سعود كتب : هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.

يا أهلا بالغالى استاذ سعود حمدلله على السلامة والله اشتقت لك أخى...
نعم الملفات محلية على جهازى ليست خارجية.

الله يسلمك ويبارك فيك.
هل جربت التعامل مع الحدث :
AxWindowsMediaPlayer1_ErrorEvent

الحقيقة لا لم أجرب أخى فلو حضرتك تعرف كود يقوم بهذا فأدرجة لو سمحت

شكرا لك أخى سعود جربته بهذا الكود ونجح الحمدلله


كود :
 Private Async Sub AxWindowsMediaPlayer1_ErrorEvent(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.ErrorEvent

       If Not ListBox2.SelectedIndex = ListBox2.Items.Count - 1 Then
           ListBox2.SelectedIndex += 1
           ListBox1.SelectedIndex += 1
           Await Task.Delay(1)
           AxWindowsMediaPlayer1.Ctlcontrols.play()
       End If

   End Sub


طبعا حضرتك هو من فتح عينى وتفكيرى  بتخمينك لهذا الحدث
الرد }}}
تم الشكر بواسطة: سعود , bidaya
#10
يعني حليت المشكلة؟
الرد }}}
تم الشكر بواسطة: bidaya


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شريط حالة يعطى أرقام العمليات التى تمت dr.programming 8 1,108 19-07-22, 09:17 AM
آخر رد: سعود
  [VB.NET] الكريستال ريبورت لا تعمل عند العميل abomo3ath 14 9,351 06-01-22, 09:00 PM
آخر رد: asdfar1977
  اريد تفريغ بيانات جدول الى جدول اخر مع حذف البيانات التى فى الجدول المفرغ منه خالد كامل1 1 1,297 19-06-21, 10:01 PM
آخر رد: خالد كامل1
  جمل الحفظ الخاصة بال commandbuilder لا تعمل الوضع المنفصل hany nabil3 1 923 17-05-21, 10:46 PM
آخر رد: عبد العزيز البسكري
  [سؤال] سوال حول ملفات ومجلدات قفل ولم تعد تعمل Kareem2021 1 1,082 16-05-21, 01:33 PM
آخر رد: ابو انس
  [VB.NET] هل هناك مشغلات تعمل علي فيجوال بيسك غير vlc & media player` ميدو الفنان 6 2,360 30-10-20, 07:01 PM
آخر رد: ميدو الفنان
  [سؤال] لدي اداة فيها اوامر تعمل كتشغيل مسؤل واوامر تعمل بدون تشغيل كمسؤل jam3h 9 2,459 13-09-20, 12:54 AM
آخر رد: T 1
  ما معنى تلك الرساله التى تظهر خالد كامل1 7 2,616 06-08-20, 02:29 PM
آخر رد: معاند الحظ
  [سؤال] المشاريع التي تعمل online الاتصالات الامان التكلفه الكاتب 3 1,938 06-02-20, 11:20 PM
آخر رد: Sorax
  استفسار اخوانى الاعزاء فى اضافه المبلغ يعد حذف الفاتوره التى حفظت خالد كامل1 3 1,807 24-10-19, 06:56 PM
آخر رد: خالد كامل1

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


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