+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22772)
استفسار حول فصل الآحاد عن العشرات و هكذا - ali777 - 01-12-17
السلام عليكم
اخواني سؤالي هو عن إمكانية فصل الاحاد عن باقي الاقسام من أجل تقريب الرقم الكلي لاستخدامه في عملية تجارية
اي مثال على ذلك :
لدي الرقم التالي 243 اريد على البرنامج أن يحدد قيمة الرقم (3) فقط أي الآحاد لمعرفة في حال كان أقل من قيمة 5 ليصبح الرقم الكلي 240
وفي حال كان الرقم أكبر من 5 يصبح الرقم الكلي 250
أتمنى المساعدة و شكرا جزيلا
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - Rabeea Qbaha - 01-12-17
ممكن يكون هناك حل ابسط من هذا الحل
على كل حال هذا يقوم بالمطلوب:
كود :
Dim X As String = TextBox1.Text
Dim y As Char = X(X.Length - 1)
Dim number As String = X.Remove(X.Length - 1)
Dim last_num As Integer
Dim full_number As Integer
If Val(y) < 5 Then
last_num = 0
full_number = number & last_num
ElseIf Val(y) > 5 Then
Dim o As Integer = 10 - Val(y)
full_number = Val(X) + o
ElseIf Val(y) > 5 Then
full_number = TextBox1.Text
End If
TextBox2.Text = full_number
End SubRE: استفسار حول فصل الآحاد عن العشرات و هكذا - silverlight - 01-12-17
PHP كود :
Dim i As Integer = 256
Dim s As String = i.ToString
Dim l As Integer = s.Length - 1
Dim v As Integer = CInt(s.Substring(l))
Dim result As Integer = i - v
If v >= 5 Then
result = result + 10
End If
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - حريف برمجة - 01-12-17
(01-12-17, 04:40 PM)ali777 كتب : السلام عليكم
اخواني سؤالي هو عن إمكانية فصل الاحاد عن باقي الاقسام من أجل تقريب الرقم الكلي لاستخدامه في عملية تجارية
اي مثال على ذلك :
لدي الرقم التالي 243 اريد على البرنامج أن يحدد قيمة الرقم (3) فقط أي الآحاد لمعرفة في حال كان أقل من قيمة 5 ليصبح الرقم الكلي 240
وفي حال كان الرقم أكبر من 5 يصبح الرقم الكلي 250
أتمنى المساعدة و شكرا جزيلا
وعليكم السلام ،،
لنفرض الرقم (243) موجود في TextBox1
وتريد النتيجة تظهر في TextBox2
كود :
TextBox2.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 1) & TextBox1.Text.Substring(TextBox1.TextLength - 1, 1).Replace(0, 0).Replace(1, 0).Replace(2, 0).Replace(3, 0).Replace(4, 0).Replace(5, 5).Replace(6, 5).Replace(7, 5).Replace(8, 5).Replace(9, 5)RE: استفسار حول فصل الآحاد عن العشرات و هكذا - ﻣﺒﺘﺪﺉ - 01-12-17
وعليكم السلام
هذه أبسط حيلة
Dim n = 243
n = Math.Round(n / 10) * 10
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - HASAN6.0 - 01-12-17
(01-12-17, 07:02 PM)ﻣﺒﺘﺪﺉ كتب : وعليكم السلام
هذه أبسط حيلة
Dim n = 243
n = Math.Round(n / 10) * 10
ولو أردت التقريب للمئات غير 100 بدل 10 وهكذا
شكرا لك
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - ﻣﺒﺘﺪﺉ - 01-12-17
للتقريب لأقرب مئة بشكل دقيق بنضيف سطر ال 100 بعد العشرة
Dim n = 346
n = Math.Round(n / 10) * 10
n = Math.Round(n / 100) * 100
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - المتألق9 - 07-12-17
مشكورين جدا
RE: استفسار حول فصل الآحاد عن العشرات و هكذا - ali777 - 10-12-17
شكرا جزيلا لكم جميعا