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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37926)

طلب مساعدة بعملية حسابية - ahssan - 02-03-21

السلام عليكم 

اخوتي اساتذتي الاعزاء 

فورم عبارة عن combobox و TextBox 

الكومبو بوكس عبارة عن لستة ارقام

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

افيدونا وفقكم الله وزادكم علما

RE: طلب مساعدة بعملية حسابية - atefkhalf2004 - 02-03-21

textbox1.text=val(textbox1.text)+val(combobox1.text)

RE: طلب مساعدة بعملية حسابية - عبد الهادي بهاب - 03-03-21

PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

       
        TextBox1.Text = Val(ComboBox1.Text) + Val(TextBox1.Text)

    End Sub 
 
يكون الكود في SelectedIndexChanged

لكن ... كيف الحل مع الاعداد بالفواصل

RE: طلب مساعدة بعملية حسابية - ahssan - 03-03-21

(02-03-21, 11:41 PM)atefkhalf2004 كتب : textbox1.text=val(textbox1.text)+val(combobox1.text)

احسنت استاذي الفاضل هذا مااردت . ادى الغرض تماما  وفقك الله لكل خير

ولكن لزيادة الفائدة والحاجة ياريت كود عملية حسابية بفواصل حسب سؤال الاخ عبد الهادي بهاب

RE: طلب مساعدة بعملية حسابية - ابراهيم ايبو - 04-03-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
بالنسبة للحساب مع الفاصلة يجب ان تكون القين من نوع double ويجب تحويل القيم الموجودة في كومبوبوكس او تكست بوكس الى ديل 
وعند وضع النتيجة في التكست بوكس يجب اظهارها بصيغة الاعداد مع الفاصلة
كما انه يجب التاكد من ان التكست بوكس ان كانت فارغة وضع قيمة صفر فيها
طبعا هناك خيار أخر يكطن تفعيله او لا حسب الحاجة وهو قبول التكست بوكس الى ارقام والفاصلة فقط
الكود التالي سيوفي بالغرض للحساب
كود :
  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Dim FF As Double = Convert.ToDouble(ComboBox1.Text)
       If TextBox1.Text = "" Then
           TextBox1.Text = "0.00"
           TextBox1.Text = (Convert.ToDouble(TextBox1.Text) + FF).ToString("0.00")
       Else
           TextBox1.Text = (Convert.ToDouble(TextBox1.Text) + FF).ToString("0.00")
       End If

   End Sub