ثامر أبو بلقيس
28-06-2015, 11:34 PM
السلام عليكم ورحمة الله وبركاته
- عنوان المشاركة قد يعدل من طرف المشرفين بما يناسب
المهم ...
كثير من الاخوة الافاضل يميل الى برمجة تخص القرآن الكريم
و يجد نفسه مظطرا لتقطيع الايات لصور في كل صورة آية بغية تحقيق
ظهور الصورة عند الاستماع للآية ... عمل يتطلب وقت و صبر و في الاخير قد
يعرقل الحجم الكبير للصور المشروع و يؤخر ظهوره للاستفادة منه ... على كل حتى لا أطيل
أقترح عليك أخي بأن لا تقطع السورة إلى صور و في كل صورة آية بل قم بإنشاء قاعدة بيانات
للآيات مرتبة و يتم استدعاء الاية مكتوبة حسب الاستعمال أي عند الاستماع لها
-----------------------
كيف ؟
01 - حمل الملف التالي و هو عبارة عن قاعدة بيانات
وجب عليك اذ بدى لك أي خلل فيها أو خطأ أن تشير له ليتم التصحيح
http://www.abc4web.net/vb/showpost.php?p=285806&postcount=86
بعد تحميل قاعدة البيانات
- افتح مشروعا جديدا وضع الملف السابق في مجلدDocs
02 - فعل الاضافة SQLite
03 - ضف في تجميعيتك العناصر التالية
- ListBox و لتكن ListBox1 في هذا العنصر و في جهة
item text أكتب أسماء السور مرتبة
بالشكل التالي
سورة الفاتحة
سورة البقرة
سورة آل عمران
سورة النساء
سورة المائدة
سورة الأنعام
سورة الأعراف
سورة الأنفال
سورة التوبة
سورة يونس
سورة هود
سورة يوسف
سورة الرعد
سورة إبراهيم
سورة الحجر
سورة النحل
سورة الإسراء
سورة الكهف
سورة مريم
سورة طه
سورة الأنبياء
سورة الحج
سورة المؤمنون
سورة النور
سورة الفرقان
سورة الشعراء
سورة النمل
سورة القصص
سورة العنكبوت
سورة الروم
سورة لقمان
سورة السجدة
سورة الأحزاب
سورة سبأ
سورة فاطر
سورة يس
سورة الصافات
سورة ص
سورة الزمر
سورة غافر
سورة فصلت
سورة الشورى
سورة الزخرف
سورة الدخان
سورة الجاثية
سورة الأحقاف
سورة محمد
سورة الفتح
سورة الحجرات
سورة ق
سورة الذاريات
سورة الطور
سورة النجم
سورة القمر
سورة الرحمن
سورة الواقعة
سورة الحديد
سورة المجادلة
سورة الحشر
سورة الممتحنة
سورة الصف
سورة الجمعة
سورة المنافقون
سورة التغابن
سورة الطلاق
سورة التحريم
سورة الملك
سورة القلم
سورة الحاقة
سورة المعارج
سورة نوح
سورة الجن
سورة المزمل
سورة المدثر
سورة القيامة
سورة الإنسان
سورة المرسلات
سورة النبأ
سورة النازعات
سورة عبس
سورة التكوير
سورة الإنفطار
سورة المطففين
سورة الانشقاق
سورة البروج
سورة الطارق
سورة الأعلى
سورة الغاشية
سورة الفجر
سورة البلد
سورة الشمس
سورة الليل
سورة الضحى
سورة الشرح
سورة التين
سورة العلق
سورة القدر
سورة البينة
سورة الزلزلة
سورة العاديات
سورة القارعة
سورة التكاثر
سورة العصر
سورة الهمزة
سورة الفيل
سورة قريش
سورة الماعون
سورة التكاثر
سورة الكافرون
سورة النصر
سورة المسد
سورة الإخلاص
سورة الفلق
سورة الناس
---------------
لاحظ كل أسماء سور القرآن الكريم مسبوقة بكلمة سورة
في عنصر ListBox1 و في الحدث on select
أكتب :
y = ListBox.GetSelected("ListBox1");
tt= ListBox.GetItemText("ListBox1",y[1]);
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
if s.Data[i]["soura"]==tt and s.Data[i]["naya"]==Input.GetText("Input1") then
Paragraph.SetText("Paragraph1", (s.Data[i]["alaya"]));
Label.SetText("Label1", s.Data[i]["soura"]);
Label.SetText("Label2", "الآية".." "..s.Data[i]["naya"]);
Label.SetText("Label3", "رقم السورة".." "..s.Data[i]["nsoura"]);
end
end
----------------------------------------------------------------------
04 - ضف Input1 في التجميعية مثلا في الحدث
on Char نكتب
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
if s.Data[i]["soura"]==tt and s.Data[i]["naya"]==Input.GetText("Input1") then
Paragraph.SetText("Paragraph1", (s.Data[i]["alaya"]));
Label.SetText("Label1", s.Data[i]["soura"]);
Label.SetText("Label2", "الآية".." "..s.Data[i]["naya"]);
Label.SetText("Label3", "رقم السورة".." "..s.Data[i]["nsoura"]);
end
end
---------------------------------------------------------------------------
اذن الان صار عندنا ليستبوكس بأسماء السور + انبوت لنكتب فيه رقم الاية التي نريد
اظهارها
-------------------------------------------------------------------------------------
نواصل : ستظهر الاية في عنصر Paragraph1 نضفه في التجميعية بشرط
يكون يدعم اللغة العربية و جعل الكتابة من اليمين
---------------------------------------------------------------------
نضيف Label1 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه اسم السورة
-----------------------------------------------------------------------------
نضيف Label2 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه رقم الاية
-----------------------------------------------------------------------------------
نضيف Label3 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه رقم السورة وفق الترتيب أعلاه
----------------------------------------------------------------------------------------------------------------------
الان عاين مشروعك حدد سورة في الليستبوكس بمجرد كتابة رقم الاية في الانبوت
بإذن الله ستظهر في عنصر Paragraph1
-------------------------------------------------------------------------------------------
ليس شرطا أن يكون استغلال الملف بهذا الشكل فقط هذا توضيح
إن أصبت فمن الله و إن أخطأت فمن نفسي و من الشيطان
السلام عليكم ورحمة الله وبركاته
- عنوان المشاركة قد يعدل من طرف المشرفين بما يناسب
المهم ...
كثير من الاخوة الافاضل يميل الى برمجة تخص القرآن الكريم
و يجد نفسه مظطرا لتقطيع الايات لصور في كل صورة آية بغية تحقيق
ظهور الصورة عند الاستماع للآية ... عمل يتطلب وقت و صبر و في الاخير قد
يعرقل الحجم الكبير للصور المشروع و يؤخر ظهوره للاستفادة منه ... على كل حتى لا أطيل
أقترح عليك أخي بأن لا تقطع السورة إلى صور و في كل صورة آية بل قم بإنشاء قاعدة بيانات
للآيات مرتبة و يتم استدعاء الاية مكتوبة حسب الاستعمال أي عند الاستماع لها
-----------------------
كيف ؟
01 - حمل الملف التالي و هو عبارة عن قاعدة بيانات
وجب عليك اذ بدى لك أي خلل فيها أو خطأ أن تشير له ليتم التصحيح
http://www.abc4web.net/vb/showpost.php?p=285806&postcount=86
بعد تحميل قاعدة البيانات
- افتح مشروعا جديدا وضع الملف السابق في مجلدDocs
02 - فعل الاضافة SQLite
03 - ضف في تجميعيتك العناصر التالية
- ListBox و لتكن ListBox1 في هذا العنصر و في جهة
item text أكتب أسماء السور مرتبة
بالشكل التالي
سورة الفاتحة
سورة البقرة
سورة آل عمران
سورة النساء
سورة المائدة
سورة الأنعام
سورة الأعراف
سورة الأنفال
سورة التوبة
سورة يونس
سورة هود
سورة يوسف
سورة الرعد
سورة إبراهيم
سورة الحجر
سورة النحل
سورة الإسراء
سورة الكهف
سورة مريم
سورة طه
سورة الأنبياء
سورة الحج
سورة المؤمنون
سورة النور
سورة الفرقان
سورة الشعراء
سورة النمل
سورة القصص
سورة العنكبوت
سورة الروم
سورة لقمان
سورة السجدة
سورة الأحزاب
سورة سبأ
سورة فاطر
سورة يس
سورة الصافات
سورة ص
سورة الزمر
سورة غافر
سورة فصلت
سورة الشورى
سورة الزخرف
سورة الدخان
سورة الجاثية
سورة الأحقاف
سورة محمد
سورة الفتح
سورة الحجرات
سورة ق
سورة الذاريات
سورة الطور
سورة النجم
سورة القمر
سورة الرحمن
سورة الواقعة
سورة الحديد
سورة المجادلة
سورة الحشر
سورة الممتحنة
سورة الصف
سورة الجمعة
سورة المنافقون
سورة التغابن
سورة الطلاق
سورة التحريم
سورة الملك
سورة القلم
سورة الحاقة
سورة المعارج
سورة نوح
سورة الجن
سورة المزمل
سورة المدثر
سورة القيامة
سورة الإنسان
سورة المرسلات
سورة النبأ
سورة النازعات
سورة عبس
سورة التكوير
سورة الإنفطار
سورة المطففين
سورة الانشقاق
سورة البروج
سورة الطارق
سورة الأعلى
سورة الغاشية
سورة الفجر
سورة البلد
سورة الشمس
سورة الليل
سورة الضحى
سورة الشرح
سورة التين
سورة العلق
سورة القدر
سورة البينة
سورة الزلزلة
سورة العاديات
سورة القارعة
سورة التكاثر
سورة العصر
سورة الهمزة
سورة الفيل
سورة قريش
سورة الماعون
سورة التكاثر
سورة الكافرون
سورة النصر
سورة المسد
سورة الإخلاص
سورة الفلق
سورة الناس
---------------
لاحظ كل أسماء سور القرآن الكريم مسبوقة بكلمة سورة
في عنصر ListBox1 و في الحدث on select
أكتب :
y = ListBox.GetSelected("ListBox1");
tt= ListBox.GetItemText("ListBox1",y[1]);
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
if s.Data[i]["soura"]==tt and s.Data[i]["naya"]==Input.GetText("Input1") then
Paragraph.SetText("Paragraph1", (s.Data[i]["alaya"]));
Label.SetText("Label1", s.Data[i]["soura"]);
Label.SetText("Label2", "الآية".." "..s.Data[i]["naya"]);
Label.SetText("Label3", "رقم السورة".." "..s.Data[i]["nsoura"]);
end
end
----------------------------------------------------------------------
04 - ضف Input1 في التجميعية مثلا في الحدث
on Char نكتب
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
-----------------------------------------------------------
for i,v in pairs(s.Data) do
if s.Data[i]["soura"]==tt and s.Data[i]["naya"]==Input.GetText("Input1") then
Paragraph.SetText("Paragraph1", (s.Data[i]["alaya"]));
Label.SetText("Label1", s.Data[i]["soura"]);
Label.SetText("Label2", "الآية".." "..s.Data[i]["naya"]);
Label.SetText("Label3", "رقم السورة".." "..s.Data[i]["nsoura"]);
end
end
---------------------------------------------------------------------------
اذن الان صار عندنا ليستبوكس بأسماء السور + انبوت لنكتب فيه رقم الاية التي نريد
اظهارها
-------------------------------------------------------------------------------------
نواصل : ستظهر الاية في عنصر Paragraph1 نضفه في التجميعية بشرط
يكون يدعم اللغة العربية و جعل الكتابة من اليمين
---------------------------------------------------------------------
نضيف Label1 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه اسم السورة
-----------------------------------------------------------------------------
نضيف Label2 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه رقم الاية
-----------------------------------------------------------------------------------
نضيف Label3 كذلك يكون يدعم اللغة العربية هذا الكائن ستظهر فيه رقم السورة وفق الترتيب أعلاه
----------------------------------------------------------------------------------------------------------------------
الان عاين مشروعك حدد سورة في الليستبوكس بمجرد كتابة رقم الاية في الانبوت
بإذن الله ستظهر في عنصر Paragraph1
-------------------------------------------------------------------------------------------
ليس شرطا أن يكون استغلال الملف بهذا الشكل فقط هذا توضيح
إن أصبت فمن الله و إن أخطأت فمن نفسي و من الشيطان
السلام عليكم ورحمة الله وبركاته