09-01-21, 06:54 AM (آخر تعديل لهذه المشاركة : 11-05-21, 12:49 PM {2} بواسطة سعود.)
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
ميزة هذه الفكرة انها من دون قاعدة بيانات فقط الحفظ في الـ mysettings و اكيد انه في الريجستري لكن ليس مباشر من اكوادنا بل من بيئة التطوير نفسها و هي مربوطة بالمسار فان تغير المسار يتم فقد كل البيانات.
1 - الفكرة ان لكل قاريء او حتى فنان ملفات صوتية تخصه
تحتاج اضافة مجلد بالنقر على زر اضافة قاريء و انظر النتيجة.
المشروع مفتوح المصدر.
2 - التحديث يخص حفظ ماتم اختياره من الادوات و ايضا حفظ آخر لقطة في اداة wmp
يعني اذا نقرت زر الايقاف المؤقت بالاداة فسيتم حفظ المدة المحددة(الصراحة مدري شلون اوضح بالكلام)
لكن واضحة من المثال وهي تخص حدث PlayStateChange
3 -
الانتقال التلقائي من سورة لاخرى وعند الرغبة بالتوقف انقر زر الايقاف
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
حينما نتكلم عن الابداع والتميز فمن المؤكد أن أول ما يخطر على بال أى
عضو هنا هو أسم "سعود وبالخط العريض"..
فقط التحديث الجديد يحتاج لكلمة مرور.
من بعدك اخي الكريم
كلمة المرور كعادة اكثر رواد المنتديات يكون اسم الدومين vb4arb
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
ليت يكون المثال قد قدم فائدة لكم جميعا.
كما ارجو ان يجد احد ضالته في امثلتي .
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
لان لدى مجلد به سور القرءان ولما بختاره لا يجلب اى شيئ .
ممكن توضح لو سمحت ؟
اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolder
ضمن زر جديد مكتوب الكود:
PHP كود :
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then My.Settings.myfolder.Add(fbd.SelectedPath) My.Settings.Save() gd() End If
اجراء gd هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن Mysettings
PHP كود :
Private Sub gd() lst.Clear() lst2.Clear() ListBox1.Items.Clear() ComboBox1.Items.Clear() If My.Settings.myfolder.Count > 0 Then For Each h As String In My.Settings.myfolder If h.Trim <> "" Then ComboBox1.Items.Add(IO.Path.GetFileName(h)) lst.Add(h) End If Next End If Dim t As String = My.Settings.Appdes If t.Trim <> "" Then lbltitle.Text = t End If End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolder
ضمن زر جديد مكتوب الكود:
PHP كود :
Dim fbd As New FolderBrowserDialog If fbd.ShowDialog = DialogResult.OK Then My.Settings.myfolder.Add(fbd.SelectedPath) My.Settings.Save() gd() End If
اجراء gd هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن Mysettings
PHP كود :
Private Sub gd() lst.Clear() lst2.Clear() ListBox1.Items.Clear() ComboBox1.Items.Clear() If My.Settings.myfolder.Count > 0 Then For Each h As String In My.Settings.myfolder If h.Trim <> "" Then ComboBox1.Items.Add(IO.Path.GetFileName(h)) lst.Add(h) End If Next End If Dim t As String = My.Settings.Appdes If t.Trim <> "" Then lbltitle.Text = t End If End Sub
انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس
14-01-21, 11:34 PM (آخر تعديل لهذه المشاركة : 14-01-21, 11:35 PM {2} بواسطة سعود.)
(14-01-21, 10:31 PM)ابو روضة كتب :
انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس
لكنه لا يجلب اى ملف صوتى من داخل المجلد
اخي الكريم
المثال عندي يعمل بشكل جيد ويعمل كما هو مطلوب
اذا المثال هو نفسه الخاص بي لكنه لا يعمل عندك فلا ادري لماذا و ان كنت عدلت عليه فاتمنى ترفع مثالك اشوف السبب.
و شكرا لك على التفاعل مع الفكرة
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
15-01-21, 04:46 AM (آخر تعديل لهذه المشاركة : 15-01-21, 04:49 AM {2} بواسطة سعود.)
اسماء السور تكون هكذا بالعادة 001 + الامتداد يعني كذا:
توجد دالة موجودة ضمن موديول a.vb تقوم بالبحث عن اسم السورة المناسب للرقم 001 و هكذا.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
)
