تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لدي اداة فيها اوامر تعمل كتشغيل مسؤل واوامر تعمل بدون تشغيل كمسؤل jam3h 9 208 13-09-20, 12:54 AM
آخر رد: T 1
  ما معنى تلك الرساله التى تظهر خالد كامل1 7 440 06-08-20, 02:29 PM
آخر رد: معاند الحظ
  [سؤال] المشاريع التي تعمل online الاتصالات الامان التكلفه الكاتب 3 489 06-02-20, 11:20 PM
آخر رد: Sorax
  استفسار اخوانى الاعزاء فى اضافه المبلغ يعد حذف الفاتوره التى حفظت خالد كامل1 3 525 24-10-19, 06:56 PM
آخر رد: خالد كامل1
  [VB.NET] ايقاف البرامج التي تعمل في TEMP DK-x 5 589 23-04-19, 02:17 AM
آخر رد: elgokr
Smile الوظيفة OpenFileDialog تعمل مرة واحدة وعند تكرارها يتوقف البرنامج Mohamed Gado 3 877 28-12-18, 10:41 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 794 10-12-18, 05:47 AM
آخر رد: rmnr
  ما نوع الاداة التي تعمل كمتصفح aftfm 1 534 04-10-18, 11:52 PM
آخر رد: elgokr
  [سؤال] ما نوع الاداة التي تعمل كمتصفح aftfm 3 649 04-10-18, 03:35 PM
آخر رد: ay.alhaj
  كيف احصل على مكتبه تعمل مع المستندات DOX.1 3 731 20-08-18, 04:48 AM
آخر رد: محمد كريّم

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


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