السلام عليكم ورحمة الله وبركاته...
أخوتى لدى ملفات صوتية داخل الليست بوكس تعمل متوالية أى صوت تلو الأخر
فى حين انتهاء المقطع الاول يتم الانتقال للمقطع التالى وهكذا الى أن يتم االانتهاء منهم جميعا.
بصادف مشكلة أنه أوقات هناك أصوات لا تعمل فبضطر أن أضغط أنا على الصوت التالى بالماوس
وانا أريد أنا يعمل هذا تلقائى فى حالة أى صوت لم يعمل يتفاداه وينتقل للمقطع الذى يليه.
فهل هناك كود لعمل هذا الله يكرمكم...
وهذا هو الكود وهو داخل تايمر
كود :
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
كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا
(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
كما ان هناك مشكلة لا أعلم طريقة حلها مع ان البرنامج كان يعمل جيدا
اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه
إقتباس : اذا لم يكن مشروعك خاصا
ممكن تضع المشروع
مع ملفين يعملان وملف واحد لا يعمل للتجربه
الموضوع مش حكاية خاص وعام أستاذ لكن المشروع كبير لآنى بضع أغلب مشاريعى
بمشروع واحد , يعنى حضرتك ممكن يتم الحل من خلال تخمينك فقط..
فهذا الكود لجلب الاصوات داخل ليست بوكس 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
(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
اعتذر اليك لعدم تمكنني من ايجاد الحل بالتخمين
إقتباس : اعتذر اليك لعدم تمكنني من ايجاد الحل بالتخمين
لا تعتذر أخى فالموضوع لا يستحق فدائماً ما كنت ومازلت تقوم حضرتك بالمساعدة ومشاركاتك خير دليل...
الله المستعان أخى هاحاول معاه وصدقنى لو كنت أقدر رفع المشروع كنت رفعته..
هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.
(24-02-20, 06:12 PM)سعود كتب : [ -> ]هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.
يا أهلا بالغالى استاذ سعود حمدلله على السلامة والله اشتقت لك أخى...
نعم الملفات محلية على جهازى ليست خارجية.
(24-02-20, 06:53 PM)ابو روضة كتب : [ -> ] (24-02-20, 06:12 PM)سعود كتب : [ -> ]هل الملفات الصوتية محلية ام بعيدة؟
لو كانت بعيدة هل الرابط مباشر يعني كامل بالامتداد؟
وفقكم الله لكل خير.
يا أهلا بالغالى استاذ سعود حمدلله على السلامة والله اشتقت لك أخى...
نعم الملفات محلية على جهازى ليست خارجية.
الله يسلمك ويبارك فيك.
هل جربت التعامل مع الحدث :
AxWindowsMediaPlayer1_ErrorEvent
على حسب :!
ان كان السبب هو الامتداد فحاول ان تحصر الامتدادات بقائمة تكون مسموحة بحيث لا يكون الخطا واردا.
(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
طبعا حضرتك هو من فتح عينى وتفكيرى بتخمينك لهذا الحدث
