+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : Sounds_Player (/showthread.php?tid=34067)
الصفحات:
1
2
Sounds_Player - سعود - 31-03-20
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
فقط لمجرد الهواية فقط فكرت بتجاهل الامثلة اللتي عندي واحببت تجهيز مثال بسيط و فكرته:
استعراض مجلد وتخزين كافة مسارات الملفات الصوتية الموجودة فيه mp3 and wav الى قاعدة بيانات اكسس
ثم سردها في Listbox
وهناك ازرار بسيطة......
كما قلت لا جديد وقد يحتوي اخطاء لكن للفائدة وضعته هنا
=========================================================
=========================================================
====================تحديث====================
التحديث شريط trackbar
ازرار الصوت من رفع و خفض وكتم
معذرة اخواني فيه مشكلة حين تنقر على زر about بسبب اني فعلت topmost للفورم الرئيسي وايضا فعلت showdialog لفورم about
عطل ايا منها
سبحان الله الامر بسيط جدا
PHP كود :
Me.TopMost = False
AboutMe.ShowDialog()
Me.TopMost = True
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - محمد ايمن - 31-03-20
(31-03-20, 03:51 AM)سعود كتب :بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتهفقط لمجرد الهواية فقط فكرت بتجاهل الامثلة اللتي عندي واحببت تجهيز مثال بسيط و فكرته:استعراض مجلد وتخزين كافة مسارات الملفات الصوتية الموجودة فيه mp3 and wav الى قاعدة بيانات اكسسثم سردها في Listboxوهناك ازرار بسيطة......كما قلت لا جديد وقد يحتوي اخطاء لكن للفائدة وضعته هنا
ولله انك مبداع اخي سعود
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - سعود - 31-03-20
إقتباس :ولله انك مبداع اخي سعودالابداع حضورك و مرورك
حياك الله.
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - alshandodi - 31-03-20
لك جزيل الشكر والتقدير مثال اكثر من رائع لو سمحت اريد مساعدتك او من الأخوه الأفاضل المبدعين في هذا المنتدى الرائع
اريد عمل القران الكريم في البرنامج الذي اصممه فاريد نفس هذه الطريقه ولكن لا اريد حفظه في قاعدة البيانات
- اريد جلب المسار من مجلد البرنامج ونفس عمل برنامجك ...
فاستخدمت هذا الكود
- فاريد بعد تغير مسمى كل واحد في الليست بوكس مثال سورة الفاتحه واسمها في الملف 001
كود :
Dim path As String = Application.StartupPath & "\Mp3\"
ListBox1.Items.AddRange(IO.Directory.GetFiles(path, "*.wma*"))ولك جزيل الشكر وبالغ التقدير
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - سعود - 31-03-20
(31-03-20, 06:08 PM)alshandodi كتب :لك جزيل الشكر والتقدير مثال اكثر من رائع لو سمحت اريد مساعدتك او من الأخوه الأفاضل المبدعين في هذا المنتدى الرائع
اريد عمل القران الكريم في البرنامج الذي اصممه فاريد نفس هذه الطريقه ولكن لا اريد حفظه في قاعدة البيانات- اريد جلب المسار من مجلد البرنامج ونفس عمل برنامجك ...فاستخدمت هذا الكود- فاريد بعد تغير مسمى كل واحد في الليست بوكس مثال سورة الفاتحه واسمها في الملف 001
كود :
Dim path As String = Application.StartupPath & "\Mp3\"
ListBox1.Items.AddRange(IO.Directory.GetFiles(path, "*.wma*"))
ولك جزيل الشكر وبالغ التقدير
العفو اخي الكريم
اسعدني مرورك ومشاركتك .
لم اعرف النقطة المتبقية هل تقصد ان يكون الليست بوكس تحتوي اسماء السور والمسارات تكون بقائمة نصية؟
الامر بسيط تحتاج دالة تحويل الرقم 001 الى اسم للسورة.
الافكار كثيرة ممكن تستخدم ملف نصي و ممكن من نفس الكود تعمل مصفوفة نصية تاخذ قيمتين الرقم والاسم.
و اعتذر ان لم اكن فهمت المطلوب.
وحياك الله اخي الكريم.
عملت مثال بسيط بـvb6.0 وهو تحويل الرقم الى سورة ونفس الشيء حتى بالدوت نت.
[مشروع] مثال تحويل الرقم الى سورة والعكس
للفائدة كنت مجهز ملف قاعدة بيانات وايضا ملف نصي واي واحدفيهم يكفي.
كلهم ارفقتهم الان
انظر للفكرة التالية بحيث لا تحتاج الى ارفاق ملفات نصية بل تدمج اي نص مهما كان طويلا بالكود.
[مشروع] إعادة فكرة توليد موديول
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - سعود - 01-04-20
الحمدلله لقد افادني الرابط التالي في بناء مصفوفة نصية طويلة.
[مشروع] إعادة فكرة توليد موديول
جهزت مثال كماهو واضح بالصورة:
يستعرض مجلد mp3 ضمن مجلد البرنامج ويقوم بتحويل اسم الملف من غير الامتداد مثلا 001.mp3 نستخلص فقط 001 ونسند مقابل هذا الرقم في المصفوفة وهو بلا شك اسم السورة (الفاتحة)
المثال مرفق.
لاحظ كما ذكرت الملف الموديول ذو الاسم a.vb هذا اسخرجته عبر برنامج آخر [مشروع] إعادة فكرة توليد موديول
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - alshandodi - 01-04-20
جزاك الله كل خير لما تقدمه لهذا المنتدى الغالي
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - سعود - 01-04-20
(01-04-20, 11:36 AM)alshandodi كتب : جزاك الله كل خير لما تقدمه لهذا المنتدى الغالي
واياك وكل من يقرأ هذا التعليق.
على فكرة ليس ضروري التحويل من المصفوفة الى datatable يمكن مباشرة البحث في المصفوفة لكن التنوع عند المعرفة شيء جميل.
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - alshandodi - 01-04-20
أخي العزيز هل اضع هذا الكود فقط لتشغيل الايات القرأنية
كود :
If ListBox1.Items.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
If ListBox1.SelectedIndex < 0 Then Exit Sub
If IO.File.Exists(dt.Rows(ListBox1.SelectedIndex)(0)) = False Then Exit Sub
wmp.URL = Application.StartupPath & "\mp3\" & dt.Rows(ListBox1.SelectedIndex)(0)"
wmp.controls.play()
ok = True
BtnPause.Enabled = True
BtnPlay.Enabled = False
BtnStop.Enabled = True[attachment=24289]
- فانه لا يعمل أو اضيف اكواد اخرى
وبارك الله فيك وجزاك الله خير الجزاء
RE: [ليس بجديد] عمل قائمة تشغيل مخصصة لملفات صوتية - سعود - 01-04-20
بصراحة لم انتبه لهذا لاني مركز على موضوع الرقم و الاسم
سانظر للمثال واضيف الازرار كما بالصورة اللي انت رفعتها.
تم نقل اجراءات الازرار التي حذفتها الى اجراء جديد باسم doit
ايضا اضفت متغير من نوع ListOfstring باسم lst
اعبئها بمسار السور.
اسم السورة لابد يكون كامل هكذا
001.mp3
لان المخزن في المصفوفة والداتاتيبل هكذا
001 فقط