+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج تعديل على الكود هدا (/showthread.php?tid=41646)
محتاج تعديل على الكود هدا - AMAZ1972AMAZ - 05-06-22
السلام عليكم جميعا
محتاج منكم مساعدة فى التعديل على هدا الكود
بحيث يرجع الرقم اى ماكان علية
قمة بأظافة هدا الكود
Label1.Text = "0." & Val(Label2.Text)
يعنى يتم تحويل اى رقم الى كسر مثل
1 يصبح 0.1
100 يصبح 0.100
10000 يصبح 0.10000
2321 يصبح 0.2321
4320 يصبح 0.4320 وهكدا
اريد كود يقوم بأزالة الفاصلة (.) وارجاع الرقم الى سابقة مع ان يبقى جميع الاسفار
يعنى 0.10000 تصبح 10000 ولا تصبح 1
هدا الكود فى الارقام التى لاتنتهى بصفر يشتغل بس فى الارقام المنتهى بصفر لايعطى نتيجة صح يرجى يرجى يرجى المساعدة بكود او التعديل على هدا الكود
ولكم الدعاء والشكر
Dim x As Object
x = Split(Val(Label12.Text), ".")
Label13.Text = x(1)
Label8.Text = x(0)
RE: محتاج تعديل على الكود هدا - أبو خالد الشكري - 06-06-22
مرحبا بك
أعتقد بأن الحل يكون في الأمر Replace
يمكنك أن ترى المثال في المرفقات .
أخبرني إن كان الحل خاطئًا .
RE: محتاج تعديل على الكود هدا - رمضان272 - 06-06-22
جرب هذا التعديل
PHP كود :
Dim x
x = Split(Label12.Text, ".")
Label13.Text = x(1)
Label8.Text = x(0)
RE: محتاج تعديل على الكود هدا - AMAZ1972AMAZ - 06-06-22
جزاكم الله كل خير وجعله الله فى ميزان حسناتكم مبدعون دائما الاتنين اشتغلا كما اريد
جزاكم الله الفردوس الاعلاء