ملف مفتوح ... تصميم موسوعة للسيرة النبوية

[عبد الهادي بهاب]

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

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

---------------------------
بداية لكم الحرية في تصميم مقدمة البرنامج .............
هذا مثال :
https://3.top4top.net/p_1451w5wze5.png



-----------------------------------
نستعرض محتويات الموسوعة و نحن نقترح ان تضم كتبا و صوتيات و فيدوهات و صور و و و و و
مثال على الشكل بحيث لم تضع الماووس على الزر يظهر محتويات الزر او عنوان

https://1.top4top.net/p_1451klptb3.png

---------------------------
الان فيما يخض الكتب .........ضع الكتب في ملف ثم اجعل في ملف من نوع ini مثلا ...الكتاب مع مؤلفه
نضع صورة للكتاب في ملف الصور و هنا .....لما كان الكتاب رقمه 1 في ملف ini فصورته نسميها 1 ..........و هكذا

https://2.top4top.net/p_1451wjeff4.png

و في نافذة on Show نضع كود يستدعي العناوين في ليسبوكس عبر الكود التالي
for n= 1,20 do
t = INIFile.GetValue("AutoPlay\\Docs\\bib.ini", n, "titre");
ListBox.AddItem("ListBox1", t, n)
end

ListBox.SelectItem("ListBox1", 1);


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


r= ListBox.GetSelected("ListBox1")
n= ListBox.GetItemData("ListBox1",r[1])
Input.SetText("Input1", n);

Image.Load("fig", "AutoPlay\\Images\\"..n..".jpg");
t = INIFile.GetValue("AutoPlay\\Docs\\bib.ini", n, "titre");
a = INIFile.GetValue("AutoPlay\\Docs\\bib.ini", n, "auteur");


Paragraph.SetText("Paragraph1", t);
Paragraph.SetText("Paragraph2", a);


الان اخر عمل هو في زر التشغيل يكفي ان نضع الكود
n = Input.GetText("Input1");


File.Open("AutoPlay\\Docs\\"..n..".pdf", "", SW_SHOWNORMAL);


في الملف المفتوح وضعنا فقط الكتابين 1 و 2 من القائمة اما البقية فيمكن تجميلها و وضعها في ملف Docs طبعا مع تغير الاسم الى رقمها في القائمة

احسن موقع لتحميل كتب السيرة
https://www.noor-book.com/?search_for=%D8%A7%D9%84%D8%B3%D9%8A%D8%B1%D8%A9
-----------------------------
نفس الخطوات مع صفحة الدورس الصوتيات
نضع ملف ini فيه قائمة الشيوخ .......... على هذا الشكل

https://3.top4top.net/p_1451kfzcu1.png

لكل شيخ صورة تبدا Cheikh_ ... مع رقم ترنيب الشيخ في الملف
الان في ملف اخر َAudio_1 مثلا للشيخ الاول ........فيه روابط الدروس من الانترنت بشرط ان تجد في المواقع التي توفر مواد صوتية للشيوخ فستخلص منها الروابط
على هذا الشكل
https://4.top4top.net/p_1451y1esx2.png

الان نضع رسالة تنبه لضرورة الاتصال بالنت
ثم نستدعي اسماء الشيوخ في combobox

Dialog.Message("ÊäíÈå", "íÌÈ ÑÈØ ÌåÇÒßã ÈÇáÇäÊÑäÊ áÇä ÇáÈÑäÇãÌ íÔÛá ÇáãáÝÇÊ ÇáÕæÊíÉ ãä ÇáãæÞÚ");

for n= 1,20 do
t = INIFile.GetValue("AutoPlay\\Docs\\Cheikh.ini", n, "titre");
ComboBox.AddItem("ComboBox1", t, n)
end

ComboBox.SetSelected("ComboBox1", 1);


الان في الكومبوكس لما تظهر قائمة الشيوخ ....سيختار المستخدم شيخا
اسفل منه ليسبوكس تظهر فيه كل الدروس الخاصة بهذا الشيخ ........
في الداتا نضع الرابط ........و في الصورة تظهر صورة الشيخ
نضع الكود التالي في الكومبوكس
tem("ListBox1", LB_ALLITEMS);

Mcom = ComboBox.GetSelected("ComboBox1");
MData = ComboBox.GetItemData("ComboBox1", Mcom);
MChikh = ComboBox.GetItemText("ComboBox1", Mcom);
Paragraph.SetText("Paragraph2", MChikh);
Image.Load("fig", "AutoPlay\\Images\\Cheikh_"..MData..".jpg");


for n= 1,60 do
cour = INIFile.GetValue("AutoPlay\\Docs\\Audio_"..MData..".ini", n, "titre");
lien = INIFile.GetValue("AutoPlay\\Docs\\Audio_"..MData..".ini", n, "lien");

ListBox.AddItem("ListBox1", cour, lien)
end

ListBox.SelectItem("ListBox1", 1);

تمام
---------
الان في اليسبوكس لما يختار الدرس يتم قرائته في الميدا بلاير
نضع الكود التالي في اليسبوكس
r= ListBox.GetSelected("ListBox1")
n= ListBox.GetItemText("ListBox1",r[1])
url = ListBox.GetItemData("ListBox1",r[1])
Paragraph.SetText("Paragraph1", n);
MediaPlayer.Load("Plugin1", url);


----------------
الان نفس الخطوات للصوتيات تكون للاناشيد و المدائح النبوية
https://6.top4top.net/p_1451yh8my2.png

نضع قائمة المنشدين في ملف monchid في ملف مستقل monchides
https://4.top4top.net/p_1451r04le1.png

و نفس الشيء نبحث عن ملفات الاناشيد وروابطهم و نضعها في ملف audio_1 للمنشد الاول
https://2.top4top.net/p_14512wkbr1.png
--------------
الان ما ينتظره الجميع المف المفتوح
https://www.mediafire.com/file/8kd8shvei87pgzb/Maousoua_nabaouia.apz/file

حمله و افتحه يمكن ان تضيف الكتب الى القائمة لم نضيفها لكبر حجمها .......

-------------------------
سنتابع مع بقية الاجنحة للصور و البقية فور الانتهاء منها

تحياتي
https://www.youtube.com/watch?v=rTnxQBVfQ3g
-----------------

[عبد الهادي بهاب]

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

مثلالناخذ موقع دنيا mp3

https://douniamp3.co/

في ملف الاغاني الاسلامية
https://douniamp3.co/%D8%A3%D8%BA%D8%A7%D9%86%D9%8A_%D8%A5%D8%B3%D9%84% D8%A7%D9%85%D9%8A%D8%A9/0.html

الخاصة بالمنشد الفنان ماهر الزين

https://douniamp3.co/%D9%85%D8%A7%D9%87%D8%B1-%D8%B2%D9%8A%D9%86-2020.html

https://4.top4top.net/p_1451h1eu21.png

الان نتجه الى النشيد في الاسفل في زر التحميل
نضغط بيمين الماووس و نختار من القائمة فحص او cntrl + Shift + I

https://6.top4top.net/p_1451tzxu21.png

سيظهر نافذة عن اليمين ...........فيها اكواد تحليلية للصفحة ..........الخ
https://3.top4top.net/p_14512chwi1.png


ما يهمنا هو اين مسار الملفات
نضغط Cntrl+F الخاصة بالبحث
و نبحث عن كل الملفات ذات اللاحقة mp3
نكتب في مربع البحث .mp3

مباشرة سيظهر اول رابط mp3
https://4.top4top.net/p_1451n6q8o1.png


انسخ الرابط باي طريقة تشاء اما بتحديده او بالضغط باليمين ثم اختر النسخ ............الخ

نفس العلمية في معظم المواقع