my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"}; 
for b,n in pairs (my_table) do   
if Button.GetText(this)==n  then 
Label.SetText("sc", Label.GetText("sc")+1);  
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false)
x=1
end
end
-------------------------
for b,n in pairs (my_table) do   
if x~=1 then
Dialog.Message("خطأ","هذا الحرف شمسي");
break
end
end
x=0
 Page.ClickObject("b1")

t = "ابغحجكوخفعقيمهـ"
n= String.Find(t, Button.GetText(this), 1, false);
if n ~= -1 then
Label.SetText("sc", Label.GetText("sc")+1);  
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false)
else
Dialog.Message("خطأ","هذا الحرف شمسي");
end
Page.ClickObject("b1")