+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : بالنسبة للفورمات الخاص بالارقام (/showthread.php?tid=29717)
بالنسبة للفورمات الخاص بالارقام - hannileo - 30-05-19
السلام عليكم ورحمة الله وبركاته,,,
اخواني الكود التالي في برنامجي واحد للسعر والاخر اجمالي السعر يعني حاصل ضرب الكمية بالنسعر المفرد يظهر المجموع
كيف اجعل الفورمات الخر نفس الاول ###,###,###.00 بهذه الطريقةيظهر في listview حاولت لكن يجب ازالة val
كود :
ListView2.ListItems(ListView2.ListItems.Count).SubItems(6) = Format(Text13.text, "###,###,###.00")
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Val(Text14.text) * Val(Text6.text)وشكرا لكم
RE: بالنسبة للفورمات الخاص بالارقام - sami4 - 30-05-19
(30-05-19, 03:49 PM)hannileo كتب : السلام عليكم ورحمة الله وبركاته,,,
اخواني الكود التالي في برنامجي واحد للسعر والاخر اجمالي السعر يعني حاصل ضرب الكمية بالنسعر المفرد يظهر المجموع
كيف اجعل الفورمات الخر نفس الاول ###,###,###.00 بهذه الطريقةيظهر في listview حاولت لكن يجب ازالة val
كود :
ListView2.ListItems(ListView2.ListItems.Count).SubItems(6) = Format(Text13.text, "###,###,###.00")
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Val(Text14.text) * Val(Text6.text)
وشكرا لكم
طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format
RE: بالنسبة للفورمات الخاص بالارقام - hannileo - 01-06-19
(30-05-19, 04:43 PM)sami4 كتب : طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format
مشكور اخ سامي على الفكرة
لكن المشكلة التي ظهرت هي طريقة جمع الارقام مع بعضها حيث اصبح مثلا سعر المنتج 2,750 والمتج الاخر 2,700
يظهر ناتج المجموع 4
فما هو حل هذه المشكلة
وشكرا لك
RE: بالنسبة للفورمات الخاص بالارقام - sami4 - 02-06-19
(01-06-19, 02:17 PM)hannileo كتب :(30-05-19, 04:43 PM)sami4 كتب : طيب اعمل العمليه الحسابيه في متغير لوحده
ثم ضع بالتنسيق المطلوب مثل
dim v as double
v=Val(Text14.text) * Val(Text6.text) ' Mul
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = Format(v,"###,###,###.00") 'Format
مشكور اخ سامي على الفكرة
لكن المشكلة التي ظهرت هي طريقة جمع الارقام مع بعضها حيث اصبح مثلا سعر المنتج 2,750 والمتج الاخر 2,700
يظهر ناتج المجموع 4
فما هو حل هذه المشكلة
وشكرا لك
خلي السطر بهذا الشكل
v = Val(Replace(Text14.Text, ",", "")) * Val(Replace(Text6.Text, ",", "")) ' Mul
وكل عام وانتم بخير
RE: بالنسبة للفورمات الخاص بالارقام - hannileo - 06-06-19
بارك الله بكم استاذ سامي واستاذ عامر
تم حل المشكلة بفضل الله وبفضل جهودكم
اشكركم
