منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخي الكريم 
الرسالة تابعة للاستثناء التالي


وهو الاستثناء الذي يرمى عند حصول خطأ في عملية تحويل القيم

---

(25-05-20, 01:43 AM)ابراهيم ايبو كتب : [ -> ]

السلام عليكم ورحمة الله وبركاته

اخي الكريم لماذا تضع الكود في PictureBox3_Click_1

ضعه في بوتون الحساب انا جربت كودك وهو شغال لااعرف اين المشكلة؟

اعتقد والله اعلم اختلاف استخدام رمز الفاصلة العشرية للاجهزة

 البعض يستخدم النقطة واخرين يستخدمون الفاصلة  :  (.) او (,)

تأكد من هذه الجزئية 

وانا اؤيد كلام الاخ ابراهيم لان نظام تنسيق الاعداد بالانجليزي يستخدم النقطة والفرنسي يستخدم الفاصلة
حاول تغير التنسيق الى الانجليزي وجرب

السلام عليكم 
اخي هذا هو المشروع بعد تعديل ماذكرته لك ويعمل بكفاءة 
اخي معاند الحظ يمكنك تجربته واخبارنا بالنتيجة

سأجرب من جديد على احد الاجهزة المجنونة

---

(26-05-20, 12:38 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم 
اخي هذا هو المشروع بعد تعديل ماذكرته لك ويعمل بكفاءة 
اخي معاند الحظ يمكنك تجربته واخبارنا بالنتيجة

(26-05-20, 02:27 AM)asemshahen5 كتب : [ -> ]

PHP كود :

       If TextBox5.Text = "" Then TextBox5.Text = 0
        f = CDbl(TextBox5.Text) 


شكرااااا ، نجح الكود بقيت جزئة صغيرة فقط

اخي الكريم 
 بعد تحميل مشروعك وتشغيله رايت انك تحاول تحويل القيم الموجودة في التكست بوكس كلها الى نوع Double رغم ان التكست بوكس لاتحتوي على قيمة
او لها قيمة String.Empty  وقد كان المفروض انك تتحقق فيما اذا كان تكست بوكس لايحمل قيمة ان تعطيه القيمة 0

استبدل الكود في الاجراء mysub بالتالي

(26-05-20, 03:12 AM)معاند الحظ كتب : [ -> ]اخي الكريم 
 بعد تحميل مشروعك وتشغيله رايت انك تحاول تحويل القيم الموجودة في التكست بوكس كلها الى نوع Double رغم ان التكست بوكس لاتحتوي على قيمة
او لها قيمة String.Empty  وقد كان المفروض انك تتحقق فيما اذا كان تكست بوكس لايحمل قيمة ان تعطيه القيمة 0

استبدل الكود في الاجراء mysub بالتالي

كود :

 Public Sub mysub()
        Dim a, b, c, d, f, g, h, i, j, k, tva, ttc, ven, ach As Double
        If TextBox1.Text = "" Then
            TextBox1.Text = 0
        End If

        If TextBox5.Text = "" Then
            TextBox5.Text = 0
        End If

        If TextBox7.Text = "" Then
            TextBox7.Text = 0
        End If

        If TextBox8.Text = "" Then
            TextBox8.Text = 0
        End If

        If TextBox9.Text = "" Then
            TextBox9.Text = 0
        End If

        If TextBox10.Text = "" Then
            TextBox10.Text = 0
        End If
        a = CDbl(TextBox1.Text)
        f = CDbl(TextBox5.Text)
        h = CDbl(TextBox7.Text)
        i = CDbl(TextBox8.Text)
        j = CDbl(TextBox9.Text)
        k = CDbl(TextBox10.Text)
        '===============================الخمس المودع===================================
        b = a / 5
        '==================================التسجيــــــل===============================
        c = a * 5 / 100
        If c <= 1500 Then
            c = 1500
        End If
        '==================================الشهر العقاري================================
        d = a * 1 / 100
        If d <= 2000 Then
            d = 2000
        End If
        '====================================الأتعاب======================================
        If a > 1000000 Then
            g = 15000 + 10000 + ((a - 1000000) * 0.01)
        ElseIf a > 500000 Then
            g = 15000 + ((a - 500000) * 0.02)
        ElseIf a <= 500000 Then
            g = 15000
        End If
        '====================================TVA===========================================
        tva = (g + h + i + j + k) * 19 / 100
        If RadioButton2.Checked = True Then
            tva = 0
        End If
        ttc = c + d + f + g + h + i + j + k + tva
        '=====================================البائــــع==================================
        ven = c / 2
        '=====================================المشتري=====================================
        ach = ttc - ven
        '===================================================================================
        TextBox2.Text = Str(b)
        TextBox3.Text = Str(c)
        TextBox4.Text = Str(d)
        TextBox6.Text = Str(g)
        TextBox11.Text = Str(tva)
        TextBox12.Text = Str(ttc)
        TextBox13.Text = Str(ven)
        TextBox14.Text = Str(ach)
        '================================================================
        TextBox1.Text = FormatNumber(a, 2)
        TextBox2.Text = FormatNumber(b, 2)
        TextBox3.Text = FormatNumber(c, 2)
        TextBox4.Text = FormatNumber(d, 2)
        TextBox5.Text = FormatNumber(f, 2)
        TextBox6.Text = FormatNumber(g, 2)
        TextBox7.Text = FormatNumber(h, 2)
        TextBox8.Text = FormatNumber(i, 2)
        TextBox9.Text = FormatNumber(j, 2)
        TextBox10.Text = FormatNumber(k, 2)
        TextBox11.Text = FormatNumber(tva, 2)
        TextBox12.Text = FormatNumber(ttc, 2)
        TextBox13.Text = FormatNumber(ven, 2)
        TextBox14.Text = FormatNumber(ach, 2)
    End Sub

معليش اخي لم افهم ما المطلوب؟

(26-05-20, 03:31 AM)معاند الحظ كتب : [ -> ]معليش اخي لم افهم ما المطلوب؟

شوف الفيديو في بوتون وحدات العمل
عند محاولة اضافة مبلغ 3000 الى المبلغ الموجود تكون نتيجة 3003