إعـــــــلان

**خادم المسلمين خادم المسلمين** · 23-12-2015, 05:05 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

ســـؤال جيد

اضغط على عنصر الميديايلير نفسه
في الحدث on finish قلت في الحدث on finish
يصبح الكود:

كود PHP:


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

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

**خادم المسلمين خادم المسلمين** · 23-12-2015, 05:06 PM

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

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 05:08 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 05:27 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 05:28 PM

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

**خادم المسلمين خادم المسلمين** · 23-12-2015, 05:30 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

تم واسمه
Plugin4

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 05:51 PM

أول شيء تقوم به تدخل للميديايلير الأول
و في حدث on play ركز معي في الحدث on play
رايح نضبف سطر واحد يوقف الميديا الجديد يصبح الكود :

كود PHP:


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 أكتب :

كود PHP:


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 أكتب :

كود PHP:


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
أكتب :

كود PHP:


belkiss=1

توجه لحدث on timer تجد أكواد
غيرها بهذه

كود PHP:


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
لا تحذف منها أي حرف بل ضف في آخر الأكواد أي أسفلها تماما
السطر :

كود PHP:


 belkiss= n[1]

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

كود PHP:


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

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 05:56 PM

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

**خادم المسلمين خادم المسلمين** · 23-12-2015, 06:03 PM

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

مع اتباع باقى الخطوات
فلم يعمل الزر

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 06:22 PM

حاول اتباع الخطوات التي رسمتها خطوة خطوة لانه بعمل عندي عادي جدا

اذ لم تصل غدا نراجع و نقارن الاكواد واحدا واحدا

**خادم المسلمين خادم المسلمين** · 23-12-2015, 06:25 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

حاول اتباع الخطوات التي رسمتها خطوة خطوة لانه بعمل عندي عادي جدا

اذ لم تصل غدا نراجع و نقارن الاكواد واحدا واحدا

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 06:26 PM

شكرا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 06:27 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 06:45 PM

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

كود PHP:


belkiss=1

فــي الحدث on timer

كود PHP:


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

كود PHP:


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

كود PHP:


b1= ComboBox.GetSelected(this); 

bidaya = ComboBox.GetItemText(this,e_Selection); 

index_1 = ComboBox.GetItemData(this,e_Selection);

03 - في العنصر ComboBox2
في الحدث on select

كود PHP:


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

كود PHP:


b4= ComboBox.GetSelected(this); 

lakhder = ComboBox.GetItemText(this,e_Selection); 

lakhder = String.ToNumber(lakhder);

5 - في الزر الذي أضفته أنت و الخاص بقراءة السور متتالية :
أكتب عند الضغط عليه :

كود PHP:


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

كود PHP:


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

كود PHP:


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

كود PHP:


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

كود PHP:


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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 23-12-2015, 06:59 PM

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

إعـــــــلان

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك