طلب كود اضافة ملف صوتي الى ليست بوكس وتحديث الصفحة في نفس الوقت

[محمد بن أحمد أبو حذيفة]

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

السلام عليكم

الملف المفتوح بعد التعديل (http://up.top4top.net/downloadf-416gq2am1-7z.html)


انا استعمل هذا الكود

DESKTOP = Shell.GetFolder(SHF_DESKTOP);
CheckBox1 = CheckBox.GetChecked("CheckBox1");
--CheckBox2 = CheckBox.GetChecked("CheckBox2");
if (CheckBox1 == true) then
ade = Current.."\\AutoPlay\\Audio\\1\\";
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("شكرا", "لقد تم إضافة الملفات إلى الصفحة الأولى بنجاح", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end
end

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

كذلك كيف يمكن التخلص من رسالة الخطا عندما يكون الملف الذي يحمل رقم 1 فارغا
\\AutoPlay\\Audio\\1\\

كيف يمكن التحكم في اظهار واخفاء زر الاضافة عن طريقة CheckBox
بحيث اذا كان مفعل يفعل الزر
واذا كان العكس لايفعل

[محمد بن أحمد أبو حذيفة]

كود CheckBox

result = CheckBox.GetChecked("CheckBox1");
if result then


Button.SetVisible("Button1", true);
else

Button.SetVisible("Button1", false);
end

[محمد بن أحمد أبو حذيفة]

الحمد لله تم التخلص من رسالة الخطا عن تحميل الملفات التلقائي بهذا الكود

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 ;

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

[محمد بن أحمد أبو حذيفة]

بقي شيئ اخر
هو عندما الضغط على اليست بوكس في الرفاغ يخرج خطا

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
بالنسبة لكود الحذف من ليست بوكس
هل هذا الكود جيد ام فيه اضافة
local nSelected1 = ListBox.GetSelected("ListBox1");
MediaPlayer.Stop("Plugin1");
if nSelected1 then
conferm = Dialog.Message("تأكيد", "هل أنت متأكد من حذف الشريط", MB_YESNO);
if conferm == 6 then
local data = ListBox.GetItemData("ListBox1", nSelected1[1]);
-- MediaPlayer.Stop("Plugin1");

File.Delete(data, false, false, false, nil);
ListBox.DeleteItem("ListBox1", -1);


ListBox.SelectItem("ListBox1", nSelected1[1]);
else
MediaPlayer.Play("Plugin1");

end
end

[محمد بن أحمد أبو حذيفة]

بفضل الله ثم مساعدة الاخ
المهاجر

تم الووصل الى طريق تحيد الصفة دون اكواد

الملف المفتوح (http://up.top4top.net/downloadf-4176jpah1-7z.html)

بقي حل مشكلة الخطا عند الضغط غب الفراغ في اليست بوكس

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
هذا الكود لنسخ لتميل ملف من الجهاز ويظهر في ليست بوكس
هل ممكن التعديل عليه بحيث اذا كان موجود يخبرك بانه موجود وتريد الكتاب عليه او يعطيك خيار تغير الاسم او الالغاء

DESKTOP = Shell.GetFolder(SHF_DESKTOP);
CheckBox1 = CheckBox.GetChecked("CheckBox1");
--CheckBox2 = CheckBox.GetChecked("CheckBox2");
--if (CheckBox1 == true) then
ade = Current.."\\AutoPlay\\Audio\\1\\";
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Page.Jump("Page2");

end

[المـهاجر]

الأكواد الصحيحة فى السيناريو الخطأ = خطأ
اشك فى كونك تتبع السيناريو الصحيح فى المقام الاول
لذلك
ماذا تريد ان تفعل تحديدا ؟؟
لماذا تريد نسخ الملفات لمجلد البرنامج ؟

او ببساطة
ما هى فكرة المشروع باختصار ؟

[محمد بن أحمد أبو حذيفة]

الأكواد الصحيحة فى السيناريو الخطأ = خطأ
اشك فى كونك تتبع السيناريو الصحيح فى المقام الاول
لذلك
ماذا تريد ان تفعل تحديدا ؟؟
لماذا تريد نسخ الملفات لمجلد البرنامج ؟

او ببساطة
ما هى فكرة المشروع باختصار ؟

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

[عبود عبود]

إن شاء الله أتابع معك ولكن حوالى الساعة 7 أو 8 اليوم بتوقيت القاهرة "مصر"

[محمد بن أحمد أبو حذيفة]

إن شاء الله أتابع معك ولكن حوالى الساعة 7 أو 8 اليوم بتوقيت القاهرة "مصر"

ان شاء الله

بارك الله فيك ورحمك
هذا الملف المتوح الاخير بعد التعديل عليه
http://up.top4top.net/downloadf-418t3qds1-7z.html

[عبود عبود]

عذرا للتأخير جارى الإطلاع وعمل اللازم

[المـهاجر]

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

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

الملف المفتوح المعدل مرفق
ستجد به بعض تقنيات قد تكون غير معتاد عليها
اتمنى ان تستخدمه فيما يرضى الله فهو وحده الرقيب عليك

[محمد بن أحمد أبو حذيفة]

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

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

الملف المفتوح المعدل مرفق
ستجد به بعض التقنيات المختلفة عن المعتاد
اتمنى ان تستخدمه فيما يرضى الله فهو وحده الرقيب عليك

بارك الله فيك
زر الحذف الاول لا يعمل ويظهر خطا
كذلك الكود لا يتعرف على المف انه موجود

[عبود عبود]

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

وهذا تعديل آخر ربما يفيدك "لم أرى مشاركة أخى المهاجر حتى الآن فربما تكون أفضل فـــ عاين ملفى وملف الأخ المهاجر وإختر ما تريد وحاول فهم الأكواد " :


عموما وضعت لك زرين راديو بوتون لتفعيل زر الإضافة أوتفعيل زر الحذف

تم ضبط الأكواد فى لزر الحذف وزر الإضافة و فى حدث الصفحة فى أون شو

[المـهاجر]

حسنا
إستبدل كود هذا الزر بهذا الكود
local nSelected1 = ListBox.GetSelected("ListBox1");
MediaPlayer.Pause("Plugin1");
conferm = Dialog.Message("تأكيد", "هل أنت متأكد من حذف كل الأشرطة", MB_YESNO);
if conferm == 6 then
File.Delete(_SourceFolder.."\\AutoPlay\\Audio\\1\\".."*.mp3", false, false, false, nil);
ListBox.DeleteItem("ListBox1", -1);
Dialog.Message("شكرا", "لقد تم حذف الملفات نهائيا, لا يمكنك استرجاعها مستقبلا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

[عبود عبود]

تأخرت عليك ولكنى مجهد للغاية فـــــ تصبحوا على خير ولى لقاء معكم إن شاء الله يوم السبت " إلى العمل غدا وبعد غد "يومين متواصلين بدون إنترنت " :abc_138:

[عبود عبود]

آه نسيت أقولك كنت عاوز أعملك حذف بالجملة " يعنى ملتى سليكت من الليست بوكس " يعنى إختيار أكثر من عنصر وحذفهم فى نفس الوقت لكن تقريبا ولست متأكدا " مجهد للغاية " من كفائة عمل الكود فى هذه الحالة ........ فربما تجد من يعدل هذا الخطأ إن وجد ...... " بالنسبة للملف من طرفى "

جرب وإبقى قولى على النتيجة


:abc_138:

[محمد بن أحمد أبو حذيفة]

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

وهذا تعديل آخر ربما يفيدك "لم أرى مشاركة أخى المهاجر حتى الآن فربما تكون أفضل فـــ عاين ملفى وملف الأخ المهاجر وإختر ما تريد وحاول فهم الأكواد " :


عموما وضعت لك زرين راديو بوتون لتفعيل زر الإضافة أوتفعيل زر الحذف

تم ضبط الأكواد فى لزر الحذف وزر الإضافة و فى حدث الصفحة فى أون شو

بارك الله فيك اخي عبود

زر الاضافة عندما يكون المف موجود ونضغط لا يظهر وار لقد تم اضافة الملف

[المـهاجر]

كود موفق استاذ عبود

و لصاحب الاستفسار
يمكنك الدمج بين المشروعين
افتح المشروعين معا و لا تقلق فالأزرار فى وضع التصميم تتقبل كوبى و بيست للزر بأكمله بين المشاريع (دون فتح الاكواد)

[محمد بن أحمد أبو حذيفة]

آه نسيت أقولك كنت عاوز أعملك حذف بالجملة " يعنى ملتى سليكت من الليست بوكس " يعنى إختيار أكثر من عنصر وحذفهم فى نفس الوقت لكن تقريبا ولست متأكدا " مجهد للغاية " من كفائة عمل الكود فى هذه الحالة ........ فربما تجد من يعدل هذا الخطأ إن وجد ...... " بالنسبة للملف من طرفى "

جرب وإبقى قولى على النتيجة


:abc_138:

بارك الله فيك ورحمك

[عبود عبود]

بارك الله فيك اخي عبود

زر الاضافة عندما يكون المف موجود ونضغط لا يظهر وار لقد تم اضافة الملف

إزاى بس مش فاهم إنظر لهذة الصورة من عندى أثناء المعاينة وإضافة ملف هو موجود مسبقا :


http://i.imgur.com/fssGu5c.png

[المـهاجر]

هذا الطلب غير منطقى
كيف عندما يكون الملف موجود يظهر حوار لقد تم اضافة الملف ؟؟

[محمد بن أحمد أبو حذيفة]

انظر اخي عبود
الصورة الاولى
http://a.top4top.net/p_418qatqz1.png (http://up.top4top.net/)

وانظر بعد الضغط على لا

http://b.top4top.net/p_418fg0em2.png (http://up.top4top.net/)

[عبود عبود]

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله :abc_152:

[عبود عبود]

سلام الله أحياكم ورب العرش نجاكم وإن غبتم عن العين فالقلب لن ينساكم :abc_138:

[محمد بن أحمد أبو حذيفة]

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله :abc_152:
بارك الله فيك الله يسهل

[المـهاجر]

آه أه تمام

دى مسألة تنظيم للكود فقط لا غير

إن شاء الله أخى المهاجر يعدل لك المطلوب ويخفى لك هذه الرسالة فى حالة الضغط على no

أعتذر لك علشان رايح الشغل بكره وبعدة وسأعود يوم السبت إن شاء الله

إن لم يستطيع أحد مساعدتك سوف نتابع يوم السبت إن شاء الله :abc_152:

ان شاء الله
فالكل يساعد من يخدم المسلمين بأى شكل

[ياسرهتهت]

بسم الله الرحمن الرحيم
بارك الله في الاساتذة الكرام
متابع معكم للفائدة
موفقين بإذن الله ... لكم مني أجمل تحية .

[محمد بن أحمد أبو حذيفة]

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

sd = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1");
if sd~=true then
Folder.Create(_SourceFolder.."\\AutoPlay\\Audio\\1");
end
fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
dx = File.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPat h(path).Extension);
if dx~=true then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, false, false, true, nil);





else
is_ok = Dialog.Message("ÑÓÇáÉ ÊäÈíÉ", path.."\r\n\r\n".."åÐÇ ÇáãáÝ ãæÌæÏ ãÓÈÞÇ åá ÊÑíÏ ÅÓÊÈÏáÉ ¿", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_ok~=IDNO then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, true, false, true, nil);
end
end
end

StatusDlg.Hide();
code = Application.GetPageScript("Page1", "On Show");
loadstring(code)();
--Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

[محمد بن أحمد أبو حذيفة]

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

هذا الكود لحذف ملفات متعدد من ليست بوكس لكن يظهر خطا حتى نظيف به هذا السط

Current = Folder.GetCurrent();

لكن لم افهم لماذا


Checked1 = ListBox.GetChecked("ListBox1", BST_CHECKED);
if (Checked1 == nil) then
Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
r000654lt = Table.Count(Checked1);
nnn = ""
nnn = nnn..":"
nnn = "åá ÝÚáÇ ÊÑíÏ ÍÐÝ ÇáãáÝÇÊ"
nnn = nnn.."("
nnn = nnn..r000654lt
nnn = nnn..")"
nnn = nnn.."ÇáÊÇáíÉ äåÇÆíÇ"
nnn = nnn.."\r\n"
nnn = nnn.."************************************".."\r\n"
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemText("ListBox1", path);
--re0214t = ListBox.GetItemData("ListBox1", path);
nnn =nnn.."\r\n".. index.." : "..re0214t
end
proceed = Dialog.Message("ÊÍÐíÑ", nnn, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if proceed == IDYES then
StatusDlg.Show();
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemData("ListBox1", path);
File.Delete(re0214t, false, false, false, nil);
end
error = Application.GetLastError();
StatusDlg.Hide();
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝÇÊ äåÇÆíÇ, áÇ íãßäß ÇÓÊÑÌÇÚåÇ ãÓÊÞÈáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
find_folder1 = File.Find(Current.."\\AutoPlay\\Audio\\1", "*.mp3*", true, false, current_path_file_searched, file_found_ok);
if find_folder1~=nil then
for x1,y1 in pairs(find_folder1) do
path_parts1 = String.SplitPath(y1);
ListBox.AddItem("ListBox1", path_parts1.Filename, y1);
end
end
end
end

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
هذا الكود للقراة المتاللية من ليست بوكس
Count = ListBox.GetCount("ListBox1");

Selected= ListBox.GetSelected("ListBox1");
if Selected[1] < Count then
ListBox.SelectItem("ListBox1", Selected[1]+1);
elseif Selected[1] == Count then
ListBox.SelectItem("ListBox1", 1);


end

لكن ماذا اذا كان في المشروع اكثر من لست بوكس
ونريد ان يجعل القراء متتالية لكل واحدة منهم

[المـهاجر]

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

هذا الكود لحذف ملفات متعدد من ليست بوكس لكن يظهر خطا حتى نظيف به هذا السط

Current = Folder.GetCurrent();

لكن لم افهم لماذا


Checked1 = ListBox.GetChecked("ListBox1", BST_CHECKED);
if (Checked1 == nil) then
Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
r000654lt = Table.Count(Checked1);
nnn = ""
nnn = nnn..":"
nnn = "åá ÝÚáÇ ÊÑíÏ ÍÐÝ ÇáãáÝÇÊ"
nnn = nnn.."("
nnn = nnn..r000654lt
nnn = nnn..")"
nnn = nnn.."ÇáÊÇáíÉ äåÇÆíÇ"
nnn = nnn.."\r\n"
nnn = nnn.."************************************".."\r\n"
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemText("ListBox1", path);
--re0214t = ListBox.GetItemData("ListBox1", path);
nnn =nnn.."\r\n".. index.." : "..re0214t
end
proceed = Dialog.Message("ÊÍÐíÑ", nnn, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if proceed == IDYES then
StatusDlg.Show();
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemData("ListBox1", path);
File.Delete(re0214t, false, false, false, nil);
end
error = Application.GetLastError();
StatusDlg.Hide();
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝÇÊ äåÇÆíÇ, áÇ íãßäß ÇÓÊÑÌÇÚåÇ ãÓÊÞÈáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
find_folder1 = File.Find(Current.."\\AutoPlay\\Audio\\1", "*.mp3*", true, false, current_path_file_searched, file_found_ok);
if find_folder1~=nil then
for x1,y1 in pairs(find_folder1) do
path_parts1 = String.SplitPath(y1);
ListBox.AddItem("ListBox1", path_parts1.Filename, y1);
end
end
end
end

الكود يحذف ملفات mp3 من المجلد بشكل صحيح
و لا يحدث الليست بشكل صحيح
لكن طالما ان كل ما يشغلك هو
Current = Folder.GetCurrent

Current
متغير محلى يستخدمه الكود المطروح و فى السطر التاسع من الأسفل
و هذا هو سطر الاعلان عنه
Current = Folder.GetCurrent

حاول ضبط اللغة العربية فى محرر الكود الخاص بك لأن الكود بصورته الحالية لن يعمل على اجهزه باقى الزملاء

موفق

[محمد بن أحمد أبو حذيفة]

الكود يحذف من المجلد بشكل صحيح
و لا يحدث الليست بشكل صحيح
لكن طالما ان كل ما يشغلك هو
current = folder.getcurrent

current
متغير محلى يستخدمه الكود المطروح و فى السطر التاسع من الأسفل
و هذا هو سطر الاعلان عنه
current = folder.getcurrent

حاول ضبط اللغة العربية فى محرر الكود الخاص بك لأن الكود بصورته الحالية لن يعمل على اجهزه باقى الزملاء

موفق


بارك الله فيك
ماذا عن الميديا بلاير
وما هو الكود المسوؤل عن تحديث الصفحة في زر الحدف وكيف يتم التعديل عليه

[المـهاجر]

ماذا عن الميديا بلاير


ماذا عنها ؟؟
هل قمت باالاستفسار بصددها و لم الاحظ ؟؟


وما هو الكود المسوؤل عن تحديث الصفحة في زر الحدف وكيف يتم التعديل عليه

الكود ربما ناقص او غير مكتمل
لا علاقة لتحديث الصفحة بكل ماسبق

[محمد بن أحمد أبو حذيفة]

ماذا عنها ؟؟
هل قمت باالاستفسار بصددها و لم الاحظ ؟؟

نعم هنا
http://www.abc4web.net/vb/showpost.php?p=309945&postcount=32


الكود ربما ناقص او غير مكتمل
لا علاقة لتحديث الصفحة بكل ماسبق
واين النقص فيه

بالنسبة للميديا
http://www.abc4web.net/vb/showpost.php?p=309945&postcount=32

[المـهاجر]

واين النقص فيه


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


http://www.abc4web.net/vb/showpost.php?p=309945&postcount=32

انت ذكرت ان الكود يعمل و كل ما ينقصك هو تطبيقه على باقى الليست


بسم الله الرحمن الرحيم
هذا الكود للقراة المتاللية من ليست بوكس
count = listbox.getcount("listbox1");

selected= listbox.getselected("listbox1");
if selected[1] < count then
listbox.selectitem("listbox1", selected[1]+1);
elseif selected[1] == count then
listbox.selectitem("listbox1", 1);
end

لكن ماذا اذا كان في المشروع اكثر من لست بوكس
ونريد ان يجعل القراء متتالية لكل واحدة منهم


ان لم يكن كذلك فقم بتوضيح مشكلتك بوضوح اكثر

[محمد بن أحمد أبو حذيفة]

تفضل كود الحذف

Current = Folder.GetCurrent();
----------------
Checked1 = ListBox.GetChecked("ListBox1", BST_CHECKED);
if (Checked1 == nil) then
Dialog.Message("ÊäÈíå", "íÌÈ ÇÎÊíÇÑ ÇáãáÝÇÊ ÃæáÇ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
r000654lt = Table.Count(Checked1);
nnn = ""
nnn = nnn..":"
nnn = "åá ÝÚáÇ ÊÑíÏ ÍÐÝ ÇáãáÝÇÊ"
nnn = nnn.."("
nnn = nnn..r000654lt
nnn = nnn..")"
nnn = nnn.."ÇáÊÇáíÉ äåÇÆíÇ"
nnn = nnn.."\r\n"
nnn = nnn.."************************************".."\r\n"
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemText("ListBox1", path);
--re0214t = ListBox.GetItemData("ListBox1", path);
nnn =nnn.."\r\n".. index.." : "..re0214t
end
proceed = Dialog.Message("ÊÍÐíÑ", nnn, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if proceed == IDYES then
StatusDlg.Show();
for index, path in pairs(Checked1) do
re0214t = ListBox.GetItemData("ListBox1", path);
File.Delete(re0214t, false, false, false, nil);
end
error = Application.GetLastError();
StatusDlg.Hide();
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÍÐÝ ÇáãáÝÇÊ äåÇÆíÇ, áÇ íãßäß ÇÓÊÑÌÇÚåÇ ãÓÊÞÈáÇ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
find_folder1 = File.Find(Current.."\\AutoPlay\\Audio\\1", "*.mp3*", true, false, current_path_file_searched, file_found_ok);
if find_folder1~=nil then
for x1,y1 in pairs(find_folder1) do
path_parts1 = String.SplitPath(y1);
ListBox.AddItem("ListBox1", path_parts1.Filename, y1);
end
end
end
end

كود الميديا بلاير

Count = ListBox.GetCount("ListBox1");

Selected= ListBox.GetSelected("ListBox1");
if Selected[1] < Count then
ListBox.SelectItem("ListBox1", Selected[1]+1);
elseif Selected[1] == Count then
ListBox.SelectItem("ListBox1", 1);


end




انا استعمل هذا الكود ويعمل بشكل جيد
لكن في المشروع الذي اعمل عليه استعمل 2 ليست بوكس
الاولى لعرض الملفات
والثنية تعرض المفات التي يخرجها زر البحث في اليست بوكس 1
ويتم قارة الاثنين في ميديا بلاير واحد
فكيف اجعل الكود يشغل القراءة المتتالية من كل من اليست بوكس 1 و2

[محمد بن أحمد أبو حذيفة]

تفضل الملف المفتوح
في المرفق

[المـهاجر]

لم تقم بإصلاح اللغة العربية كما نصحتك
لا زال الكود غير مقبول بالمحرر
هل تخجل من السؤال عن طريقة الاصلاح ؟؟

قم بفتح محرر الاسكربت لأى زر أو صفحة بالضغط المزدوج على الزر او الصفحة
اضغط Alt + Enter

فى اسفل النافذة و فى القسم font اضغط على Change
اختر اى خط يدعم العربية و تأكد من الحقل Script مضبوط على Arabic

[المـهاجر]

حملت ملفك المفتوح
سبق و نصحتك بالمزج بين كائنات الملفين المفتوحين

حاليا انت تتقدم خطوة و ترجع خطوتين
رجعت مرة اخرى لرسالة الخطأ عند الضغط فى مكان خال من الليست

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

[محمد بن أحمد أبو حذيفة]

لم تقم بإصلاح اللغة العربية كما نصحتك
لا زال الكود غير مقبول بالمحرر
هل تخجل من السؤال عن طريقة الاصلاح ؟؟

قم بفتح محرر الاسكربت لأى زر أو صفحة بالضغط المزدوج على الزر او الصفحة
اضغط alt + enter

فى اسفل النافذة و فى القسم font اضغط على change
اختر اى خط يدعم العربية و تأكد من الحقل script مضبوط على arabic

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

[محمد بن أحمد أبو حذيفة]

الملف الاخير بعد التعديل والدمج بين المفين المفتوحين

[المـهاجر]

قبل البدء
هل هناك سبب وجيه للبدء دائما من عند الديسكتوب حصريا عندما يضيف المستخدم الملفات ؟؟

[محمد بن أحمد أبو حذيفة]

قبل البدء
هل هناك سبب وجيه للبدء دائما من عند الديسكتوب حصريا عندما يضيف المستخدم الملفات ؟؟

لم افهم مقصدك

[المـهاجر]

عند الضغط على زر اضافة ملفات
يبدأ المستعرض من عند الديسكتوب
هل هناك سبب للبدء تحديدا من هناك ؟؟

[محمد بن أحمد أبو حذيفة]

عند الضغط على زر اضافة ملفات
يبدأ المستعرض من عند الديسكتوب
هل هناك سبب للبدء تحديدا من هناك ؟؟



فهمت مقصدك المهم يستعرض الملفات ويضيف مايحتاج

[المـهاجر]

حسنا
لا تجهد المستخدم بجعله يبدأ من الديسكتوب للوصول لمجلد الاضافة
استبدل السطر المعادل فى زر الاضافة ب
fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", "", "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);

سيتذكر البرنامج آخر مجلد و سيفتحه للمستخدم اوتوماتيكيا
حتى بعد غلق البرنامج و فتحه ... حتى بعد غلق الجهاز و فتحه

[المـهاجر]

كود زر الاضافة كاملا بعد اضافة ما يتعلق باضافة العناصر لليست
و حذف ما يتعلق بتحديث الصفحة (لا ضرورة)
sd = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1");
if sd~=true then
Folder.Create(_SourceFolder.."\\AutoPlay\\Audio\\1");
end
fileade = Dialog.FileBrowse(true, "اختر الملفات التي تريد إضافتها", "", "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
dx = File.DoesExist(_SourceFolder.."\\AutoPlay\\Audio\\1\\"..String.SplitPath(path).Filename..String.SplitPat h(path).Extension);
if dx~=true then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, false, false, true, nil);
ListBox.AddItem("ListBox1", String.SplitPath(path).Filename, path);
else
is_ok = Dialog.Message("رسالة تنبية", path.."\r\n\r\n".."هذا الملف موجود مسبقا هل تريد إستبدلة ؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if is_ok~=IDNO then
File.Copy(path, _SourceFolder.."\\AutoPlay\\Audio\\1\\", false, true, false, true, nil);
Dialog.Message("شكرا", "لقد تم إضافة الملفات إلى الصفحة الأولى بنجاح", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end
end

StatusDlg.Hide();
end

[محمد بن أحمد أبو حذيفة]

بارك الله فيك
ماذا عن الميدايبلاير

[المـهاجر]

متجه اليه الان

[محمد بن أحمد أبو حذيفة]

متجه اليه الان

رحمك الله وجعل مثواك الجنة ووجهك الى الطريق المستقيم

[المـهاجر]

حسنا
لنفرض ان الليست الأساسى به 10 اشرطة
و ليست البحث به 3 اشرطة

اى ليست تريد للميديا بلاير ان تشغل و بأى ترتيب ؟؟

ليست = listbox

تحديث
(تم التوصل للحل مع تجاهل السؤال لعدم ضرورته)

[المـهاجر]

حسنا .. تجاهل سؤالى السابق
استبدل الكود فى الليستبوكس 1 و الليستبوكس2 أيضا بنفس هذا الكود
num = ListBox.GetSelected(this);
if num == nil then
Application.ExitScript();
end

SONG = ListBox.GetItemData(this, num[1]);
list = this
MediaPlayer.Load("Plugin1", SONG);
Button.SetVisible("Btn_Pause", true);
Button.SetVisible("Btn_Play", false);
Progress.SetRange("Progresso",0, Audio.GetLength(CHANNEL_BACKGROUND));
Page.StartTimer(500,1)

استبدل كود الميديا بلاير ب
Count = ListBox.GetCount(list);

Selected= ListBox.GetSelected(list);
if Selected[1] < Count then
ListBox.SelectItem(list, Selected[1]+1);
elseif Selected[1] == Count then
ListBox.SelectItem(list, 1);
end

بهذه الطريقة لو اضفت 100 ليستبوكس فسيعمل الجميع بلا مشاكل و دون الحاجة لآى تعديلات
جرب المرفق و خبرنى

[محمد بن أحمد أبو حذيفة]

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

[محمد بن أحمد أبو حذيفة]

بقي شيء اخر
كيف اجعل الاسطوانة تقبل التثبيت على القرص الصلب
اي البرامج استعمل

[المـهاجر]

استخدم Setup Factory
و هو شقيق للأوتوبلاى من نفس الشركة الأم indigorose و له رابط بالمنتدى

[المـهاجر]

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

أمين
و جزاك الله خير الدارين و اعانك على الطاعات

[ياسرهتهت]

بسم الله الرحمن الرحيم
بارك الله فيك استاذ المهاجر
مجموعة اكواد احترافية تحتوي على دروس قيمة
جازك الله الف خير
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[محمد بن أحمد أبو حذيفة]

أمين
و جزاك الله خير الدارين و اعانك على الطاعات

اذا كان لك وقت دعنا نستفيض في الموضوع
فنستفيد ويستفيد باقي الاعضاء

اذا اضفنا عنصر

RadioButton
واعطيناه الامر انه اذا كان مدد تحدد كل عناصر اليست بوكس والعكس

[المـهاجر]

تحديد الكل
فى الحدث اون كليك للراديو بوتون
if list == nil then
Dialog.Message("Notice", "قم بتحديد قائمة أولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else

local ch = RadioButton.GetChecked(this);
if ch then
count = ListBox.GetCount(list);
for i = 1,count do
ListBox.SetItemCheck(list, i, BST_CHECKED);
end
ListBox.SelectItem(list, 1);
end

end


الغاء تحديد الكل
فى الحدث اون كليك للراديو بوتون
if list == nil then
Dialog.Message("Notice", "قم بتحديد قائمة أولا", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else

local ch = RadioButton.GetChecked(this);
if ch then
count = ListBox.GetCount(list);
for i = 1,count do
ListBox.DeselectItem(list, i);
ListBox.SetItemCheck(list, i, BST_UNCHECKED);
end
end

end


طبعا يعتمد ذلك على استخدام الملف المفتوح الأخير المقدم لك من طرفى
لأن به تعريف المتغير list
هذا سيعفيك من عمل راديو بوتون مستقل لكل ليست
بمجرد تحديد ليستبوكس سيتوجه كود الراديو بوتون نحوه أليا
موفق

[المـهاجر]

بسم الله الرحمن الرحيم
بارك الله فيك استاذ المهاجر
مجموعة اكواد احترافية تحتوي على دروس قيمة
جازك الله الف خير
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

بارك الله فيك استاذ ياسر
شكرا للمرور و المتابعة
:abc_152::abc_152::abc_152:

[محمد بن أحمد أبو حذيفة]

بارك الله فيكم جميعا
تمت الافادة وزيادة

زادك الله خيرا

[أبو قصي]

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