منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أمر حيرني - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أمر حيرني (/showthread.php?tid=35848)

أمر حيرني - Hamza Elshare - 26-07-20

السلام عليكم
لدي textbox1 و button1
وأريد كود لعمل الآتي:
القيمة التي أكتبها في التكست بعد الضغط على البتن يجعل خانة الآحاد فيها صفر مثل الآتي:
التكست يساوي 106 عند الضغط على البتن يغير تكست إلى 100
التكست يساوي 276 عند الضغط على البتن يغير تكست إلى 270
التكست يساوي 1076 عند الضغط على البتن يغير تكست إلى 1070
وهكذا 
أرجوا المساعدة بارك الله فيكم.

RE: أمر حيرني - asemshahen5 - 26-07-20

PHP كود :
       Dim x As Integer = TextBox1.Text
        x = TextBox1.Text.Remove(TextBox1.Text.Length - 1)
        TextBox1.Text = x & 0 


RE: أمر حيرني - Hamza Elshare - 26-07-20

(26-07-20, 02:38 AM)asemshahen5 كتب :
PHP كود :
       Dim x As Integer = TextBox1.Text
        x = TextBox1.Text.Remove(TextBox1.Text.Length - 1)
        TextBox1.Text = x & 0 

جزاك الله خيرا وبارك فيك

RE: أمر حيرني - ابراهيم ايبو - 26-07-20

السلام عليكم ورحمة الله وبركاته
بارك الله بك اخي عاصم طريقة جميلة تعتمد المخيلة البرمجية 
ومن باب التنويع في الكود توجد دالة في لغة الفيجوال تفعل ذلك وهي من الدوال الرياضية الخاصة بالارقام  floor وهي تعيد رقم الفاصلة  من 0.1 الى 0.9 الى صفر 0
كود :
TextBox1.Text = (Math.Floor(TextBox1.Text / 10) * 10)


RE: أمر حيرني - asemshahen5 - 26-07-20

فكرة جميلة بارك الله فيك و جزاك عنا كل خير .

RE: أمر حيرني - Hamza Elshare - 26-07-20

(26-07-20, 12:55 PM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته
بارك الله بك اخي عاصم طريقة جميلة تعتمد المخيلة البرمجية 
ومن باب التنويع في الكود توجد دالة في لغة الفيجوال تفعل ذلك وهي من الدوال الرياضية الخاصة بالارقام  floor وهي تعيد رقم الفاصلة  من 0.1 الى 0.9 الى صفر 0
كود :
TextBox1.Text = (Math.Floor(TextBox1.Text / 10) * 10)

بارك الله فيك