ثامر أبو بلقيس
03-12-2015, 07:15 PM
السلام عليكم ورحمة الله وبركاته
حتى لا تضيع الأكواد في وسط النقاشات
هاهي الأكواد التي تمكنك من التحويل بين الوحدات المذكورة في العنوان
بعد إجراء التعديلات التي أراها مناسبة لعمل الأكواد بصورة جيدة إن شاء الله
bidaya = 12.5 ---- الرقم المراد تحويله
x = "mm" ------ وحدة الرقم المراد تحويله
y ="cm" ---- الوحدة التي نريد التحويل إليها
-----------------------------------------------------------
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 ------ اذن قمنا بمعرفو ترتيب الوحدة الاولى و الثانية من خلال المصفوفة
Dialog.Message("Notice", bidaya/(10^(value2-value1)));
end
----------------------------------------------------------------------------------------------------
حتى لا تضيع الأكواد في وسط النقاشات
هاهي الأكواد التي تمكنك من التحويل بين الوحدات المذكورة في العنوان
بعد إجراء التعديلات التي أراها مناسبة لعمل الأكواد بصورة جيدة إن شاء الله
bidaya = 12.5 ---- الرقم المراد تحويله
x = "mm" ------ وحدة الرقم المراد تحويله
y ="cm" ---- الوحدة التي نريد التحويل إليها
-----------------------------------------------------------
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 ------ اذن قمنا بمعرفو ترتيب الوحدة الاولى و الثانية من خلال المصفوفة
Dialog.Message("Notice", bidaya/(10^(value2-value1)));
end
----------------------------------------------------------------------------------------------------