إعـــــــلان

**ياسرهتهت ياسرهتهت** · 22-02-2015, 03:14 AM

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اخي الكريم
طلبك علي حسب فهمي بسيط
ضع ملفات MP3 في مجلد Audio او أي مجلد وانتبه لاسم المجلد

في حدث On Show في الصفحة ضع الكود التالي

كود PHP:


tbl_MP3 = File.Find("AutoPlay\\Audio", "*.mp3", false, false, nil, nil);

num_MP3 = Table.Count(tbl_MP3);

for count=1,num_MP3 do

result = ListBox.AddItem("ListBox1", "Song "..count, tbl_MP3[count]);

end

------------------------------
طبع Song اسم الملف يمكنك تغيره
وتكون اسامي الملفات عبارة عن اسم الملف والرقم
-----------------------------------------

وفي ListBox1 في حدث On Select ضع الكود التالي

كود PHP:


num = ListBox.GetSelected("ListBox1");

SONG = ListBox.GetItemData("ListBox1", num[1]);

MediaPlayer.Load("Plugin1", SONG);

--------------------------------------------------------------

ستظهر لك ملفات MP3 في ListBox1 وعند التحديد ستشتغل في MediaPlayer

وهذا ملف مفتوح

http://www.gulfup.com/?NOGqYg

--------------------------------
موفق بإذن الله ... لك مني أجمل تحية .

محمد بن أحمد أبو حذيفة · 22-02-2015, 08:15 AM

الفكرة جيدة بارك الله فيك
لكن الاسم الذي يظهر في اليست بوكس ليس هو نفسه في المجلد في الاوديو
المطلوب هو ان يستدعي الملف باسمه كما هو
بار كالله فيك

**ياسرهتهت ياسرهتهت** · 22-02-2015, 12:35 PM

بسم الله الرحمن الرحيم
احذف الكود السابق في في حدث On Show واستبدله

كود PHP:


tbSearchFiles = {"*.mp3"};

for index,type in pairs (tbSearchFiles) do

       file = File.Find("AutoPlay\\Audio", "*.mp3", false, false, nil, nil);

       for j,file_path in pairs (file) do

                      tbFilePath = String.SplitPath(file_path);

                     sFile = tbFilePath.Filename..tbFilePath.Extension;

                      

                     result = ListBox.AddItem("ListBox1", sFile, file_path);                            

       end

end

----------------------------------------------------
ان شاء الله سيحقق ما تريد

موفق بإذن الله ... لك مني أجمل تحية .

**ياسرهتهت ياسرهتهت** · 22-02-2015, 01:01 PM

بسم الله الرحمن الرحيم
ويمكن عدم ظهور الامتداد ( mp3 ) بجانب اسم الملف
باستبدال
السطر

كود PHP:


sFile = tbFilePath.Filename..tbFilePath.Extension;

بــــــــــــــــــــــــ ـــ

كود PHP:


sFile = tbFilePath.Filename ;

سيظهر فقط اسم الملف بدون الامتداد
--------------------------------------------
هذا حدود معلوماتي البسيطة جدا
في انتظار دخول الاساتذا الكرام لتصحيح والتعديل والمساعدة
موفق بإذن الله ... لك مني أجمل تحية .

**كاو دهوكي كاو دهوكي** · 22-02-2015, 01:10 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

محمد بن أحمد أبو حذيفة · 22-02-2015, 03:11 PM

بارك الله فيك هو المطلوب لكن ليتم قارئة الملفات الصوتية
في

كود PHP:


MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\1\\"..tamer .."*.mp3");

الكود الصحيح هو

كود PHP:


MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\1\\"..tamer ..".mp3");

**ياسرهتهت ياسرهتهت** · 22-02-2015, 03:43 PM

المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة

بارك الله فيك هو المطلوب لكن ليتم قارئة الملفات الصوتية
في

كود PHP:


MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\1\\"..tamer .."*.mp3");

الكود الصحيح هو

كود PHP:


MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\1\\"..tamer ..".mp3");

--------------------------------------------------------------------------------------------

اخي العزيز التغير كان في حدث On Show في الصفحة

اما ListBox1 في حدث On Select ضع الكود التالي
كما هو

كود PHP:


num = ListBox.GetSelected("ListBox1"); 

SONG = ListBox.GetItemData("ListBox1", num[1]); 

MediaPlayer.Load("Plugin1", SONG);

--------------------------------------------------------------------

محمد بن أحمد أبو حذيفة · 22-02-2015, 03:59 PM

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

كود PHP:


result = ListBox.GetSelected("ListBox1"); 

tamer = ListBox.GetItemText("ListBox1", result[1]); 

e = ListBox.GetItemData("ListBox1", result[1] );

et = ListBox.GetItemText("ListBox1", result[1]);

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\1\\"..tamer ..".mp3");

وهو يعمل
ولكن الكود التي استعملته انت ينفع وهو اقضر وافضل

**ياسرهتهت ياسرهتهت** · 22-02-2015, 04:11 PM

موفق بإذن الله ... لك مني أجمل تحية .

محمد بن أحمد أبو حذيفة · 22-02-2015, 04:19 PM

السلام عليكم ورحمة الله وبركاته
بارك الله فيك وجزاك كل خير

**ثامر أبو بلقيس ثامر أبو بلقيس** · 22-02-2015, 10:05 PM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

بسم الله الرحمن الرحيم
احذف الكود السابق في في حدث On Show واستبدله

كود PHP:


tbSearchFiles = {"*.mp3"};

for index,type in pairs (tbSearchFiles) do

       file = File.Find("AutoPlay\\Audio\\1", "*.mp3", false, false, nil, nil);

       for j,file_path in pairs (file) do

                      tbFilePath = String.SplitPath(file_path);

                     sFile = tbFilePath.Filename..tbFilePath.Extension;

                      

                     result = ListBox.AddItem("ListBox1", sFile, file_path);                            

       end

end

----------------------------------------------------
ان شاء الله سيحقق ما تريد

موفق بإذن الله ... لك مني أجمل تحية .

أحسنت و بارك الله فيك أخي ياسر
قد تتخلى عن السطر الاول و احدى الدوال التكرارية
[html]ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
file = File.Find("AutoPlay\\Audio\\1", "*.mp3", false, false, nil, nil);
for j,file_path in pairs (file) do
tbFilePath = String.SplitPath(file_path);
sFile = tbFilePath.Filename..tbFilePath.Extension;
result = ListBox.AddItem("ListBox1", sFile, file_path);
end [/html]

و اذ أحببت التنويع استغل دوال الــ lua المخصصة لذات الغرض
الدالة المشار اليها تستدعي الدراسة و الوقوف عندها كثيرا
موفق

[html]ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
file = File.Find("AutoPlay\\Audio\\1", "*.mp3", false, false, nil, nil);
for j,file_path in pairs (file) do
All,a,b = string.match(file_path, "(.-)([^\\]-([^\\%.]+))$")
result = ListBox.AddItem("ListBox1", a, All..a);
end [/html]

**ياسرهتهت ياسرهتهت** · 22-02-2015, 11:42 PM

بسم الله الرحمن الرحيم
شكرا لــــــــــــــــــــــــ ك

الكــ أسـ أبوبلقيــس ـتادي ـــــريم

علي هذه الملاحظات والتوجهات
ولكن ماهو المصدر لفهم هذه الدوال ( الــ lua )

كود PHP:


----All,a,b = string.match(file_path, "(.-)([^\\]-([^\\%.]+))$")

result = ListBox.AddItem("ListBox1", a, All..a);                            

end

--------------

فانا لم افهم هذا الجزء من الكود ولا اعرف معني الاختصارات و والرموز؟
اقصد هل يوجد كتاب او ملف يشرحها ؟

شـكــ وبارك الله فيك ـــرا لك
لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-02-2015, 12:12 AM

بالمثال يتضح المقال
و سأحاول في كل مناسبة سانحة بتزويدك بمثال يرسخ
التعامل مع هكذا دوال ---- البحث و التجربة و المقارنة هما زادك لفهم الدوال التي لم تدرج في الاوتوبلاي ---
حول مسار بحثك بزاوية 180 درجة نحو ما ذكرت لك ستختصر الكثير من الوقت في مسارك الاحترافي
---------------------------------------------------------
بخصوص الدالة التي تحدثت عنها فإنه تعتمد على تقسيم المسار إلى
أجزاء تتحكم فيه
نأخذ هذا المثال
ليكن لدينا هذا المسار مثلا
[html]AutoPlay\\Audio\\song.mp3[/html]

نعطيه ثلاث أبعاد إن صح التعبير
** - الأول لاستخلاص المسار باعتماد \ كفاصل أي سيتخلص القرص و المجلدات
فيكون الكود كالتالي :

كود PHP:


All,a,b = string.match("AutoPlay\\Audio\\song.mp3", "(.-)([^\\]-([^\\%.]+))$")
result = Dialog.Message("Notice",All);

الناتج : [html]AutoPlay\Audio\[/html]
** - البعد الثاني و المسمى a اذا أعلنا عنه فانه يستخرج الملف بلاحقته

كود PHP:


All,a,b = string.match("AutoPlay\\Audio\\song.mp3", "(.-)([^\\]-([^\\%.]+))$")
result = Dialog.Message("Notice",a);

الناتج :

كود PHP:


song.mp3

** - اذ أردنا هنا استبعاد اللاحقة و كتابة فقط اسم الملف سأظطر لتعديل طفيف في الكود

كود:

All,a,b = string.match("AutoPlay\\Audio\\song.mp3", "(.-)([^\\]-([^\\%.]+))$")
name = string.match (a, ".+%.")
result = Dialog.Message("Notice",name);

** اذ أردنا استخلاص اللاحقة واضح جدا هي آخر تعبير b

كود PHP:


All,a,b = string.match("AutoPlay\\Audio\\song.mp3", "(.-)([^\\]-([^\\%.]+))$")
result = Dialog.Message("Notice",b);

هذا فقط للتوضيح و امكانية الدالة و الاستخلاصات المفيدة كثيرة جدا

وسأعطيك على نفس الصفحة استعمال آخر للدالة لاحدى تساؤلاتك السابقة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-02-2015, 12:26 AM

و حتى لا يبق الكود موجه فقط للتعامل مع المسارات

كنت يوما تبحث عن تجزئة رقم وفق علامة
هنااا

هاك حلا آخر باستعمال هذه الدالة
[html]_,x,y = string.match (tostring ("1.40"), "^([%+%-]?)(%d*)%.?(.*)$")
Dialog.Message("Notice",x);
Dialog.Message("Notice",y);[/html]

موفق

لاتتوقف عند اكواد البرنامج فتتوقف طموحك البرمجية معها

إعـــــــلان

كيف يتم استداعاء ملفات mp3 الى ليست بوكس

كيف يتم استداعاء ملفات mp3 الى ليست بوكس

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك