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

 
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 

كود PHP:

    

        
[code]

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 
[/code]

كود PHP:

    

        
[code]

tblSel = ListBox.GetSelected(this);

if tblSel then

    item = tblSel[1]

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

    muzikcal(sLBData)

end 
[/code]

 
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

من افكار ثامر ابوبلقيس