أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


07-10-2017, 06:34 PM
talalosman غير متصل
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #1  

كيف يتم عمل فواصل العشرية للارقام


تحياتي للجميع
أرجو التكرم بمساعدي لاظهار الارقام على input لتصبح بالشكل الاتي => (1,523,222,00) مع ملاحظة ان الـ Input يظهر ناتج ضرب عن رقمين وشاكراً لكم مجهودكم





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
حصريا موسوعة جينيس للارقام القياسية 2017 wael khater كتب العلوم العامة 9 09-08-2017 10:23 PM
درس عمل فواصل Mo7med JO دروس الفوتوشوب وبرامج الجرافيك المختلفة 21 29-01-2017 07:10 PM
موسوعة غينس للارقام القياسية 2015 سعد الدين كتب العلوم العامة 3 08-01-2016 05:37 PM
الماكولات الفلسطينية تدخل موسوعة غينتس للارقام القياسية (البومات احترافية ) raed raed خلفيات فوتوشوب - فريمات وزخارف للفوتوشوب GFX 3 05-05-2010 09:34 PM
فواصل منتديات bent maser صور - طرائف - الغاز - مسابقات - تسالي - مرح - نكت - فوازير 0 27-03-2009 01:33 PM

07-10-2017, 10:22 PM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #2  
الحل منقول من موقع طريق الاحتراف


C = Input.GetText("Input1");
x = string.format("%.2f", C)
function ALGERIA(C)
K = x
while true do  
K, C = string.gsub(K, "^(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Dialog.Message("Notice",ALGERIA(x));

08-10-2017, 12:05 AM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 458
إعجاب: 64
تلقى 201 إعجاب على 107 مشاركة
تلقى دعوات الى: 17 موضوع
    #3  
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
الحل منقول من موقع طريق الاحتراف


C = Input.GetText("Input1");
x = string.format("%.2f", C)
function ALGERIA(C)
K = x
while true do  
K, C = string.gsub(K, "^(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Dialog.Message("Notice",ALGERIA(x));
جميل و عملي حاولت باستعمال دالة math.mid
لم اصل الى اختصار الى حد الان
فقط من اجل اعداد اقل من 13

هذه محاولة باستعمال الحل التقليدي

Input.GetText("Input1");

  if 
#C > 3 and #C < 7 then
  
igli String.Mid(C,#C-2,3);
  
ala String.Mid(C,1,#C-3)..","..igli;
  
elseif #C > 6 and #C < 10 then
  
igli String.Mid(C,#C-2,3);
  
igl String.Mid(C,#C-5,3);
  
ala String.Mid(C,1,#C-6)..","..igl..","..igli;
  
elseif #C > 9 and #C < 13 then
  
igli String.Mid(C,#C-2,3);
  
igl String.Mid(C,#C-5,3);
  
ig String.Mid(C,#C-8,#C-9);
  
ala String.Mid(C,1,#C-6)..","..ig..","..igl..","..igli;
  
else
  
ala C;  
  
end


Dialog
.Message("",ala..".00"); 


08-10-2017, 03:31 PM
talalosman غير متصل
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #4  
شاكراً لكم و بإذن الله سأقوم بتجربتها

08-10-2017, 04:59 PM
talalosman غير متصل
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #5  
بارك الله فيكم تم العمل كما هو مطلوب

09-10-2017, 03:00 PM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #6  
المشاركة الأصلية كتبت بواسطة عبد الهادي بهاب 
جميل و عملي حاولت باستعمال دالة math.mid
لم اصل الى اختصار الى حد الان
فقط من اجل اعداد اقل من 13

هذه محاولة باستعمال الحل التقليدي

Input.GetText("Input1");

  if 
#C > 3 and #C < 7 then
  
igli String.Mid(C,#C-2,3);
  
ala String.Mid(C,1,#C-3)..","..igli;
  
elseif #C > 6 and #C < 10 then
  
igli String.Mid(C,#C-2,3);
  
igl String.Mid(C,#C-5,3);
  
ala String.Mid(C,1,#C-6)..","..igl..","..igli;
  
elseif #C > 9 and #C < 13 then
  
igli String.Mid(C,#C-2,3);
  
igl String.Mid(C,#C-5,3);
  
ig String.Mid(C,#C-8,#C-9);
  
ala String.Mid(C,1,#C-6)..","..ig..","..igl..","..igli;
  
else
  
ala C;  
  
end
Dialog
.Message("",ala..".00"); 

انقل سؤالك لقسم الاستفسارات للنظر فيه
موفق

11-10-2017, 11:04 AM
talalosman غير متصل
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #7  
اخي ثامر أبو بلقيس تقديري و إمتناني
قمت بإستخدام الكود الذي ادرجته ولكن هنالك مشكلة في ناتج العملية الحسابية
1.5656×2.5 = 3.914
في حين ان ناتج العملية من خلال الكود تعطي
1.5656×2.5= 3.925
ارجو توضيح خلل ما قمت بإدراجه
وهذا هو الكود

C = Input.GetText("Input1");
x = string.format("%.2f", C)
K = x*2.5
function ALGERIA(k)
while true do
K, C = string.gsub(K,"(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Input.SetText("Input2", ALGERIA(k))

12-10-2017, 12:24 AM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 458
إعجاب: 64
تلقى 201 إعجاب على 107 مشاركة
تلقى دعوات الى: 17 موضوع
    #8  
المشاركة الأصلية كتبت بواسطة talalosman 
اخي ثامر أبو بلقيس تقديري و إمتناني
قمت بإستخدام الكود الذي ادرجته ولكن هنالك مشكلة في ناتج العملية الحسابية
1.5656×2.5 = 3.914
في حين ان ناتج العملية من خلال الكود تعطي
1.5656×2.5= 3.925
ارجو توضيح خلل ما قمت بإدراجه
وهذا هو الكود

C = Input.GetText("Input1");
x = string.format("%.2f", C)
K = x*2.5
function ALGERIA(k)
while true do
K, C = string.gsub(K,"(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Input.SetText("Input2", ALGERIA(k))

تعديل على كود اخر للاستاذ ثامر

tInput.GetText("Input1");
""..tonumber(t)*2.5;
---------------------------------------
Math.Mod(t:len(),3);---------------
if 
x>=1 then---------------------------
k1String.Mid(t1x)..'.'-----------
elseif 
x==0 then-----------------------
k1String.Mid(t1x)----------------
end--ABOU_BELKISS ALGER LE:09-10-2017--
k2 ''t2String.Mid(tx+1,t:len())
for 
1,t2:len(),do----------------
k2=k2..String.Mid(t2i3)..'.'-------
end-------  abc4web -------------------
BELKISS =k1..k2..'00'------------------
---------------------------------------

Dialog.Message("Notice",BELKISS ); 

12-10-2017, 12:46 AM
ثامر أبو بلقيس غير متصل
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
    #9  
المشاركة الأصلية كتبت بواسطة talalosman 
اخي ثامر أبو بلقيس تقديري و إمتناني
قمت بإستخدام الكود الذي ادرجته ولكن هنالك مشكلة في ناتج العملية الحسابية
1.5656×2.5 = 3.914
في حين ان ناتج العملية من خلال الكود تعطي
1.5656×2.5= 3.925
ارجو توضيح خلل ما قمت بإدراجه
وهذا هو الكود

C = Input.GetText("Input1");
x = string.format("%.2f", C)
K = x*2.5
function ALGERIA(k)
while true do
K, C = string.gsub(K,"(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Input.SetText("Input2", ALGERIA(k))
عندك خطأ بسيط الضرب في 2.5 يتم في بداية الكود
لاحظ وعاين النتائج (موفق)
Input.GetText("Input1")*2.5
string.format("%.2f"C)
function 
ALGERIA(C)
x
while true do  
Kstring.gsub(K"^(-?%d+)(%d%d%d)"'%1,%2')
if (
C==0then
break
end
end
return K
end
Input
.SetText("Input2"ALGERIA(k)) 

12-10-2017, 10:57 AM
talalosman غير متصل
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
تلقى دعوات الى: 0 موضوع
    #10  
الاخوة الكرام عبد الهادي بهاب و ثامر أبو بلقيس أنار الله دروبكم و وفقكم و لكم مني كل الود و التقدير

 


كيف يتم عمل فواصل العشرية للارقام

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.