ســـؤال في حلقات التكرار for

[ياسرهتهت]

بسم الله الرحمن الرحيم

عند عشر مجلدات في مجلد Audio الخاص بالبرنامج
وكل مجلد من العشرة يحتوي على ملفاتmp3
مسمى بشكل التالي

http://b.top4top.net/p_303fjnc51.jpg



وفي صفحة المشروع يوجد عشرة ComboBox مسمى بشكل التالي

http://b.top4top.net/p_3038pv1y1.jpg

http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif الســـــــــــــؤال ؟ (1)

لجعل ComboBox1 يحتوي على الملف الاول من العشر مجلدات
والــ ComboBox2 يحتوي على الملف االثاني من العشر مجلدات
وهكـــــــــــــذ مع باقي ComboBox والملفات

استخدمت هذا الكود

Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
files = File.Find(s, "*.*", false, false, nil, nil);
if files ~=nil then
for i, m in pairs(files )do
ComboBox.AddItem("ComboBox"..i, String.SplitPath(m ).Filename,(m) );

end
end
end
end

الكود يعمل بشكل جيد
http://www.abc4web.net/vb/images/icons/cubes.gifهل هذاالكود صحيح هل يوجد افضل منه ؟؟؟؟


http://www.abc4web.net/vb/images/icons/abc4web_ico_02.gif الســـــــــــــؤال ؟ (2)

كيف بستخدام حلقت التكرار for استدعاء
ملفات المجلد 1 الي ComboBox1
ملفات المجلد 2 الي ComboBox2
ملفات المجلد 3 الي ComboBox3
وهكـــــــــــــــذ الـــــــــي
ملفات المجلد 10 الي ComboBox10

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

:abc_152::abc_152:

[ثامر أبو بلقيس]

for k=1,10 do
ComboBox.ResetContent("ComboBox"..k);
Audio_Fold = File.Find(_SourceFolder.."\\AutoPlay\\Audio\\New Folder ("..k..')', "*.*", false, false, nil, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
ComboBox.AddItem("ComboBox"..k, String.SplitPath(s).Filename,s );
end
end
end

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
الحل أعلاه أتوقع أنه يفي بالغرض لكن إذ كان السؤال ضروري فيه التعديل على الكود المطروح
فهنا سأفكر بطريقة مختلفة و هي لدي مجلدات تحمل تسميات حرفية ورقمية العلاقة الوحيدة بينها و بين عناصر الــ ComboBox
هي الرقم بحيث تسمية المجلد في جزئبة الرقم لها علاقة مباشرة بتسمية الــ ComboBox في الجزء الرقمي بغض النظر على تسمية
المجلد مهما كان فقط يجب أن يشمل رقما وهذا الرقم معبر عن رقم الــ ComboBox

نستخلص الرقم فقط من أي تسمية المجلد و نربطه ب ComboBox المناسب

نجرب
Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
for p =1, #Audio_Fold do
ComboBox.ResetContent("ComboBox"..p);
end
for i,s in pairs(Audio_Fold)do
n= string.match (String.SplitPath(s).Filename, "%d+")
files = File.Find(s, "*.*", false, false, nil, nil);
for u,s1 in pairs( files)do
ComboBox.AddItem("ComboBox"..n, String.SplitPath(s1).Filename,s1 );
end
end

[ربيع]

Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
for i,s in pairs(Audio_Fold)do
n= string.match (String.SplitPath(s).Filename, "%d+")
ComboBox.ResetContent("ComboBox"..n);
files = File.Find(s, "*.*", false, false, nil, nil);
for u,s1 in pairs( files)do
ComboBox.AddItem("ComboBox"..n, String.SplitPath(s1).Filename,s1 );
end
end

[ياسرهتهت]

بسم الله الرحمن الرحيم

http://www.abc4web.net/vb/images/icons/icon_z.gif شــــكرا لك استاذنا الفاضل http://www.abc4web.net/vb/images/icons/icon_z.gif

دائما اكــــــــوادك كـــــــــــــــافية شـــــــــــــافية

http://e.top4top.net/p_304fznss1.gif

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

[ياسرهتهت]

Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
for i,s in pairs(Audio_Fold)do
n= string.match (String.SplitPath(s).Filename, "%d+")
ComboBox.ResetContent("ComboBox"..n);
files = File.Find(s, "*.*", false, false, nil, nil);
for u,s1 in pairs( files)do
ComboBox.AddItem("ComboBox"..n, String.SplitPath(s1).Filename,s1 );
end
end
-------------------------------------
بسم الله الرحمن الرحيم


http://e.top4top.net/p_304cdjdl1.gif



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

[احمد كبه]

السلام عليكم اني جربت البرنامج و الاكواد تعمل بشكل صحيح لكن الميدريا بلاير لايعمل معي

[ثامر أبو بلقيس]

السلام عليكم اني جربت البرنامج و الاكواد تعمل بشكل صحيح لكن الميدريا بلاير لايعمل معي


بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته

ضع ملفا مفتوحا موفق

[احمد كبه]

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

[ياسرهتهت]

هذا المقف المرفق اريد توضيح مثلا فيه كومبو بوكس يحوي على عناوين محاضرات صوتية اريد عند الضغط على المحاضرة الصوتية يعمل الميديا بلاير
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
------------------------------------
بسم الله الرحمن الرحيم
اخي احمد ملفك المرفق لم يوضح اي شيء
اين تضع الملفات الصوتية ؟ هل هي مجلد واحد او عدد من المجلدات ؟

سافترض انك تضع الملفات الصوتية في مجلد اسمة MLFAT- MP3 داخل مجلد البرنامج Audio

بهذا الشكل

http://c.top4top.net/p_325gqhq91.gif

حمل الملف المفتوح


http://up.top4top.net/downloadf-3259rw9c1-rar.html

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

[احمد كبه]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
البرنامج الان يعمل بشكل مثالي شكرا جزيلا لك استاذي