منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
رجاءا المساعدة في فهم هذا المشكل ( حل المشكل و لله الحمد شكرا لكل الاخوة) - نسخة قابلة للطباعة

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

الصفحات: 1 2 3

RE: رجاءا المساعدة في فهم هذا المشكل (مزال بدون حل) - معاند الحظ - 26-05-20

اخي استبدل الكود الخاص بحدث الضغط على زر بوتون 7 بالتالي

كود :
 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If TextBox7.Text = "" Then
            TextBox7.Text = 0
        End If

        TextBox7.Text = CDbl(TextBox7.Text) + 3000
    End Sub
اخي الكريم
المشكلة هو ان استخدام الدالة val يعيد الارقام الموجودة قي التكست بوكس الى ان يجد قيمة غير رقمية كالفاصلة
اي انه يعيد فقط الارقام التي قبل الفاصلة وهي في حالتك الرقم 3

RE: رجاءا المساعدة في فهم هذا المشكل (مزال بدون حل) - paveldida - 26-05-20

(26-05-20, 03:44 AM)معاند الحظ كتب : اخي استبدل الكود الخاص بحدث الضغط على زر بوتون 7 بالتالي

كود :
 Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If TextBox7.Text = "" Then
            TextBox7.Text = 0
        End If

        TextBox7.Text = CDbl(TextBox7.Text) + 3000
    End Sub
اخي الكريم
المشكلة هو ان استخدام الدالة val يعيد الارقام الموجودة قي التكست بوكس الى ان يجد قيمة غير رقمية كالفاصلة
اي انه يعيد فقط الارقام التي قبل الفاصلة وهي في حالتك الرقم 3
بارك الله فيك أخي ، المشكل حل كليا و لله الحمد بفظل مساعدتكم 
للإشارة فإني على جهازي لا اعاني من اي مشكل رغم استعمال دالة val
لاكن على اجهزة اخرى واجهت هذه المشاكل