السلام عليكم
اخوتي اساتذتي الاعزاء
فورم عبارة عن combobox و TextBox
الكومبو بوكس عبارة عن لستة ارقام
المطلوب عند اختيار رقم واحد مثلا يظهر رقم واحد في التكست بوكس
ولو اخترنا مرة ثانية رقم واحد من الكومبو بوكس سيظهر ناتج جمع الكومبو بوكس مع التكست بوكس والنتيجة تكون اثنان
هل نتجح هذه العملية ام يجب اضافة تكست بوكس اخر
افيدونا وفقكم الله وزادكم علما
textbox1.text=val(textbox1.text)+val(combobox1.text)
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
لكن ... كيف الحل مع الاعداد بالفواصل
(02-03-21, 11:41 PM)atefkhalf2004 كتب : [ -> ]textbox1.text=val(textbox1.text)+val(combobox1.text)
احسنت استاذي الفاضل هذا مااردت . ادى الغرض تماما وفقك الله لكل خير
ولكن لزيادة الفائدة والحاجة ياريت كود عملية حسابية بفواصل حسب سؤال الاخ
عبد الهادي بهاب
السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة للحساب مع الفاصلة يجب ان تكون القين من نوع 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