منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
البوم ملفات صوتية [updated ] - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : البوم ملفات صوتية [updated ] (/showthread.php?tid=37420)

الصفحات: 1 2


البوم ملفات صوتية [updated ] - سعود - 09-01-21

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

ميزة هذه الفكرة انها من دون قاعدة بيانات فقط الحفظ في الـ mysettings  و اكيد انه في الريجستري لكن ليس مباشر من اكوادنا بل من بيئة التطوير نفسها و هي مربوطة بالمسار فان تغير المسار يتم فقد كل البيانات.

1 - الفكرة ان لكل قاريء او حتى فنان ملفات صوتية تخصه 
تحتاج اضافة مجلد بالنقر على زر اضافة قاريء و انظر النتيجة.
المشروع مفتوح المصدر.


2 - التحديث يخص حفظ ماتم اختياره من الادوات و ايضا حفظ آخر لقطة في اداة wmp
يعني اذا نقرت زر الايقاف المؤقت بالاداة فسيتم حفظ المدة المحددة(الصراحة مدري شلون اوضح بالكلامSmile)
لكن واضحة من المثال وهي تخص حدث PlayStateChange

3 - 

الانتقال التلقائي من سورة لاخرى وعند الرغبة بالتوقف انقر زر الايقاف



لقطة لاستخدام البرنامج في موقع mediafire 


4 - التحديث يخص مربع بحث عن رقم السورة واسمها


password:vb4arb

عبارة(برنامج القراء من ملفات محلية)
قابلة للتغير وقت التشغيل بالنقر عليها [دبل كليك]


تم التحديث و الاصلاح بحيث يتم التعامل مع الاخطاء


هذا يشرح أحدث التغييرات
كل خطأ له رسالة قدر الامكان
المثال الاحدث
و السلام عليكم و رحمة الله و بركاته




RE: البوم ملفات صوتية - ابو روضة - 10-01-21

حينما نتكلم عن الابداع والتميز  فمن المؤكد أن أول ما يخطر على بال أى 
عضو هنا هو أسم "سعود وبالخط العريض".. 
فقط التحديث الجديد يحتاج لكلمة مرور.



RE: البوم ملفات صوتية - سعود - 10-01-21

(10-01-21, 12:05 AM)ابو روضة كتب :
حينما نتكلم عن الابداع والتميز  فمن المؤكد أن أول ما يخطر على بال أى 
عضو هنا هو أسم "سعود وبالخط العريض".. 
فقط التحديث الجديد يحتاج لكلمة مرور.

من بعدك اخي الكريم
كلمة المرور كعادة اكثر رواد المنتديات يكون اسم الدومين vb4arb



RE: البوم ملفات صوتية - سعود - 13-01-21

ليت يكون المثال قد قدم فائدة لكم جميعا.
كما ارجو ان يجد احد ضالته في امثلتي .


RE: البوم ملفات صوتية - ابو روضة - 14-01-21

أخى سعود لو سمحت :-
هو انا بجيب السور من أين بالتحديد ؟
لان لدى مجلد به سور القرءان ولما بختاره لا يجلب اى شيئ .
ممكن توضح لو سمحت ؟



RE: البوم ملفات صوتية - سعود - 14-01-21

(14-01-21, 09:24 AM)ابو روضة كتب :
أخى سعود لو سمحت :-
هو انا بجيب السور من أين بالتحديد ؟
لان لدى مجلد به سور القرءان ولما بختاره لا يجلب اى شيئ .
ممكن توضح لو سمحت ؟

اول شيء يخزن مسار المجلد في الـ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 



RE: البوم ملفات صوتية - ابو روضة - 14-01-21

(14-01-21, 09:52 PM)سعود كتب :
اول شيء يخزن مسار المجلد في الـ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 

انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس 
لكنه لا يجلب اى ملف صوتى من داخل المجلد



RE: البوم ملفات صوتية - سعود - 14-01-21

(14-01-21, 10:31 PM)ابو روضة كتب :
انا لدى مجلد به كل سور القرءان ولما بختاره من زر جديد يجلب فقط اسم المجلد داخل الكومبوبوكس 
لكنه لا يجلب اى ملف صوتى من داخل المجلد


اخي الكريم 
المثال عندي يعمل بشكل جيد ويعمل كما هو مطلوب 
اذا المثال هو نفسه الخاص بي لكنه لا يعمل عندك فلا ادري لماذا و ان كنت عدلت عليه فاتمنى ترفع مثالك اشوف السبب.
و شكرا لك على التفاعل مع الفكرة



RE: البوم ملفات صوتية - ابو روضة - 15-01-21

(14-01-21, 11:34 PM)سعود كتب :
اخي الكريم 
المثال عندي يعمل بشكل جيد ويعمل كما هو مطلوب 
اذا المثال هو نفسه الخاص بي لكنه لا يعمل عندك فلا ادري لماذا و ان كنت عدلت عليه فاتمنى ترفع مثالك اشوف السبب.
و شكرا لك على التفاعل مع الفكرة


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



RE: البوم ملفات صوتية - سعود - 15-01-21

اسماء السور تكون  هكذا بالعادة 001 + الامتداد  يعني كذا:


توجد دالة موجودة ضمن موديول a.vb تقوم بالبحث عن اسم السورة المناسب للرقم 001 و هكذا.