المشاركة الأصلية بواسطة ثامر أبو بلقيس
مشاهدة المشاركة
كود:
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
الى اخر اية
بالنسبة لى لن استطع ان اقدم للادارة المصحف كاملا
اريد مثلا من سورة الناس الى اخر سورة القارعة
هم يريدون ان يتعلموا التجربة والفكرة بحيث يكون هناك مجال لتعليم باقى المحفظين على مثل ما تعلمته منك الى الان او يزيد
تعليق