تعريف متغير لأكمال العملية الحسابية

ارجو الأجابة بأسرع وقت

بنقسم على 100 مشكورين :(

السلام عليكم

لم تجدي القسمة على 100

حيث لو كانت العملية

1.2 * 4 = = 48 و لكنها اريد ان تظهر 4.8

و لو قسمت على 10 و ليس 100 و كانت العملية

4*4 = 1.6 و لكنها 16

فما الحل

ارجو الرد للضرورة

السلام عليكم

على فكرة الارقام في الحاسبة دائماً ذات النوع Decimal لذلك

قم بالتعامل مع تلك المعاملات على اساس القيمة رقمية حقيقية وليست صحيحة, مثال على ذلك

 Me.lblResult.Text = "result is " & _
		CSng(Me.txtVal1.Text) * CSng(Me.txtVal2.Text)
		'or CDbl(Me.txtVal1.Text) * CDbl(Me.txtVal2.Text)

أما إذا أرد ان تخرج الفواصل مع القيمة فإستخدم المحول CDec

بالتوفيق إن شاء الله.

السلام عليكم اخي الغملاسي

انا قمت بالاتي

Dim meterval As Double = txtmetervalue.Text
		Dim meterprice As Double = txtmeterprice.Text
		Dim mfactory As Double = txtmfactory.Text

		Me.txttotalvalue.Text = CDec(meterval) * CDec(meterprice) * CDec(mfactory)

و لكن لا تظهر لي القيمة مع الفاصلة

فاذا ضربت مثلا

4.2 * 4 تظهر 168 و لكني اريدهاأن تظهر 16.8

ما السبب !!!

ارجو الأفادة للضرورة اخي الغملاسي و شكرا

السلام عليكم

إليك المرفق,, بالتوفيق إن شاء الله.

CalculateNumbers.rar

السلام عليكم

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

اي عند وضع 4.2 * 4 = 168 بعد ادخالها مررة اخرى و لا تظهر القيمة 16.8 الا اول مرة عند التشغيل فقط اي انها مخزنة لذلك تظهر الفاصلة

ارجو الرد للضرورة

عفوا

كنت اضع . بدل ال , لذلك كانت النتائج تظهر بدون فاصلة و لكني عندما استخدم الالة الحاسبة اضع . و ليس , و يعطيني نتائج مطابقة

ما السبب

و مشكور على جهودك

ممكن هذا الكود يفيدك

Dim result As Double = Convert.ToDouble(Me.TextBox1.Text) * Convert.ToDouble(Me.TextBox2.Text)
		Me.TextBox3.Text = result.ToString()

بتوضع الكود هذا في ال event بتاع ال BUTTON و ان شاء الله بتصير الامور زي ما بدك

مشكور لكن لم تفلح

انا بفكر اعمل مثل زر tab بهذا الكود

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
		If keyData = Keys.enter Then SendKeys.Send("{TAB}")
	End Function

و لكن علي معرفة اسم ال . اي النقطة و اسبدال ال , بها

هل من مساعدة بارك الله فيكم

السلام عليكم

يا اخي العزيز لا تضع فاصلة , في المعادلات الرقمية وضع نقطة . بدلها.

السلام عليكم

المشكلة يا اخي الغملاسي النقطة لما اضعها لا يعطيني الناتج مع الفاصلة العشرية اما الفاصلة فيعطيني ناتج بالفاصلة العشرية لذلك اضعها او اضطر لوضعها