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

[محمد مصطفى الجن]

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

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

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

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

[أبو محسن]

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

[محمد مصطفى الجن]

اخى الفكرة واضحة وبسيطة جدا

صفحة داخل التجمعية تحتوى على ثلاث ازرار لكل زر مهمة معينة

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

[خادم المسلمين]

فكرة جميلة ان شاء الله فى طريق الاحتراف ستجد الاجابة

ولكن لى ملحوظة

هو انت ليه مسمى نفسك
الصورة الرمزية محمد مصطفى الجن

بعد اسمين من اسماء النبى صلى الله عليه وسلم
اسم الجن.

[محمد مصطفى الجن]

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

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

استغل ListBox

[محمد مصطفى الجن]

ارجو التوضيح اخى الكريم ان امكن

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

سأضع تصور لك ان تكمله و تعدله حسب ما تبغي

مثلا لو نفتح معا مشروعا جديدا و تضع برنامجين في مجلد Docs
- ضمن صفحة العمل ListBox ولتكن ListBox1
في هذا العنصر و في الحدث on double click مثلا
نزرع الكود :
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
sFilePath = ListBox.GetItemData("ListBox1", tSelected[1]);
File.Open(sFilePath, "", SW_SHOWNORMAL);
else
end

- بعدها نتوجه لصفحة المشروع وفي on show
نضع الكود التالي :
bFound = Folder.DoesExist("AutoPlay\\Docs\\");
if bFound == true then
tFiles = File.Find("AutoPlay\\Docs\\", "*", false, false, nil, nil);
if tFiles then
for i,sFilePath in tFiles do
tFileParts = String.SplitPath(sFilePath);
sFileName = tFileParts.Filename;
sFileExtension = tFileParts.Extension;
sFullFileName = sFileName..sFileExtension;
ListBox.AddItem("ListBox1", sFullFileName, sFilePath);
end
end
end

بعد المعاينة قد تظهر عناوين الملفات و بالضغط مرتين سيتم فتحها

=================================================
سنتحتاج قلنا إلى زر يضيف للتجميعية و في نفس المجلد برامج أو ملفات أخرى

نعود إلى مساحة العمل
_ نضع زر و ستخصصه لإضافة برامجك المفضلة ونزرع فيه :
result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, true);
if (result[1] ~= "CANCEL") then
File.Copy(result[1], _SourceFolder.."\\AutoPlay\\Docs\\", true, true, false, true, nil);
end

سينتقل الملف المحدد للمجلد Docs " لن يظهر لك ينقص تحديث حتى يظهر لكن
بمجرد فتح التجميعية مرة ثانية ستجده قد أصيف و يعمل "

================================================== ====

نريد زر لحذف البرنامج المحدد
ضع زرا جديد في تجميعيتك وازرع
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
sFilePath = ListBox.GetItemData("ListBox1", tSelected[1]);
File.Delete(sFilePath, false, false, false, nil);
ListBox.DeleteItem("ListBox1", tSelected[1]);
else
end

سيتم الحذف نهائيا ؟؟ لهذا جمع و عدل و ضف حسب ما ترغب

هذا مادار في ذهني ريثما يفيدك المختصون سلام :abc_138:

[محمد مصطفى الجن]

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

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

فعلا أخي الكريم لكن ماذكرته اشرت لك به http://im38.gulfup.com/77ArA.gif (http://www.gulfup.com/?wTHdn4)
مازال لم اتوصل للتحديث
يمكنك تغيير الحذف للملفات بأكواد تحويل مكانها لمجلد آخر في التجميعة
ربما لو تحاول مع File.Move قد تجد ما تبحث عنه

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

اذ لم تجد حل

ضف زر جديد و ليكن " تحديث قائمة البرامج"
وازرع فيه
ListBox.DeleteItem("ListBox1", -1);
bFound = Folder.DoesExist(_SourceFolder.."\\AutoPlay\\Docs\\");
if bFound == true then
tFiles = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\", "*", false, false, nil, nil);
if tFiles then
for i,sFilePath in tFiles do
tFileParts = String.SplitPath(sFilePath);
sFileName = tFileParts.Filename;
sFileExtension = tFileParts.Extension;
sFullFileName = sFileName..sFileExtension;
ListBox.AddItem("ListBox1", sFullFileName, sFilePath);
end
end
end


هذه كلها مقترحات لأن في عملك النهائي المسارات و التسميات مهمة

[محمد مصطفى الجن]

مشكر اخى جارى المحاولة بتطبيق ماذكرته ربما يأتى الحل

[محمد مصطفى الجن]

تظهر هذه الرسالة عند الضغط على زر تحديث ولا يظهر اى برنامج

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

أنا أعمل على الاصدار السابع
عدل على الاكواد حتى تتوافق :abc_138: في الدالة التكرارية

for i,sFilePath in pairs (tFiles) do

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

[محمد مصطفى الجن]

مشكوووووووووووووووووووووو وووور أخى الكريم نجح الامر اخيرا

ولكن كان عندى طلب سخيف معلش اعذرنى

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

ثانيا عند الضغط على زر اضافة وبعد اختيار البرنامج المرغوب فى اضافته عاوز شريط توضيحى بانتهاء الاضافة

[محمد مصطفى الجن]

فى مشكلة بسيطة اخى الكريم عاوز اغير الفولد بدل مايكون فولدر الدوس يعنى البرامج الى المستخدم هيضيفها تروح لفولدر لوحدها لان لو فى الدوس معنى كدا انه هيظهر فى اللست بوكس جميع البرامج المضافة ارجو تعديل الكود وتغير فولدر الدوس الى algn22 على سبيل المثال وانا ثوف انشئ الفولدر عندى انا حاولت بس فشل ربما سهوت عن شئ ما

[محمد مصطفى الجن]

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

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

السؤال الان هلى اذا تم تشفير فولدرات البرنامج ايضا سيفشل الاضافة اليه

اذا كانت لا فما هى طريقة التشفير

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

أخي محمد ثق لا استطيع حتى فتح الاوتوبلاي الان الى حين اعادة فورمات للجهاز
لهذا وددت أن تعمل دورة على كل الأكواد المرسلة و كلما تجد كلمة Docs
تغيرها مثلا بــ Scripts وهي احد مجلدات الاوتوبلاي وبهذا سيكون كل ما يضيفه
المستخدم يجمّع فيه ويبقى الليست يتعامل مع البرامج المضافة فقط

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

موفق:abc_138:

[محمد مصطفى الجن]

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

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

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

شفر برنامج تجاري صغير متميز الفائدة يميزه عن غيره بناء وتوظيف اكواد و مصقول بفكرة
لافته مطلوبة لا تغضب مني :abc_138:

[محمد مصطفى الجن]

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

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

غدا إن شاء الله سنكمل مع بعض كتابة الملاحظات من طرف المستخدم
دمت لي أخا و صديقا :abc_138:

[محمد مصطفى الجن]

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

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

تستطيع أخي أن تضع مثلا انبوت Input1
في تجميعيتك خصص زر لكتابة الملاحظات
ونحاول أن نضع هذا الكود :

result = Dialog.Input("", "أكتب ملاحظاتك", "", MB_ICONQUESTION);
if result ~= "CANCEL" then
Input.SetText("Input1", result );
TextFile.WriteFromString(_SourceFolder.."\\AutoPlay\\Docs\\obs.txt", result, false)
end

نسق الأنبوت حسب ذوقك واجعله قابل للقراءة فقط

وفي خصائص الصفحة on show نضع الكود:
result = TextFile.ReadToString(_SourceFolder.."\\AutoPlay\\Docs\\obs.txt");
Input.SetText("Input1", result );

[محمد مصطفى الجن]

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

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

كود الزر عدله بهذا
result = Dialog.Input("", "اكتب ملاحظاتك", "", MB_ICONQUESTION);
if result ~= "CANCEL" then
Input.SetText("Input1", result );
TextFile.WriteFromString(_SourceFolder.."\\AutoPlay\\Docs\\obs.txt", result.."\r\n", true)
end

t = TextFile.ReadToString(_SourceFolder.."\\AutoPlay\\Docs\\obs.txt");
Input.SetText("Input1", t );

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

[محمد مصطفى الجن]

معلش اخى ممكن هذا الكود

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

[خادم المسلمين]

عذرا للمقاطعة
اخى ثامر

يرجى رفع مشروع عند اكتمال الفكرة

وراسلتك اخى ثامر قم بتفريغ صندوق الرسائل لانه ممتلىء عندك

يرجى الرجوع لاستفسارى فى دمج الواجهة الفلاشية


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

تفضل حمل الفلاشات دى وجرب كدة تشوف حل

http://www.gulfup.com/?4p8zuc

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

عذرا للمقاطعة
اخى ثامر

يرجى رفع مشروع عند اكتمال الفكرة

وراسلتك اخى ثامر قم بتفريغ صندوق الرسائل لانه ممتلىء عندك

يرجى الرجوع لاستفسارى فى دمج الواجهة الفلاشية


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

تفضل حمل الفلاشات دى وجرب كدة تشوف حل

http://www.gulfup.com/?4p8zuc


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

ضع الفلاشات بجانب بعضها في مجلد Docs
واستدعي الفلاش الرئيسي الى عنصر Web
وستحقق الارتباطات بكل سلاسة إن شاء الله :abc_138:

دعواتكم