تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة بعملية حسابية
#1
السلام عليكم 

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

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

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

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

افيدونا وفقكم الله وزادكم علما
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#2
textbox1.text=val(textbox1.text)+val(combobox1.text)
الرد
تم الشكر بواسطة: عبد الهادي بهاب
#3
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged

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

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

لكن ... كيف الحل مع الاعداد بالفواصل
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
(02-03-21, 11:41 PM)atefkhalf2004 كتب : textbox1.text=val(textbox1.text)+val(combobox1.text)

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

ولكن لزيادة الفائدة والحاجة ياريت كود عملية حسابية بفواصل حسب سؤال الاخ عبد الهادي بهاب
الرد
تم الشكر بواسطة: عبد الهادي بهاب , ابراهيم ايبو
#5
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
بالنسبة للحساب مع الفاصلة يجب ان تكون القين من نوع 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم