تويت
v= String.ToNumber(Paragraph.GetText("Paragraph1"));-------الرقم المطلوب
uq = Label.GetText("uq");------------الوحدة الاساسبة
ur = Label.GetText("ur");----------الوحدة المطلوبة
r= String.ToNumber(Input.GetText("Input1"));----------اجابة المستخدم
lu={"kg","hg","dag","g","dg","cg","mm"};--------------الوحدات
cu={"1000","100","10","1","0.1","0.01","0.001"};--------قيمتها بالنسبة للغرام
local re=0
local wi=0
for i in pairs(lu) do
if uq == lu[i] then
wq = cu[i]
rep = v*cu[i]
end
end
wi= wq
re=rep
for p in pairs(cu) do
if ur == lu[p] then
if re == r*cu[p] then
Paragraph.SetText("Paragraph2", "صحيح ممتاز");
else
Paragraph.SetText("Paragraph2","للاسف اخطأت");
jst= v*( wi/cu[p])
Paragraph.SetText("Paragraph3",jst);
end
end
end
unit = TextFile.ReadToTable("AutoPlay\\Docs\\1.txt");
for i,n in pairs(unit) do
v1 = String.Find(n, ""..Label.GetText("uq"), 1, false);
if v1==1 then
rr=String.Mid(n,5,10)
end
v2 = String.Find(n, ""..Label.GetText("ur"), 1, false);
if v2==1 then
qq=String.Mid(n,5,10);
end
end
rep = String.ToNumber(Paragraph.GetText("Paragraph1"))*(rr/qq)
if rep== String.ToNumber(Input.GetText("Input1"))then
Paragraph.SetText("Paragraph2", "ÕÍíÍ ããÊÇÒ");
else
Paragraph.SetText("Paragraph2","ááÇÓÝ ÇÎØÃÊ");
Paragraph.SetText("Paragraph3",rep);
end
bidaya = 981 ---- الرقم المراد تحويله
x = "mg" ------ وحدة الرقم المراد تحويله
y ="g" ---- الوحدة التي نريد التحويل إليها
-----------------------------------------------------------
value1=0 ---- يتم هنا تخزين ترتيب الوحدة
value1=0 --- يتم هنا تخزين ترتيب الوحدة الثانية
---------------
my_table = {"mg", "cg", "dg", "g", "dag", "hg", "kg"}; ---- مصفوفة للوحدات
for n,p in pairs(my_table) do -- القيمتين واحدة لاسم الوحدة و ترتيبها بمعنى كل وحدة لها رقم من 1 الى7 هذه الأرقام سأستغلهاكخطوات
if p==x then ---- اذا تحقق تساوي بين اسم الوحدة و الوحدة المعلن عنها في بداية الكود
value1=n ---- تخزن ترتيب قلت ترتيب الوحدة وفق المصفوفة
end
if p==y then ---- و هنا اذا تساوى اسم الوحدة مع الوحدة المحول اليها
value2=n ----- يتم تخزين ترنتيب الوحدة الثانية
end
end ------ اذن قمنا بمعرفو ترتيب الوحدة الاولى و الثانية من خلال المصفوفة
if value1-value2 < 0 then --- بعد اجراء عملية الطرح بين الترتيبين الناتج له علاقة بالتحويل
Dialog.Message("Notice", bidaya/(10^Math.Abs((value1-value2))));
elseif value1-value2 >=1 then
Dialog.Message("Notice", bidaya*(10^Math.Abs((value1-value2))));
elseif value1-value2 ==0 then
Dialog.Message("Notice", bidaya);
end
bidaya = 981 ---- الرقم المراد تحويله
x = "hl" ------ وحدة الرقم المراد تحويله
y ="l" ---- الوحدة التي نريد التحويل إليها
-----------------------------------------------------------
value1=0 ---- يتم هنا تخزين ترتيب الوحدة
value1=0 --- يتم هنا تخزين ترتيب الوحدة الثانية
---------------
my_table = {"mg", "cg", "dg", "g", "dag", "hg", "kg", "", "", "", "mm","cm", "dm", "m", "dam", "hm", "km", "", "", "","ml","cl", "dl", "l", "dal", "hl"}; ---- مصفوفة للوحدات
if String.Mid(x, String.Length(x), 1)==String.Mid(y, String.Length(y), 1) then
for n,p in pairs(my_table) do -- القيمتين واحدة لاسم الوحدة و ترتيبها بمعنى كل وحدة لها رقم من 1 الى7 هذه الأرقام سأستغلهاكخطوات
if p==x then ---- اذا تحقق تساوي بين اسم الوحدة و الوحدة المعلن عنها في بداية الكود
value1=n ---- تخزن ترتيب قلت ترتيب الوحدة وفق المصفوفة
end
if p==y then ---- و هنا اذا تساوى اسم الوحدة مع الوحدة المحول اليها
value2=n ----- يتم تخزين ترنتيب الوحدة الثانية
end
end ------ اذن قمنا بمعرفو ترتيب الوحدة الاولى و الثانية من خلال المصفوفة
if value1-value2 < 0 then --- بعد اجراء عملية الطرح بين الترتيبين الناتج له علاقة بالتحويل
Dialog.Message("Notice", bidaya/(10^Math.Abs((value1-value2))));
elseif value1-value2 >=1 then
Dialog.Message("Notice", bidaya*(10^Math.Abs((value1-value2))));
elseif value1-value2 ==0 then
Dialog.Message("Notice", bidaya);
end
else
Dialog.Message("Notice", "الوحدتان مختلفتان لا يمكن إجراء التحويل");
end
bidaya = 981 ---- الرقم المراد تحويله
x = "hl" ------ وحدة الرقم المراد تحويله
y ="l" ---- الوحدة التي نريد التحويل إليها
-----------------------------------------------------------
value1=0 ---- يتم هنا تخزين ترتيب الوحدة
value1=0 --- يتم هنا تخزين ترتيب الوحدة الثانية
---------------
my_table = {"mg", "cg", "dg", "g", "dag", "hg", "kg", "", "", "", "mm","cm", "dm", "m", "dam", "hm", "km", "", "", "","ml","cl", "dl", "l", "dal", "hl"}; ---- مصفوفة للوحدات
if String.Mid(x, String.Length(x), 1)==String.Mid(y, String.Length(y), 1) then
for n,p in pairs(my_table) do -- القيمتين واحدة لاسم الوحدة و ترتيبها بمعنى كل وحدة لها رقم من 1 الى7 هذه الأرقام سأستغلهاكخطوات
if p==x then ---- اذا تحقق تساوي بين اسم الوحدة و الوحدة المعلن عنها في بداية الكود
value1=n ---- تخزن ترتيب قلت ترتيب الوحدة وفق المصفوفة
end
if p==y then ---- و هنا اذا تساوى اسم الوحدة مع الوحدة المحول اليها
value2=n ----- يتم تخزين ترنتيب الوحدة الثانية
end
end ------ اذن قمنا بمعرفو ترتيب الوحدة الاولى و الثانية من خلال المصفوفة
if value1-value2 < 0 then --- بعد اجراء عملية الطرح بين الترتيبين الناتج له علاقة بالتحويل
Dialog.Message("Notice", bidaya/(10^Math.Abs((value1-value2))));
elseif value1-value2 >=1 then
Dialog.Message("Notice", bidaya*(10^Math.Abs((value1-value2))));
elseif value1-value2 ==0 then
Dialog.Message("Notice", bidaya);
end
else
Dialog.Message("Notice", "الوحدتان مختلفتان لا يمكن إجراء التحويل");
end
تعليق