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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-07-2015, 10:56 PM

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

في global functions

كود PHP:


function muzikcal(path)

Audio.Load(CHANNEL_BACKGROUND, path, true, false);

Page.StartTimer(10);

local tblSplit = String.SplitPath(path);

nLen = Audio.GetLength(CHANNEL_BACKGROUND)

tnctr=true

end

في حدث on timer

كود PHP:


if tnctr then

nCurPos = Audio.GetCurrentPos(CHANNEL_BACKGROUND);

nGetLength = Audio.GetLength(CHANNEL_BACKGROUND);

if Math.Round(nCurPos)== Math.Round(nGetLength) then

item = item + 1

itemdatasi = ListBox.GetItemData("ListBox2", item);

ListBox.DeselectItem("ListBox2", -1);

ListBox.SelectItem("ListBox2", item);

muzikcal(itemdatasi)

end

end

ضع في تجميعيتك العناصر التالية
- ListBox1 تدعم العربي و لا تكتب فيها أي معادلة يمكنك اخفاء العنصر
- Input1 يقبل العربي و متعدد الاسطر هذا العنصر ستكتب فيه ما تريد سماعه
- ListBox2 تدعم العربي و تستطيع جعله مخفي كذلك
في حدث on select لهذا العنصر أكتب

كود PHP:


tblSel = ListBox.GetSelected(this);

if tblSel then

    item = tblSel[1]

    local sLBData = ListBox.GetItemData(this, tblSel[1]);

    muzikcal(sLBData)

end

أخيرا نحتاج لزر لينفذ المطلوب أكتب في هذا الزر
الكود التالي :

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-07-2015, 10:57 PM

كود PHP:


ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
------------------------------------------------------------------------------------------------------------
t =Input.GetText("Input1");
istibdalate={["ّ"] = ""} 
s = string.gsub (t, ".",istibdalate) 
----------------------------------------
for i = 1,String.Length(s) do
d=string.sub(s, i, i)
result = ListBox.AddItem("ListBox1", d, "");
end
my_table = {"َ", "ً", "ُ", "ٌ", "ّ" ,"ِ", "ٍ", "ْ"};
for k = 1,ListBox.GetCount("ListBox1")do
for x = 1 , #my_table do
var = ListBox.GetItemText("ListBox1", k);
if var == my_table[x] then
ListBox.SetItemText("ListBox1", k-1, ListBox.GetItemText("ListBox1", k-1)..ListBox.GetItemText("ListBox1", k));
ListBox.DeleteItem("ListBox1", k);
end
end
end
--------------------------------------------------------------------------------------------------------------------------
for k = 1,ListBox.GetCount("ListBox1")do
p = ListBox.FindItem("ListBox1",1, LB_BYTEXT, "ي");
if p ~= -1   then
ListBox.SetItemText("ListBox1", p-1, ListBox.GetItemText("ListBox1", p-1)..ListBox.GetItemText("ListBox1", p));
ListBox.DeleteItem("ListBox1", p);
end
end
--------------------------------------------------------------------------------------------------------------------------
for k = 1,ListBox.GetCount("ListBox1")do
p = ListBox.FindItem("ListBox1",1, LB_BYTEXT, "ا");
if p ~= -1  then
ListBox.SetItemText("ListBox1", p-1, ListBox.GetItemText("ListBox1", p-1)..ListBox.GetItemText("ListBox1", p));
ListBox.DeleteItem("ListBox1", p);
end
end
--------------------------------------------------------------------------------------------------------------------------
for k = 1,ListBox.GetCount("ListBox1")do
p = ListBox.FindItem("ListBox1",1, LB_BYTEXT, "و");
if p ~= -1  then
ListBox.SetItemText("ListBox1", p-1, ListBox.GetItemText("ListBox1", p-1)..ListBox.GetItemText("ListBox1", p));
ListBox.DeleteItem("ListBox1", p);
end
end
--------------
--------------------------------------------------------------------------------------------------------------------------
for k = 1,ListBox.GetCount("ListBox1")do
p = ListBox.FindItem("ListBox1",1, LB_BYTEXT, "لْ");
if p ~= -1  and  String.Find(ListBox.GetItemText("ListBox1", p-1), "ا", 1, false)~= -1 then
ListBox.SetItemText("ListBox1", p-1, ListBox.GetItemText("ListBox1", p-1)..ListBox.GetItemText("ListBox1", p));
ListBox.DeleteItem("ListBox1", p);
end
end
------------
for n =1 , ListBox.GetCount("ListBox1") do
g =  ListBox.GetItemText("ListBox1", n);
istibdalate2={[" "] = ""} 
s2 = string.gsub (g, ".",istibdalate2)
ListBox.AddItem("ListBox2",s2 , "AutoPlay\\Audio\\"..s2..".mp3");
end
for y = 1,ListBox.GetCount("ListBox2")do
y1 = ListBox.FindItem("ListBox2", y, LB_BYTEXT, "");
if y1 ~=-1 then
ListBox.SetItemData("ListBox2", y1, "AutoPlay\\Audio\\0.mp3");
end
end
ListBox.SelectItem("ListBox2", 1);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

عيد مبارك

**امل الماضي امل الماضي** · 17-07-2015, 12:09 AM

موفق بإذن الله ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 17-07-2015, 01:42 AM

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

موفق بإذن الله ... لك مني أجمل تحية .

مرور طيب ... شكرا
عيد مبارك

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

خوارزمية برنامج ناطق للنصوص بالعربي

خوارزمية برنامج ناطق للنصوص بالعربي

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك