المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : التحويلات بين وحدات الوزن - الطول - السعة


ثامر أبو بلقيس
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
----------------------------------------------------------------------------------------------------

abohmam
03-12-2015, 07:46 PM
بارك الله فيك أخى ثامر

جزاك الله خيرا على اعطاءنا الخلاصة

:abc_152:

أبو يوسف
04-12-2015, 11:08 AM
جزاك الله خيرا اخانا أبا بلقيس على المثابرة وعدم الضن بأي معلومة تصلك :abc_152:

عبد الهادي بهاب
04-12-2015, 11:30 AM
:abc_022::abc_022:

تحية في انتظار تجسيد الكود في مشروع
تقبلوا تحياتي

عبد الهادي بهاب
04-12-2015, 04:50 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
----------------------------------------------------------------------------------------------------

شكرا على هذا الشرح و المشروع .......... هذا الملف من تطبيقات الكود

http://cdn.top4top.co/i_cf5a8db0681.jpg

لتحميل الملف المفتوح
http://up.top4top.net/downloadf-top4top_fcb3428fa01-rar.html

تحياتي