منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] فيجوال بيسك 2015 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] فيجوال بيسك 2015 (/showthread.php?tid=31186)

فيجوال بيسك 2015 - Atyafalk - 02-09-19

Huh السلام عليكم 
عندي استفسار 
حاليا نشتغل ع مشروع منظومة مبيعات 
الفكرة في سؤالي نبي العميل لما يدخل رقم عشري متلا سعر صنف بي 3.5 فالارقام الصحيحة تنحط ف تكست و والارقام عشرية في تكست تاني
يعني 3 بروحها في تكست بوكس
و ال2 بروحها في تكست بوكس Huhت

RE: فيجوال بيسك 2015 - سعود - 02-09-19

المثال كما بالصورة اعلاه
سبحان الله
غالبا من سهولة الكود اكتفي بتصويره مع الفورم وارفعه والان ! انظر ماذا حدث للصورة؟
PHP كود :
       TextBox2.Text = Split(TextBox1.Text, ".")(0)
        TextBox3.Text = Split(TextBox1.Text, ".")(1) 
ثلاث مربعات نص باسماءها الافتراضية


RE: فيجوال بيسك 2015 - Atyafalk - 09-09-19

(02-09-19, 10:36 PM)سعود بس ف حالة ندخل رقم صحيح مش حيخرجلي الرقم الصحيح جهه الدنانير و ال0 جهه الدراهم كتب :
المثال كما بالصورة اعلاه
سبحان الله
غالبا من سهولة الكود اكتفي بتصويره مع الفورم وارفعه والان ! انظر ماذا حدث للصورة؟
PHP كود :
       TextBox2.Text = Split(TextBox1.Text, ".")(0)
        TextBox3.Text = Split(TextBox1.Text, ".")(1) 
ثلاث مربعات نص باسماءها الافتراضية


RE: فيجوال بيسك 2015 - ابراهيم ايبو - 09-09-19

السلام عليكم اخي الكريم
بعد الاذن من  اخي الغالي سعود جزاه الله كل الخير
عدل الكود اخي الكريم هكذا
كود :
Dim number As Double = Val(TextBox1.Text) + 0.0
       TextBox1.Text = FormatNumber((number), 2)
       TextBox2.Text = Split(TextBox1.Text, ".")(0)
       TextBox3.Text = Split(TextBox1.Text, ".")(1)