نقاش حول مشروع تحفيظ القرءان الكريم

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

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

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

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

ممتاز اخى
ساتواصل معك هنا
اول سؤال هل يمكن ان نستغل نفس المشروع الذى ارسلته لى بعد طلبى منك
http://up.top4top.net/downloadf-559r2dy5k21-rar.html


فى فيديوهات قرءان ام
فقط قرءان صوتيات؟

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

السلام عليكم ورحمة الله وبركاته
على الملف المرسل :
برجاء الاستماع لي بعنايــة حتى لا تتعب مرتين :

01 - لديك ليست بوكس معبر عن بداية الايــة
احذفه
02 - لديك ليستبوكس معبر عن نهاية الاية
احذفه
03 - لديك أنبوت تكتب فيه عدد التكرار
احذفه
04 - لديك زر الاستماع
احذفه هو و الهوست الموجود فوقه
05 - لديك زر الاستماع للاية كاملة
احذفه هو و الهوست الموجود فوقه
---------------------------------------------------------------------------------------------
اذن ماذا بقي نعم بقي الليستبوكس الوحيد الذي مكتوية فيه السور القرآنية
اضغط عليه في on select تجد أكواد احذفها كلها و أكتب بدل منها في نفس المكان
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
----------------------------------------------
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
f=ListBox.GetCount(this);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
n= ListBox.GetSelected(this);
tt= ListBox.GetItemText("ListBox1", n[1]);
if n ~= nil then
v = ListBox.GetItemData(this, n[1]);
hh = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\", "*.mp3", false, false, nil, nil);
if hh ~= nil then
for total=1,#hh do
ComboBox.AddItem("ComboBox1", total, _SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\"..total..".mp3");
ComboBox.AddItem("ComboBox2", total, _SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\"..total..".mp3");
end
end
end
ComboBox.SetSelected("ComboBox1", 1);
ComboBox.SetSelected("ComboBox3", 1);


---------------------------------------------------------------------------------------
متفقين كبف أحدد بداية الايـــة :
جيد ضف في التجميعية ComboBox وهي ComboBox1
امسح ماهو مكتوب في جهة التكست و الداتا أي خليها فارغة
الان اضغط عليها في on select أكتب :
b1= ComboBox.GetSelected(this);
bidaya = ComboBox.GetItemText(this,e_Selection);
index_1 = ComboBox.GetItemData(this,e_Selection);


------------------------------------------------------------------------------------------
البداية خلاص عرفناها وين النهاية جيد ضف ComboBox وهي ComboBox2
لاحظ اسمها ComboBox2
خليها فارغة من أي كتابة
الان اضغط عليها في on select أكتب :
b1= ComboBox.GetSelected(this);
nihaya = ComboBox.GetItemText(this,e_Selection);
index_2=ComboBox.GetItemData(this,e_Selection);
----------------------
--------------------------------------
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
if index_1~= nil and index_2~= nil then
for i = 1,lakhder do
if index_1 == index_2 then
result = ListBox.AddItem("ListBox4", index_1, "");
elseif index_1 ~= index_2 then
for j=bidaya,nihaya do
result = ListBox.AddItem("ListBox4",ComboBox.GetItemData("ComboBox2", j), "");
end
end
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin1", k);
MediaPlayer.Play("Plugin1");
end
--------------------------------

لاحظ اني لتسهيل عمل البرنامج عند تحديد النهاية يبدأ الاستماع دون الحاجة لازرار تشغيل أخرى
---------------------------------------------------------------------------------------------------
كم مرة يحدث التكرار جيد ضف ComboBox جديد و هو ComboBox 3
هذا نحدد التكرار فيه قبل تحديد آيات البداية و النهاية
نكتب فيه on select
b4= ComboBox.GetSelected(this);
lakhder = ComboBox.GetItemText(this,e_Selection);
lakhder = String.ToNumber(lakhder);


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

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

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

ممتاز اخى
ساتواصل معك هنا
اول سؤال هل يمكن ان نستغل نفس المشروع الذى ارسلته لى بعد طلبى منك
http://up.top4top.net/downloadf-559r2dy5k21-rar.html


فى فيديوهات قرءان ام
فقط قرءان صوتيات؟

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

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

نصيحة اخويـــة :abc_138:

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

قلت الوحيد أقصد ببرنامج الاوتوبلاي

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

ملاحظة هامة : في ComboBox 3 المخصص للتكرار نسيت أن أقول لك
في هذا الكوكبوبوكس بالذات في جهو التكست فقط أكتب أرقاما متسلسلة من 1 الى 10 أي جاهزة كتابيا ليختار المستعمل
كم عدد التكرار قلت من 1 الى 10 اي البداية 1 و ليس 0

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

فعلت مثلما قلت لى بالضبط ولكن عند اختيار الاية التى انتهى اليها
http://store2.up-00.com/2015-12/145087394463531.png (http://www.up-00.com/)

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

شوف الليست بوكس الفارغ و شوف الملاحظة الأخيرة التي كتبتها
بمعنى عندما حددت النهاية برنامجك لم بفهم عدد التكرار لذلك اقرأ الملاحظة ما قبل هذا الرد
http://store1.up-00.com/2015-12/145087669977061.jpg

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

ملاحظة هامة : في combobox 3 المخصص للتكرار نسيت أن أقول لك
في هذا الكوكبوبوكس بالذات في جهو التكست فقط أكتب أرقاما متسلسلة من 1 الى 10 أي جاهزة كتابيا ليختار المستعمل
كم عدد التكرار قلت من 1 الى 10 اي البداية 1 و ليس 0

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

ولكن حتى يعمل ذلك اخترت عدد مرات التكرار قبل تحديد الايات

الان تمااااااااااااااام

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

السؤال التالى

هل يمكن تطبيق هذه الطريقة باكملها على ملفات فيديو قرءانية؟

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

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

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

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

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

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

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

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



ســـؤال جيد :abc_138:
اضغط على عنصر الميديايلير نفسه
في الحدث on finish قلت في الحدث on finish
يصبح الكود:
Application.Sleep(1000);
---- للقراءة بالتكرار ----
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end

تذكـــر في الحدث on finish

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

أخي خادم المسلمين بحكم أنك في الإدارة لماذا المرفقات معطاة معي و لا أستطيع
استعمالها المهم ماتكونش عقوبة أو ما السبب منذ زمن لا أستطيع الرفع بواسطتها :abc_138:

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

معطلة أقصد و ليس معطاة

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

ســـؤال جيد :abc_138:
اضغط على عنصر الميديايلير نفسه
في الحدث on finish قلت في الحدث on finish
يصبح الكود:
Application.Sleep(1000);
---- للقراءة بالتكرار ----
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end

تذكـــر في الحدث on finish
:abc_022::abc_022:
تمت بنجاح
ولكنك لم تجبنى عن لو حبينا نعمل دوبليكيت لصفحة المشروع على ان نجعل الصفحة الجديدة تشغيل تلقائى بدون تكرار ينتقل من اية لاخرى تلقائيا

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

السلام عليكم ورحمة الله وبركاته أخي خادم المسلمين بحكم أنك في الإدارة لماذا المرفقات معطاة معي و لا أستطيع
استعمالها المهم ماتكونش عقوبة أو ما السبب منذ زمن لا أستطيع الرفع بواسطتها :abc_138:

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

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

لا خليها صفحة وحدة ... خليني أفكر و نرد عليك

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

ندقق مع بعض ...
ضف عنصر ميديلبلير جديد في نفس الصفحة لا تستعمل النيخ و اللصق من الموجود
أقصد جديد و ابعثلي تسمية هذا البليجين

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

النسخ و ليس النيخ حتى التعديل لا يوجد.

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

ندقق مع بعض ...
ضف عنصر ميديلبلير جديد في نفس الصفحة لا تستعمل النيخ و اللصق من الموجود
أقصد جديد و ابعثلي تسمية هذا البليجين

تم واسمه
Plugin4

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

أول شيء تقوم به تدخل للميديايلير الأول
و في حدث on play ركز معي في الحدث on play
رايح نضبف سطر واحد يوقف الميديا الجديد يصبح الكود :
MediaPlayer.Stop("Plugin4");
------------------------------------------------
if ListBox.GetCount("ListBox4")==0 then
MediaPlayer.Stop("Plugin1");
end
Page.StartTimer(1000);
k = ListBox.GetItemText("ListBox4", 1);
dd= String.SplitPath(k);
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"]==dd.Filename 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

خلاص هذا الكلام السابق خاص بعنصر الميديا الأول
------------------------------------------------------------------------------------------------
نتوجه لعنصر الميديا بلير الجديد و الخالي من الأكواد
في on play أكتب :
MediaPlayer.Stop("Plugin1");
if ListBox.GetCount("ListBox4")==0 then
MediaPlayer.Stop("Plugin4");
end
Page.StartTimer(1000);
k = ListBox.GetItemText("ListBox4", 1);
dd= String.SplitPath(k);
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"]==dd.Filename 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

و في نفس العنصر في الحدث on finish أكتب :
Application.Sleep(1000);
---- للقراءة بالتكرار ----
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin4", k);
-----------------------------------------
if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
belkiss=belkiss+1
ListBox.SelectItem("ListBox1", belkiss);
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin2");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end
end


---------------------------------------------------------------------
الان في الحدث صفحة المشروع في on show
أكتب :
belkiss=1

توجه لحدث on timer تجد أكواد
غيرها بهذه
if ListBox.GetCount("ListBox4")==0 then
Paragraph.SetText("Paragraph1", "");end
if String.ToNumber(MediaPlayer.GetCurrentPos("Plugin1"))==0 then
Page.StopTimer(1000);
end
if ListBox.GetCount("ListBox4")==0 then
Paragraph.SetText("Paragraph1", "");end
if String.ToNumber(MediaPlayer.GetCurrentPos("Plugin4"))==0 then
Page.StopTimer(1000);
end
-----------------------------------------------------------

الان توجه لليست بوكس 1 المكتوب فيها سور القرآن الكريم
طبعا تجد أكواد في on select
لا تحذف منها أي حرف بل ضف في آخر الأكواد أي أسفلها تماما
السطر :
belkiss= n[1]

-------------------------------------------------------------
اخيرا ضف في تجميعيتك زر جديدا وهو خاص بقراءة السور متتالية بدء من المحددة
في هذا الزر أكتب :
MediaPlayer.Stop("Plugin1");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin4");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end

انتهى يمكنك اخفاء الميديا بلير الجديد او كما تريد :abc_138:

جرب و شوف هل سيحترم العنصرين بعضهما البعض و لا يحدث تداخل ؟؟؟

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

خلاص رايح نتوقف هناا تعبت كثيرا :abc_138:

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

بالنسبة للكود الاول الخاص بالميديا بلير هل احذف الكود القديم واضيف هذا لكود الجديد؟
لانى مسحت القديم
واضفت هذا فقط
http://cdn.top4top.co/p_559x40n1.png (http://up.top4top.net/)
مع اتباع باقى الخطوات
فلم يعمل الزر

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

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

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

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

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

تمام اخى استريح
وربنا يجازيك كل خير
ومعلشى انى اتعبتك معى اليوم
غدا نستكمل المسير بإذن الله

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

شكرا:abc_022:

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

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

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

مراجعة للأكـــــــــــــــــــــ واد
على مستوى الصفحــــة :
في الحدث on show :
belkiss=1

فــي الحدث on timer
if ListBox.GetCount("ListBox4")==0 then
Paragraph.SetText("Paragraph1", "");end
if String.ToNumber(MediaPlayer.GetCurrentPos("Plugin1"))==0 then
Page.StopTimer(1000);
end
if ListBox.GetCount("ListBox4")==0 then
Paragraph.SetText("Paragraph1", "");end
if String.ToNumber(MediaPlayer.GetCurrentPos("Plugin4"))==0 then
Page.StopTimer(1000);
end
================================================== ===================
على مستــــــوى العناصر :
1 - العنصر الأولــ ListBox1
في الحدث on select
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
----------------------------------------------
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
f=ListBox.GetCount(this);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
n= ListBox.GetSelected(this);
tt= ListBox.GetItemText("ListBox1", n[1]);
if n ~= nil then
v = ListBox.GetItemData(this, n[1]);
hh = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\", "*.mp3", false, false, nil, nil);
if hh ~= nil then
for total=1,#hh do
ComboBox.AddItem("ComboBox1", total, _SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\"..total..".mp3");
ComboBox.AddItem("ComboBox2", total, _SourceFolder.."\\AutoPlay\\Docs\\"..v.."\\"..total..".mp3");
end
end
end
ComboBox.SetSelected("ComboBox1", 1);
ComboBox.SetSelected("ComboBox3", 1);

belkiss= n[1]

02 - العنــــصر ComboBox1
في الحدث on select
b1= ComboBox.GetSelected(this);
bidaya = ComboBox.GetItemText(this,e_Selection);
index_1 = ComboBox.GetItemData(this,e_Selection);

03 - في العنصر ComboBox2
في الحدث on select
b1= ComboBox.GetSelected(this);
nihaya = ComboBox.GetItemText(this,e_Selection);
index_2=ComboBox.GetItemData(this,e_Selection);
----------------------
--------------------------------------
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
MediaPlayer.Stop("Plugin1");
if index_1~= nil and index_2~= nil then
for i = 1,lakhder do
if index_1 == index_2 then
result = ListBox.AddItem("ListBox4", index_1, "");
elseif index_1 ~= index_2 then
for j=bidaya,nihaya do
result = ListBox.AddItem("ListBox4",ComboBox.GetItemData("ComboBox2", j), "");
end
end
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin1", k);
MediaPlayer.Play("Plugin1");
end
--------------------------------

4 - العنصــــر ComboBox3
في الحدث on select
b4= ComboBox.GetSelected(this);
lakhder = ComboBox.GetItemText(this,e_Selection);
lakhder = String.ToNumber(lakhder);

5 - في الزر الذي أضفته أنت و الخاص بقراءة السور متتالية :
أكتب عند الضغط عليه :
MediaPlayer.Stop("Plugin1");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin4");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end

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

على مستوى الاضافات :
01 - العنصر الأولــــ Plugin1
في الحدث on play
MediaPlayer.Stop("Plugin4");
------------------------------------------------
if ListBox.GetCount("ListBox4")==0 then
MediaPlayer.Stop("Plugin1");
end
Page.StartTimer(1000);
k = ListBox.GetItemText("ListBox4", 1);
dd= String.SplitPath(k);
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"]==dd.Filename 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
في نفس العنصـــر لكن في الحدث on finish
Application.Sleep(1000);
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------
if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end

02 - الاضافــة الثانية Plugin4
في الحدث on play
MediaPlayer.Stop("Plugin1");
if ListBox.GetCount("ListBox4")==0 then
MediaPlayer.Stop("Plugin4");
end
Page.StartTimer(1000);
k = ListBox.GetItemText("ListBox4", 1);
dd= String.SplitPath(k);
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"]==dd.Filename 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

في نفس العنصر لكن في الحدث on finish
Application.Sleep(1000);
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin4", k);
-----------------------------------------
if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
belkiss=belkiss+1
ListBox.SelectItem("ListBox1", belkiss);
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin2");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end
end


موفــــــــــــــــــــــ ـق من يدري قد نغيب :abc_138:

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

:abc_022:يتعطل فـــــــــــــي حالة واحدة ماهي ؟
الملفات الصوتية ليست في مكانها أي في مجلداتها المرقمة كمـــا اتفقنا قبل هذا الحـــوار
بطبيعة الحال عندما لا يجد المجلد و محتوياته مستحيل و غير معقـــول الانتقال من سورة لسورة اخـــرى:abc_152:

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

:abc_022:يتعطل فـــــــــــــي حالة واحدة ماهي ؟
الملفات الصوتية ليست في مكانها أي في مجلداتها المرقمة كمـــا اتفقنا قبل هذا الحـــوار
بطبيعة الحال عندما لا يجد المجلد و محتوياته مستحيل و غير معقـــول الانتقال من سورة لسورة اخـــرى:abc_152:

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

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

ارفعــــــــــــــــــه

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

ارفعــــــــــــــــــه

جارى الرفع:abc_088:

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

المشروع
http://up.top4top.net/downloadf-559v4zb1-rar.html

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

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

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

الصوتية أقصــــــد

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

ما عدا تنقصك أكواد غير مؤثرة متعلقة بالتحديث الذي ذكرناه
أي في الميديا بلير الأول on finish
الكود هو :
Application.Sleep(1000);
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end
أليس كذلك
ملف جميل :abc_138:

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

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

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

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

هذه بسيطة المهم الان اضبط ملف مفتوح و احتفظ به و لا تنس ما ذكرتك به

وفكرني غدا بملاحظتك الاخيرة لأكتب لك سطر واحد يتكفل بماذكرت :abc_138:

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

وسأطور لك برنامجك بتقنية ستعجبك :abc_138:

فقــــط خبرني هل مازال الوقت و لا لا ؟

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

هذه بسيطة المهم الان اضبط ملف مفتوح و احتفظ به و لا تنس ما ذكرتك به

وفكرني غدا بملاحظتك الاخيرة لأكتب لك سطر واحد يتكفل بماذكرت :abc_138:

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

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

وسأطور لك برنامجك بتقنية ستعجبك :abc_138:

فقــــط خبرني هل مازال الوقت و لا لا ؟

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

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

لا عليك غدا سأضيف لك في برنامجك خاصية مهمة و هي البحث في قواعد البيانات
اذ أحببت و هي البحث بالمفردة في القرآن الكريم على أن يكون البحث بجذور المفردة
و أحدد لك مكان تواجدها أي السورة - الاية - و الاية في حد ذاتها
-----------------------------------------------------------------
المهم اذا كنت موافق على هذا الاقتراح ضف في تجميعيتك
تلات عناصر و هي أنبوت لكتابة المفردة عنصر Label ليظهر عدد المفردات المتشابهة
و عنصر RichText داعم للغة العربية و ملائم للغة العربية
---------------------------------------------- وخبرني عن اسماء هذه العناصر لصياغة الكود ----:abc_138:

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

حسنا

اتفضل اخى
Input1
RichText1
Label10

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

سنبدأ بعد قليـــل :abc_138:

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

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

في زر سمه البحث أكتب الكود :
RichText.Delete("RichText1");
Label.SetText("Label10", "");
tamer = 0
khadem =""
db = SQLite.Open("AutoPlay\\Docs\\belkiss.db");
s=SQLite.QueryToTable(db, "select * from rabie");
gg = Input.GetText("Input1");
if gg~='' then
istibdalate2={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
result4 = string.gsub (gg, ".",istibdalate2)
-----------------------------------------------------------
for i,v in pairs(s.Data) do
for y=1,114 do
if s.Data[i]["nsoura"]==""..y then
istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
m = s.Data[i]["alaya"]
abou_belkiss = string.gsub (m, ".",istibdalate)
g = String.Find(abou_belkiss,result4, 1, false);
if g~= -1 and s.Data[i]["naya"] ~="0" then
khadem=khadem ..s.Data[i]["alaya"].."---".."الاية".." "..s.Data[i]["naya"].." "..s.Data[i]["soura"].."\r\n".."\r\n"
tamer =tamer+1
end
end
end
end
end
RichText.SetText("RichText1", khadem, false);
Label.SetText("Label10", tamer);


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

لاحظ في Label10 ستجد العدد 4 أليس كذلك ؟
وفي RichText1 ستجد الاية و رقمها و السورة أليس كذلك ؟
موفق :abc_138:

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

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

زر الاستمــــاع للسورة كــــاملة
سأضيف له سطر في البدايــــة ليصبح هكذا :
ComboBox.ResetContent("ComboBox1"); ComboBox.ResetContent("ComboBox2");
MediaPlayer.Stop("Plugin1");
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin4");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end

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

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

الله يعزك ويحفظ ويبارك فيك
يعجز اللسان عن شكرك
لكن اخى ان تيسر الوقت ولو كل يوم حاول تكتب تعليقا لكود واحد وارفع فى تكست او صورة
تبقى فقط كود للتصفير للكومبوكسات اذا ما ضغط زر الاستماع الا ينبغى التصفير
http://cdn.top4top.co/p_55938ob1.png (http://up.top4top.net/)

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

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

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

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

ملاحظة : فــــي عملك لا يمكنك وضع ريشتكست فوق المكان المخصص للأيات
فهناك آيات طويــــلة و تحتاج الحيز كاملا لظهورهـــا نسق ملفك بطريقة أخرى
الســــلام عليكم و نسمع أخبار طيبـــة:abc_138:

سؤالي لك : تريد إضافة مثلا سورة المائدة في ملف الصوتيات
كيف سيكـــون اسم المجلد الذي ستوضع فيه ملفات الايات للسورة
وكيف ستكون تسميــــة الملفات الصوتية :abc_138:

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

ملاحظة : فــــي عملك لا يمكنك وضع ريشتكست فوق المكان المخصص للأيات
فهناك آيات طويــــلة و تحتاج الحيز كاملا لظهورهـــا نسق ملفك بطريقة أخرى
الســــلام عليكم و نسمع أخبار طيبـــة:abc_138:

سؤالي لك : تريد إضافة مثلا سورة المائدة في ملف الصوتيات
كيف سيكـــون اسم المجلد الذي ستوضع فيه ملفات الايات للسورة
وكيف ستكون تسميــــة الملفات الصوتية :abc_138:

الملف الان ضبط
ولكن

تبقى الكمبوبوكس الاخير
اخى
http://cdn.top4top.co/p_559jko71.png (http://up.top4top.net/)

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

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

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

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

لا انا اقصد ترجع لوضعيته الافتراضية
يعنى فقط يكون ظاهر فيها الرقم 1

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

في زر الاستماع للسورة كاملة في بداية الأكواد أي في الأعلى ضف هذا السطر

ComboBox.SetSelected("ComboBox3", 1);

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

في زر الاستماع للسورة كاملة في بداية الأكواد أي في الأعلى ضف هذا السطر

ComboBox.SetSelected("ComboBox3", 1);

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

:abc_022::abc_022::abc_022:

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

لم اتشجع للتعديل او الاضافة فى ملفات الاوتو بلاى
:abc_022::abc_022::abc_022:

لم افهم

ممكن أسألك سؤالين ؟

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

ربنا يرزقك الجنة ويسعدك باولادك ويقر عيناك بهم جميعا

:abc_022::abc_022::abc_022:

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

موفق :abc_138:

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

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

موفق :abc_138:

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

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

إن شاء الله خير هي في مستشفى العاصمة مما صعب عني حتى زيارتها
و المشكل عندي هو انقطاعها عن الدروس في هذه المدة أي لم تحضر امتحانات الفصل
كاملا ... لم أخبرك بالهاتف لأنه ألا هاتفي ليس معي
على كل شكرا جزيـــلا
الأسئلة التي وددت طرحها
01 - أكتب لي الكود المكتوب في عنصر الميديابلير1
في الحدث on finish انطلاقا من الملف الذي ستعتمده
02 - تريد إضافة مثلا سورة المائدة الملفات الصوتية ما اسم مجلدها و كيف سيكون تسمية
الايات للسورة
03 - هل ستجعل برنامجك لجميع سور القرآن أو سور معينة اذا كانت سور معينة ما هي ؟

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

لم افهم

ممكن أسألك سؤالين ؟

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

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

سألتك في المشاركة قبل ردك

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

إن شاء الله خير هي في مستشفى العاصمة مما صعب عني حتى زيارتها
و المشكل عندي هو انقطاعها عن الدروس في هذه المدة أي لم تحضر امتحانات الفصل
كاملا ... لم أخبرك بالهاتف لأنه ألا هاتفي ليس معي
على كل شكرا جزيـــلا
الأسئلة التي وددت طرحها
01 - أكتب لي الكود المكتوب في عنصر الميديابلير1
في الحدث on finish انطلاقا من الملف الذي ستعتمده
02 - تريد إضافة مثلا سورة المائدة الملفات الصوتية ما اسم مجلدها و كيف سيكون تسمية
الايات للسورة
03 - هل ستجعل برنامجك لجميع سور القرآن أو سور معينة اذا كانت سور معينة ما هي ؟
الكود

Application.Sleep(1000);
---- ááÞÑÇÁÉ ÈÇáÊßÑÇÑ ----
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin4", k);
-----------------------------------------
if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
belkiss=belkiss+1
ListBox.SelectItem("ListBox1", belkiss);
ListBox.DeleteItem("ListBox4", LB_ALLITEMS);
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");
MediaPlayer.Stop("Plugin2");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = ListBox.AddItem("ListBox4","AutoPlay\\Docs\\"..v.."\\"..i..".mp3", "");
end
end
k = ListBox.GetItemText("ListBox4", 1);
if k~= nil then
MediaPlayer.Load("Plugin4", k);
MediaPlayer.Play("Plugin4");
end
end
end

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

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

1 - سألتك عن الميديابلير1 هل أنت واثق من الاجابة

2 - هل تقبل في التسمية للملفات الصوتية العدد 0 على اليسار سواء كان
العدد ذو منزلة أو منزلتين مثلا هل يقبل 01 أو 001 أو 020 ؟

03 - بخصوص الجواب الثالث سأحدثك عنه بعد الانتهاء من السؤالين السابقين

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

1 - سألتك عن الميديابلير1 هل أنت واثق من الاجابة

2 - هل تقبل في التسمية للملفات الصوتية العدد 0 على اليسار سواء كان
العدد ذو منزلة أو منزلتين مثلا هل يقبل 01 أو 001 أو 020 ؟

03 - بخصوص الجواب الثالث سأحدثك عنه بعد الانتهاء من السؤالين السابقين

نعم اخى هو نفس الكود

كما ان
ارقام الايات تكون بأقام عادية بدون زيادة او نقصان لتتطابق مع ارقامها فى قاعدة البيانات

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

نبقى في السؤال الأول يا أخي ركز معي أنا أسألك عن الميديابلير1 الموافق Plugin1
في الحدث on finish
أكد لي الاجابة برجاء من داخل مشروعك

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

نبقى في السؤال الأول يا أخي ركز معي أنا أسألك عن الميديابلير1 الموافق Plugin1
في الحدث on finish
أكد لي الاجابة برجاء من داخل مشروعك

ايوة هذا كوده فقط
Application.Sleep(1000);
---- ááÞÑÇÁÉ ÈÇáÊßÑÇÑ ----
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

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

جيد هو هذا عارف علاش سألتك لأننا قمنا بتعدبل مهم عليه
و لم تنتبه اليه في حوارنا اذن ركز معي الان
في الميديابلير1 أقول الأول الكود في on finish
هو بعد التعديل :
Application.Sleep(1000);
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end


صححه الان حتى لا تنساه كنت عارف بأنك تنساه
أكرر في الميديا بلير 1 الموافق للبليجين1 في الحدث on finish
صححه و احفظ مشروعك ثم نكمل

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

جيد هو هذا عارف علاش سألتك لأننا قمنا بتعدبل مهم عليه
و لم تنتبه اليه في حوارنا اذن ركز معي الان
في الميديابلير1 أقول الأول الكود في on finish
هو بعد التعديل :
application.sleep(1000);
listbox.deleteitem("listbox4", 1);
k = listbox.getitemtext("listbox4", 1);
mediaplayer.load("plugin1", k);
-----------------------------------------

if listbox.getcount("listbox4")==0 then
combobox.resetcontent("combobox1");
combobox.resetcontent("combobox2");
combobox.setselected("combobox3", 1);
listbox.deselectitem("listbox1",lb_allitems );
label.settext("label1", "");
label.settext("label2", "");
label.settext("label3", "");

end


صححه الان حتى لا تنساه كنت عارف بأنك تنساه
أكرر في الميديا بلير 1 الموافق للبليجين1 في الحدث on finish
صححه و احفظ مشروعك ثم نكمل
تم التصحيح لكن ما مغزاه؟

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

أنت طلبت ذلك سابقا عد للمشاركتين 12 و 13

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

أنت طلبت ذلك سابقا عد للمشاركتين 12 و 13

تمام اخى لو حابب ارفع اليك المشروع تراجعه بشكل نهائى؟
ارفعه لك

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

نعم ارفعه

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

ارفعه بعد التصحيح المذكور

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

نعم ارفعه

تفضل استاذنا
http://up.top4top.net/downloadf-559qoci1-zip.html

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

العجيب بعد حفظ الملف الان اجرب زر الاستماع فلم يعد يعمل

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

أول خطأ دائما في العنصر ميديابلير 1
في الحدث on finish أكرر هاهو الكود
أنسخه من هنا و ألصقه لأنك نسخت من الاقتباس فتغير قطع الحروف
و بالتالي المكتوب في ملفك الأخير سيدر رالة خطأ بعد نهاية الاية و يتوقف
اذن : أنسخه من هنا و الصقه في الحدث on finih في عنصر الميديابلير 1
Application.Sleep(1000);
ListBox.DeleteItem("ListBox4", 1);
k = ListBox.GetItemText("ListBox4", 1);
MediaPlayer.Load("Plugin1", k);
-----------------------------------------

if ListBox.GetCount("ListBox4")==0 then
ComboBox.ResetContent("ComboBox1");
ComboBox.ResetContent("ComboBox2");
ComboBox.SetSelected("ComboBox3", 1);
ListBox.DeselectItem("ListBox1",LB_ALLITEMS );
Label.SetText("Label1", "");
Label.SetText("Label2", "");
Label.SetText("Label3", "");

end


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

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

أول خطأ دائما في العنصر ميديابلير 1
في الحدث on finish أكرر هاهو الكود
أنسخه من هنا و ألصقه لأنك نسخت من الاقتباس فتغير قطع الحروف
و بالتالي المكتوب في ملفك الأخير سيدر رالة خطأ بعد نهاية الاية و يتوقف
اذن : أنسخه من هنا و الصقه في الحدث on finih في عنصر الميديابلير 1
application.sleep(1000);
listbox.deleteitem("listbox4", 1);
k = listbox.getitemtext("listbox4", 1);
mediaplayer.load("plugin1", k);
-----------------------------------------

if listbox.getcount("listbox4")==0 then
combobox.resetcontent("combobox1");
combobox.resetcontent("combobox2");
combobox.setselected("combobox3", 1);
listbox.deselectitem("listbox1",lb_allitems );
label.settext("label1", "");
label.settext("label2", "");
label.settext("label3", "");

end


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

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

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

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

ركز العمل حساس جدا :abc_138:

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

هذا اخر ما توصلت اليه
http://up.top4top.net/downloadf-559toy31-rar.html

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

احنفظ بالملف أعلاه و ألغي الباقي هو الأسلم تكويدا

http://store2.up-00.com/2015-12/145104686814011.jpg

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

احنفظ بالملف أعلاه و ألغي الباقي هو الأسلم تكويدا



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

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

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

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

خادم و ليس ختد للأسف التعديل لا يوجد لماذا لا أعرف
و كأنه ممنوع الخطأ

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

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

نلتقي بود :abc_138:

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

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

فعلت وماذا بعد؟
الازرار ما زالت لاتحول للصفحة لتالية
كاننفسى اعمل ربط مثلما فى هذا الملف
http://www.abc4web.net/vb/showthread.php?t=17790

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

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

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

ماذا و بعد هل فعلا مشكلتك الان في ادراج صفحة جديدة
و ازاحتها لتصبح الأولى لم أفهمك
http://cdn.top4top.co/p_5599v261.jpg (http://up.top4top.net/)
ادرجت الصفحة كما قلت اخى
ولكن انا اتكلم عن الازرار دى عايز افعلها زر يحول الى صفحة التحفيظ وزر يحول الى البحث
الازرار الفلاشية اريد تفعيلها لتؤدى هذه الوظيفة من الصفحة الاولى
بالنسبة للفوتو شوب ارجات التصميم بعد الانتهاء من البرمجة

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

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

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

http://store1.up-00.com/2015-12/145105017709691.jpg

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

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

المشكل انه لايمكنك بالضبط فوق الفلاش
وبالتالى للن يخدم الا الانتقال الى صفحة واحدة

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

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

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

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

الطريقة فعلا ممكنة وبلا شك

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

http://up.top4top.net/downloadf-5595jyt1-rar.html
لكن العجيب ان كود السويتش مش ضابط معى كلما كتبته مثلما فى الشرح على الاصدار4
لايضبط!

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

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

[رجب الأنصاري]

جزاكم الله خيرا أخي على هذا العمل الرائع ... ولكن استفسار مهم جدا ... لو أني أريد تكرار آية آية 3 مرات لعدد معين من الآيات مثلا من آية 1 من سورة الفاتحة حتى آية 3 من نفس السورة ؟ ما الكود المطلوب ؟؟ ولو أن عندي صور لكل آية مضبوطة بالرسم العثماني هكذا تقريبا مثل هذه الصورة https://i.ytimg.com/vi/FJZ_mAg2wYI/mqdefault.jpg
فما العمل ... وجزاكم الله كل خير

[عبود عبود]

زر الاستمــــاع للسورة كــــاملة
سأضيف له سطر في البدايــــة ليصبح هكذا :
combobox.resetcontent("combobox1"); combobox.resetcontent("combobox2");
mediaplayer.stop("plugin1");
listbox.deleteitem("listbox4", lb_allitems);
label.settext("label1", "");
label.settext("label2", "");
label.settext("label3", "");
mediaplayer.stop("plugin4");
if hh ~= nil then
for i = 1,1 do
for i = 1,#hh do
result = listbox.additem("listbox4","autoplay\\docs\\"..v.."\\"..i..".mp3", "");
end
end
k = listbox.getitemtext("listbox4", 1);
if k~= nil then
mediaplayer.load("plugin4", k);
mediaplayer.play("plugin4");
end
end

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

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

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

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

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

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

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

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

[عبود عبود]

إن شاء الله رب العالمين

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

جارى التحضير من اليوم إن شاء الله

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

[عبود عبود]

إن شاء الله رب العالمين

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

جارى التحضير من اليوم إن شاء الله

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

[رجب الأنصاري]

ولا فيه حد بيرد علينا ........ يا ناس المشروع جميل لكن نريد إضافة صور لكل آية بالرسم العثماني

[ربيع]

السلام عليكم ورحمة الله وبركاته
حاولت زرع الخط
http://fonts.qurancomplex.gov.sa/?page_id=42
و ضبط Paragraph1 المستقبل للآيات من قاعدة البيانات على الخط
لكن لا جدوى ... لك حلان :
01 - اعادة انشاء قاعدة بيانات بالرسم العثماني في جهاز يتوفر على الخط و من ثم زرعه في الاجهزة
مع دخول التجميعية
02 - استعمال صور وهذا غير المشروع المطروح و المقصود منه التخلي عن الصور وتفادي الحجم الكبير للصور

موفق :abc_152:

[عبود عبود]

بدأنا إن شاء الله بمحاولة شرح بعض الطرق فى قسم الشروحات يرجى المتابعة

وعلى ذلك أرى إلغاء تثبيت هذا الموضوع



:abc_152: