04-03-21, 08:38 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة للحساب مع الفاصلة يجب ان تكون القين من نوع double ويجب تحويل القيم الموجودة في كومبوبوكس او تكست بوكس الى ديل
وعند وضع النتيجة في التكست بوكس يجب اظهارها بصيغة الاعداد مع الفاصلة
كما انه يجب التاكد من ان التكست بوكس ان كانت فارغة وضع قيمة صفر فيها
طبعا هناك خيار أخر يكطن تفعيله او لا حسب الحاجة وهو قبول التكست بوكس الى ارقام والفاصلة فقط
الكود التالي سيوفي بالغرض للحساب
اخي الكريم
بالنسبة للحساب مع الفاصلة يجب ان تكون القين من نوع 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اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
