تحويل رقم عشري طويل الى رقمين بدون تقريب

عامل العدد على أنه عدد ثم استخدم subString كالتالي:

 Dim str As String = TextBox1.Text.ToString

		Dim nStr As String = str.Substring(0, 4)

Scoool كتب:

عامل العدد على أنه عدد ثم استخدم subString كالتالي:

 Dim str As String = TextBox1.Text.ToString

		Dim nStr As String = str.Substring(0, 4)

مرحبا

شكرا على المساعدة

ولكن هذا الكود يقوم بإستخلاص اول 4 ارقام من العدد ويتعامل مع العلامة العشرية على انها رقم

مثال

لو افترض كما فى السابق انى اريد تحويل 1.2398765 الى الرقم 1.23

لو استخدمت الكود بتاعك سيكون الناتج فعلا صحيح ولكن تعالى نغير القيمة

الى

54.2398765 الناتج سيكون
 54.2 
ولو غيرنا القيمة تانى الى
 542.2398765 الناتج سيكون
542.

وهذا غير طبيعي

ارجو الافادة

مشكورين يا إخوانى جزاكم الله عنا كل خير

أخى Fikou-sama

ان التعامل مع النص بهذه سيقوم بالتقريب لو بتتعامل مع الاقام الكبيرة

جرب تضرب ملايين بكسور مع الاف بكسور

الظاهر انك بتعمل برنامج مبيعات وعاوز تستفيد من العملة عند الدفع ..

صح .. ;)

Scoool كتب:

الظاهر انك بتعمل برنامج مبيعات وعاوز تستفيد من العملة عند الدفع ..

صح .. ;)

:lol: لا مش بعمل برنامج مبيعات ولا بستفيد من العملة عند الدفع ..

بتعلم التعامل مع الارقام للاستخدام البرمجى المحاسبي ;)

b]

أخ cdcase

تفضل مني هذا الحل (انا برمجته و جربت كل الحالات)

Dim nb, nbresult As Double

Dim p As Integer

Dim snb As String

nb = 1.2398765

snb = CStr(nb)

p = InStr(1, snb, ".")

If p = 0 Then

nbresult = nb

Else

If Len(Mid(snb, p)) >= 3 Then

nbresult = Left(snb, p - 1) + snb.Substring(p - 1, 3)

Else

nbresult = nb

End If

End If

instr :تبحث عن الفاصلة في حال لا توجد يؤخذ الرقم كما هو في حال وجدت الفاصلة يأخذ رقمين اذا كان يوجد رقمين أو أكثر بعد الفاصلة

أما اذا عدد الأرقام بعد الفاصلة 1 فيأخذه كما هو

مع تمنياتي لك بالتوفيق

--------------------------------------------------------------------------------

على قدر أهل العزم تأتي العزائم وتأتي على قدر الكرام المكارم

وتعظم في عين الصغير صغارها وتصغر في عين العظيم العظائم

مرحبا إخوانى فى الله mirna moukhtar و Fikou-sama

أقدر مساعدتكم لى ولكنى اواجه مشاكل فى التطبيق فهل لى ان اطمع بمثال مرفق

تحياتى

المثال في المرفقات .. أرجو أن يكون الإجابة على تساؤلك ...

WindowsApplication1.zip

كيف يمكننا تنزيل ملف مرفق من خلال المنتدى

Fikou-sama كتب:

المثال في المرفقات .. أرجو أن يكون الإجابة على تساؤلك ...

شكرا يا أخى ولكن مازلت اشتغل ب 2003

ارجو تحويله

mirna moukhtar كتب:

كيف يمكننا تنزيل ملف مرفق من خلال المنتدى

انظر الصورة

أخ CDCASE

يبدو ان سؤالي غير واضح لك

اريد ان اعمل UPLOAD لملف عندي على المنتدى

شكرا

أخى العزيز

هذا الكود يفعل لك ما تريد بالضبط

بل انه يقوم بتحويل الكسرالعشرى الى رقمين أوالى ثلاثة أو الى أربعة أو---------(على حسب ما تريد (أى على حسب ما تضع قيمة N))

Private Sub Command3_Click()

Dim X, X1, Y As Single

Dim I, N As Integer

X = Val(Text1.Text)

Rem"هى الرقم المطلوب تحويله X"

N = Val(Text2.Text)

Rem"هى عدد الأرقام العشريةالمطلوبة N"

X1 = X * 10 ^ N

I = Int(X1)

Y = I / 10 ^ N

Print"الرقم بعد التحويل"; Y

Text3.Text = Val(Y)

End Sub

islambase@yahoo.com كتب:

أخى العزيز

هذا الكود يفعل لك ما تريد بالضبط

بل انه يقوم بتحويل الكسرالعشرى الى رقمين أوالى ثلاثة أو الى أربعة أو---------(على حسب ما تريد (أى على حسب ما تضع قيمة N))

Private Sub Command3_Click()

Dim X, X1, Y As Single

Dim I, N As Integer

X = Val(Text1.Text)

Rem"هى الرقم المطلوب تحويله X"

N = Val(Text2.Text)

Rem"هى عدد الأرقام العشريةالمطلوبة N"

X1 = X * 10 ^ N

I = Int(X1)

Y = I / 10 ^ N

Print"الرقم بعد التحويل"; Y

Text3.Text = Val(Y)

End Sub

أنظر الصورة

mirna moukhtar كتب:

أخ CDCASE

يبدو ان سؤالي غير واضح لك

اريد ان اعمل UPLOAD لملف عندي على المنتدى

شكرا

أنظر الصورة

أخي أنا أستخدم VB.NET 2005 و لم أستخدم VB.NET 2003 .. و لكن أعرف أن هناك بعض الإختلافات بين الإصدارتين و لللأسف ليس لدي خلفية عن هده الإختلافات ... و آسف لأنك لم تجد ضالتك عندي .. !!

أخى العزيز

هذا الكود يفعل لك ما تريد بالضبط

بل انه يقوم بتحويل الكسرالعشرى الى رقمين أوالى ثلاثة أو الى أربعة أو---------(على حسب ما تريد (أى على حسب ما تضع قيمة N))

Private Sub Command3_Click()

Dim X, X1, Y As Single

Dim I, N As Integer

(X = Val(Text1.Text

Rem"هى الرقم المطلوب تحويله X"

(N = Val(Text2.Text

Rem"هى عدد الأرقام العشريةالمطلوبة N"

X1 = X * 10 ^ N

(I = Int(X1

Y = I / 10 ^ N

Print"الرقم بعد التحويل"; Y

(Text3.Text = Val(Y

End Sub

اقتباس

أخي أنا أستخدم VB.NET 2005 و لم أستخدم VB.NET 2003 .. و لكن أعرف أن هناك بعض الإختلافات بين الإصدارتين و لللأسف ليس لدي خلفية عن هده الإختلافات ... و آسف لأنك لم تجد ضالتك عندي .. !!

أخى Fikou-sama

يكفينى جدا محاولاتك لمساعدتى ولا تتأسف نحن إخوة

islambase@yahoo.com كتب:

أخى العزيز

هذا الكود يفعل لك ما تريد بالضبط

بل انه يقوم بتحويل الكسرالعشرى الى رقمين أوالى ثلاثة أو الى أربعة أو---------(على حسب ما تريد (أى على حسب ما تضع قيمة N))

Private Sub Command3_Click()

Dim X, X1, Y As Single

Dim I, N As Integer

(X = Val(Text1.Text

Rem"هى الرقم المطلوب تحويله X"

(N = Val(Text2.Text

Rem"هى عدد الأرقام العشريةالمطلوبة N"

X1 = X * 10 ^ N

(I = Int(X1

Y = I / 10 ^ N

Print"الرقم بعد التحويل"; Y

(Text3.Text = Val(Y

End Sub

لماذا تكرر نفس الكود السابق يا أخى العزيز

أنه لم يعمل معى اعتقد انه يحتاج الى تعديل

تحياتى

أنا لم أقرأ ردود الأخوه ولا أعرف ان كانت المشكله اتحلت ولا لأ بس اللي عايز تعمله بكل بساطه انك تضرب الرقم في 100 وبعد كده تجيب الـ Integer بتاعه وبعد كده تقسم علي 100 مره تانية :)

hazzoom كتب:

أنا لم أقرأ ردود الأخوه ولا أعرف ان كانت المشكله اتحلت ولا لأ بس اللي عايز تعمله بكل بساطه انك تضرب الرقم في 100 وبعد كده تجيب الـ Integer بتاعه وبعد كده تقسم علي 100 مره تانية :)

هية فكرة جميلة ولكن ليست كاملة لان الكود بالصورة يقوم بالتقريب أيضا وديه نفس مشكلتي وانا عايز أعمل cut لكل الارقام العشرية اللى بعد الرقم العشري التانى

أرجو الافادة

انت فهمت أنا قلت ايه كويس !!! طبق اللي أنا قلتله بالظبط ...,,,

إن شاء الله هذا الكود يفي بالغرض

قم بإضافة 2 تكست بوكس (TextBox1, TextBox2)

وهذا الكود

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
		If Me.TextBox1.Text.LastIndexOf(".") <> -1 Then
			Dim NumberOfChrWithPoint As Integer = Me.TextBox1.Text.Substring(Me.TextBox1.Text.LastIndexOf(".")).Length
			If NumberOfChrWithPoint > 3 Then
				Dim I As Integer = Me.TextBox1.Text.LastIndexOf(".") + 1
				Me.TextBox2.Text = Me.TextBox1.Text.Substring(0, I + 2)
			Else
				Me.TextBox2.Text = Me.TextBox1.Text
			End If
		Else
			Me.TextBox2.Text = Me.TextBox1.Text
		End If
	End Sub
End Class

بالمناسبة أخ حازم كلام الأخ cdcase صحيح بالنسبة للكود الذي ذكرته, فهو يعمل Rounding

اقتباس

بالمناسبة أخ حازم كلام الأخ cdcase صحيح بالنسبة للكود الذي ذكرته, فهو يعمل Rounding

يا حمزه لو ركزت في الكلام هتلاقي اني مكتبتش كود خالص الأخ cdcase هو اللي كتب الكود مش أنا !