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

  مواضيع مميزة  

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



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

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

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





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
موسوعة غينس للارقام القياسية 2015 سعد الدين كتب العلوم العامة 5 21-11-2017 11:19 PM
حصريا موسوعة جينيس للارقام القياسية 2017 wael khater كتب العلوم العامة 9 09-08-2017 10:23 PM
درس عمل فواصل Mo7med JO دروس الفوتوشوب وبرامج الجرافيك المختلفة 21 29-01-2017 07:10 PM
فواصل للمواضيع K_A_R_E_E_M صور - طرائف - الغاز - مسابقات - تسالي - مرح - نكت - فوازير 1 07-09-2010 07:36 PM
الماكولات الفلسطينية تدخل موسوعة غينتس للارقام القياسية (البومات احترافية ) raed raed خلفيات فوتوشوب - فريمات وزخارف للفوتوشوب GFX 3 05-05-2010 09:34 PM
  #2  
07-10-2017, 10:22 PM
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
الحل منقول من موقع طريق الاحتراف


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));

  #3  
08-10-2017, 12:05 AM
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 719
تلقى دعوات الى: 27 موضوع
إعجاب: 175
تلقى 433 إعجاب على 245 مشاركة
 
المشاركة الأصلية كتبت بواسطة ثامر أبو بلقيس 
الحل منقول من موقع طريق الاحتراف


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"); 


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

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

  #6  
09-10-2017, 03:00 PM
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
المشاركة الأصلية كتبت بواسطة عبد الهادي بهاب 
جميل و عملي حاولت باستعمال دالة 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"); 

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

  #7  
11-10-2017, 11:04 AM
عضو جديد
رقم العضوية: 85729
تاريخ التسجيل: Jun 2007
المشاركات: 5
تلقى دعوات الى: 0 موضوع
إعجاب: 5
تلقى 0 إعجاب على 0 مشاركة
 
اخي ثامر أبو بلقيس تقديري و إمتناني
قمت بإستخدام الكود الذي ادرجته ولكن هنالك مشكلة في ناتج العملية الحسابية
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))

  #8  
12-10-2017, 12:24 AM
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 719
تلقى دعوات الى: 27 موضوع
إعجاب: 175
تلقى 433 إعجاب على 245 مشاركة
 
المشاركة الأصلية كتبت بواسطة 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 ); 

  #9  
12-10-2017, 12:46 AM
عضو مشارك
رقم العضوية: 932114
تاريخ التسجيل: Mar 2017
المشاركات: 32
تلقى دعوات الى: 0 موضوع
إعجاب: 0
تلقى 4 إعجاب على 4 مشاركة
 
المشاركة الأصلية كتبت بواسطة 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)) 

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




الساعة الآن 06:16 AM.


Powered by vBulletin® Version
Copyright ©2000 - 2018, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.