تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكل عند اعادة الضغط على Botton الحساب (مشكل مستمر)
#1
Photo 
السلام عليكم
اصادف مشكل غريب عند اعادة الضغط على Botton الحساب للمرة الثانية تتغير القيم بالشكل التالي ، لاكن المشكل اواجهه في اجهزة دون الأخرى لاني جربت على اكثر من جهاز


           
الرد
تم الشكر بواسطة:
#2
(09-03-20, 04:46 PM)paveldida كتب : السلام عليكم
اصادف مشكل غريب عند اعادة الضغط على Botton الحساب للمرة الثانية تتغير القيم بالشكل التالي ، لاكن المشكل اواجهه في اجهزة دون الأخرى لاني جربت على اكثر من جهاز


           

ضع الكود الذي تستخدمه مع توضيح اي الصورتين صحيحة او كيف المفروض ان يكون الناتج صحيحا
الرد
تم الشكر بواسطة:
#3
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        TextBox7.Text = Val(TextBox7.Text) + 3000
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox8.Text = 2000

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox9.Text = 1800
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        TextBox10.Text = 1500
    End Sub

كود الحساب كاآتي:

Dim a, b, c, d, f, g, h, j, k, l, m, n, y, t, i As Double

        a = Val(TextBox1.Text)
        f = Val(TextBox5.Text)
        j = Val(TextBox7.Text)
        k = Val(TextBox8.Text)
        l = Val(TextBox9.Text)
        m = Val(TextBox10.Text)
        h = Val(TextBox7.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
        g = c / 2
        If a > 1000000 Then
            i = 15000 + 10000 + ((a - 1000000) * 0.01)
        ElseIf a > 500000 Then
            i = 15000 + ((a - 500000) * 0.02)
        ElseIf a <= 500000 Then
            i = 15000
        End If
        n = (i + h + k + l + m) * 19 / 100
        t = c + d + f + i + h + k + l + m + n
        y = t - g

        TextBox2.Text = Str(b)
        TextBox3.Text = Str©
        TextBox4.Text = Str(d)
        TextBox6.Text = Str(i)
        TextBox13.Text = Str(g)
        TextBox11.Text = Str(n)
        TextBox12.Text = Str(t)
        TextBox14.Text = Str(y)
        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(i, 2)
        TextBox7.Text = FormatNumber(h, 2)
        TextBox8.Text = FormatNumber(k, 2)
        TextBox9.Text = FormatNumber(l, 2)
        TextBox10.Text = FormatNumber(m, 2)
        TextBox11.Text = FormatNumber(n, 2)
        TextBox12.Text = FormatNumber(t, 2)
        TextBox13.Text = FormatNumber(g, 2)
        TextBox14.Text = FormatNumber(y, 2)
    End Sub

(09-03-20, 06:25 PM)alsalamoni كتب :
(09-03-20, 04:46 PM)paveldida كتب : السلام عليكم
اصادف مشكل غريب عند اعادة الضغط على Botton الحساب للمرة الثانية تتغير القيم بالشكل التالي ، لاكن المشكل اواجهه في اجهزة دون الأخرى لاني جربت على اكثر من جهاز


           

ضع الكود الذي تستخدمه مع توضيح اي الصورتين صحيحة او كيف المفروض ان يكون الناتج صحيحا

الصورة على اليمين هي النتيجة الصحيحة
الرد
تم الشكر بواسطة:
#4
(09-03-20, 08:35 PM)paveldida كتب :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        TextBox7.Text = Val(TextBox7.Text) + 3000
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox8.Text = 2000

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox9.Text = 1800
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        TextBox10.Text = 1500
    End Sub

كود الحساب كاآتي:

Dim a, b, c, d, f, g, h, j, k, l, m, n, y, t, i As Double

        a = Val(TextBox1.Text)
        f = Val(TextBox5.Text)
        j = Val(TextBox7.Text)
        k = Val(TextBox8.Text)
        l = Val(TextBox9.Text)
        m = Val(TextBox10.Text)
        h = Val(TextBox7.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
        g = c / 2
        If a > 1000000 Then
            i = 15000 + 10000 + ((a - 1000000) * 0.01)
        ElseIf a > 500000 Then
            i = 15000 + ((a - 500000) * 0.02)
        ElseIf a <= 500000 Then
            i = 15000
        End If
        n = (i + h + k + l + m) * 19 / 100
        t = c + d + f + i + h + k + l + m + n
        y = t - g

        TextBox2.Text = Str(b)
        TextBox3.Text = Str©
        TextBox4.Text = Str(d)
        TextBox6.Text = Str(i)
        TextBox13.Text = Str(g)
        TextBox11.Text = Str(n)
        TextBox12.Text = Str(t)
        TextBox14.Text = Str(y)
        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(i, 2)
        TextBox7.Text = FormatNumber(h, 2)
        TextBox8.Text = FormatNumber(k, 2)
        TextBox9.Text = FormatNumber(l, 2)
        TextBox10.Text = FormatNumber(m, 2)
        TextBox11.Text = FormatNumber(n, 2)
        TextBox12.Text = FormatNumber(t, 2)
        TextBox13.Text = FormatNumber(g, 2)
        TextBox14.Text = FormatNumber(y, 2)
    End Sub

(09-03-20, 06:25 PM)alsalamoni كتب :
(09-03-20, 04:46 PM)paveldida كتب : السلام عليكم
اصادف مشكل غريب عند اعادة الضغط على Botton الحساب للمرة الثانية تتغير القيم بالشكل التالي ، لاكن المشكل اواجهه في اجهزة دون الأخرى لاني جربت على اكثر من جهاز


           

ضع الكود الذي تستخدمه مع توضيح اي الصورتين صحيحة او كيف المفروض ان يكون الناتج صحيحا

الصورة على اليمين هي النتيجة الصحيحة

اي TextBox تريد تحويل محتواه الى رقم باستخدام Val يجب حذف الفاصله الخاصه بتنسيق الالوف مثل
كود :
Val(TextBox7.Text.Replace(",", ""))

فيصبح الكود
كود :
   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       TextBox7.Text = Val(TextBox7.Text.Replace(",", "")) + 3000
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       TextBox8.Text = 2000

   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       TextBox9.Text = 1800
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       TextBox10.Text = 1500
   End Sub

كود الحساب كاآتي:

Dim a, b, c, d, f, g, h, j, k, l, m, n, y, t, i As Double

       a = Val(TextBox1.Text.Replace(",", ""))
       f = Val(TextBox5.Text.Replace(",", ""))
       j = Val(TextBox7.Text.Replace(",", ""))
       k = Val(TextBox8.Text.Replace(",", ""))
       l = Val(TextBox9.Text.Replace(",", ""))
       m = Val(TextBox10.Text.Replace(",", ""))
       h = Val(TextBox7.Text.Replace(",", ""))

       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
       g = c / 2
       If a > 1000000 Then
           i = 15000 + 10000 + ((a - 1000000) * 0.01)
       ElseIf a > 500000 Then
           i = 15000 + ((a - 500000) * 0.02)
       ElseIf a <= 500000 Then
           i = 15000
       End If
       n = (i + h + k + l + m) * 19 / 100
       t = c + d + f + i + h + k + l + m + n
       y = t - g

       TextBox2.Text = Str(b)
       TextBox3.Text = Str(c)
       TextBox4.Text = Str(d)
       TextBox6.Text = Str(i)
       TextBox13.Text = Str(g)
       TextBox11.Text = Str(n)
       TextBox12.Text = Str(t)
       TextBox14.Text = Str(y)
       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(i, 2)
       TextBox7.Text = FormatNumber(h, 2)
       TextBox8.Text = FormatNumber(k, 2)
       TextBox9.Text = FormatNumber(l, 2)
       TextBox10.Text = FormatNumber(m, 2)
       TextBox11.Text = FormatNumber(n, 2)
       TextBox12.Text = FormatNumber(t, 2)
       TextBox13.Text = FormatNumber(g, 2)
       TextBox14.Text = FormatNumber(y, 2)
   End Sub

لكن يجب ان تأخذ بعين الاعتبار الفاصلة المعتمدة في الاعدادت الاقليمية لنظام التشغيل الخاص بالجهاز الذي سيتم تشغيل التطبيق عليه
راجع موضوعك
مساعدة في كود تفقيط عربي

حسب الصورة التي على اليمين يبدو ان الفاصلة المعتمدة لتنسيق الالوف في هذا الجهاز هي المسافة
فيجب ان يتم حذفها بالطريقة التالية وتطبيق الطريقة نفسها على بقية TextBox التي في الكود
كود :
Val(TextBox7.Text.Replace(" ", ""))
الرد
#5
(09-03-20, 09:02 PM)alsalamoni كتب :
(09-03-20, 08:35 PM)paveldida كتب :
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        TextBox7.Text = Val(TextBox7.Text) + 3000
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox8.Text = 2000

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox9.Text = 1800
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        TextBox10.Text = 1500
    End Sub

كود الحساب كاآتي:

Dim a, b, c, d, f, g, h, j, k, l, m, n, y, t, i As Double

        a = Val(TextBox1.Text)
        f = Val(TextBox5.Text)
        j = Val(TextBox7.Text)
        k = Val(TextBox8.Text)
        l = Val(TextBox9.Text)
        m = Val(TextBox10.Text)
        h = Val(TextBox7.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
        g = c / 2
        If a > 1000000 Then
            i = 15000 + 10000 + ((a - 1000000) * 0.01)
        ElseIf a > 500000 Then
            i = 15000 + ((a - 500000) * 0.02)
        ElseIf a <= 500000 Then
            i = 15000
        End If
        n = (i + h + k + l + m) * 19 / 100
        t = c + d + f + i + h + k + l + m + n
        y = t - g

        TextBox2.Text = Str(b)
        TextBox3.Text = Str©
        TextBox4.Text = Str(d)
        TextBox6.Text = Str(i)
        TextBox13.Text = Str(g)
        TextBox11.Text = Str(n)
        TextBox12.Text = Str(t)
        TextBox14.Text = Str(y)
        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(i, 2)
        TextBox7.Text = FormatNumber(h, 2)
        TextBox8.Text = FormatNumber(k, 2)
        TextBox9.Text = FormatNumber(l, 2)
        TextBox10.Text = FormatNumber(m, 2)
        TextBox11.Text = FormatNumber(n, 2)
        TextBox12.Text = FormatNumber(t, 2)
        TextBox13.Text = FormatNumber(g, 2)
        TextBox14.Text = FormatNumber(y, 2)
    End Sub

(09-03-20, 06:25 PM)alsalamoni كتب :
(09-03-20, 04:46 PM)paveldida كتب : السلام عليكم
اصادف مشكل غريب عند اعادة الضغط على Botton الحساب للمرة الثانية تتغير القيم بالشكل التالي ، لاكن المشكل اواجهه في اجهزة دون الأخرى لاني جربت على اكثر من جهاز


           

ضع الكود الذي تستخدمه مع توضيح اي الصورتين صحيحة او كيف المفروض ان يكون الناتج صحيحا

الصورة على اليمين هي النتيجة الصحيحة

اي TextBox تريد تحويل محتواه الى رقم باستخدام Val يجب حذف الفاصله الخاصه بتنسيق الالوف مثل
كود :
Val(TextBox7.Text.Replace(",", ""))

فيصبح الكود
كود :
   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       TextBox7.Text = Val(TextBox7.Text.Replace(",", "")) + 3000
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       TextBox8.Text = 2000

   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       TextBox9.Text = 1800
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       TextBox10.Text = 1500
   End Sub

كود الحساب كاآتي:

Dim a, b, c, d, f, g, h, j, k, l, m, n, y, t, i As Double

       a = Val(TextBox1.Text.Replace(",", ""))
       f = Val(TextBox5.Text.Replace(",", ""))
       j = Val(TextBox7.Text.Replace(",", ""))
       k = Val(TextBox8.Text.Replace(",", ""))
       l = Val(TextBox9.Text.Replace(",", ""))
       m = Val(TextBox10.Text.Replace(",", ""))
       h = Val(TextBox7.Text.Replace(",", ""))

       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
       g = c / 2
       If a > 1000000 Then
           i = 15000 + 10000 + ((a - 1000000) * 0.01)
       ElseIf a > 500000 Then
           i = 15000 + ((a - 500000) * 0.02)
       ElseIf a <= 500000 Then
           i = 15000
       End If
       n = (i + h + k + l + m) * 19 / 100
       t = c + d + f + i + h + k + l + m + n
       y = t - g

       TextBox2.Text = Str(b)
       TextBox3.Text = Str(c)
       TextBox4.Text = Str(d)
       TextBox6.Text = Str(i)
       TextBox13.Text = Str(g)
       TextBox11.Text = Str(n)
       TextBox12.Text = Str(t)
       TextBox14.Text = Str(y)
       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(i, 2)
       TextBox7.Text = FormatNumber(h, 2)
       TextBox8.Text = FormatNumber(k, 2)
       TextBox9.Text = FormatNumber(l, 2)
       TextBox10.Text = FormatNumber(m, 2)
       TextBox11.Text = FormatNumber(n, 2)
       TextBox12.Text = FormatNumber(t, 2)
       TextBox13.Text = FormatNumber(g, 2)
       TextBox14.Text = FormatNumber(y, 2)
   End Sub

لكن يجب ان تأخذ بعين الاعتبار الفاصلة المعتمدة في الاعدادت الاقليمية لنظام التشغيل الخاص بالجهاز الذي سيتم تشغيل التطبيق عليه
راجع موضوعك
مساعدة في كود تفقيط عربي

حسب الصورة التي على اليمين يبدو ان الفاصلة المعتمدة لتنسيق الالوف في هذا الجهاز هي المسافة
فيجب ان يتم حذفها بالطريقة التالية وتطبيق الطريقة نفسها على بقية TextBox التي في الكود
كود :
Val(TextBox7.Text.Replace(" ", ""))

لم ينفع الأمر للأسف 
للاشارة فان الامشكل لا يطرح في حالة حذف كودات formatnumber  ، لاكن يهمني  ان يظهر textbox برقمين بعد الفاصلة لانها مبالغ مالية

سأرفع فيديو للبرنامج من جهازين مختلفين لتتبين الصورة
الرد
تم الشكر بواسطة:
#6
الفديو الأول من جهاز بدون أخطاء بعد اعادة الحساب عدة مرات




الفيدو الثاني مع الخطأ عند اعادة الحساب ، رغم اني لم اغير اي قيمة لاكن المبالغ تتغير


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكل في listchecked box KIKO1992 3 60 منذ 6 ساعة مضت
آخر رد: KIKO1992
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 231 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [سؤال] تغير لون Label عند الضغط عليه (على أساس إجابة صحيحة) HUNTER25 8 255 07-09-20, 01:56 AM
آخر رد: Hasaneen
  [سؤال] مشكل الوضع في حالة تكبير Maximized عبد الهادي بهاب 0 138 24-08-20, 10:09 PM
آخر رد: عبد الهادي بهاب
  مشكل عدم اكتمال تثبيت كرستور ريبورت في الجهاز rochdi191 2 214 16-08-20, 02:48 AM
آخر رد: خالد كامل1
  [سؤال] كيف اضع حدث الضغط click عند انشاء عنصر عبد الهادي بهاب 12 491 09-08-20, 05:00 PM
آخر رد: عبد الهادي بهاب
  مشكل دوخني ahmedbezia 9 474 29-07-20, 05:15 AM
آخر رد: معاند الحظ
  هل من طريقة عند الضغط لطباعة ورقة يتم فتحها PDF ؟ Hazem1 0 202 07-07-20, 05:55 PM
آخر رد: Hazem1
  ماهي طريقة حفظ التعديلات على الفورم عند اعادة تشغيل المشروع العطر الرايق 2 502 07-07-20, 02:10 AM
آخر رد: العطر الرايق
  [VB.NET] مشكل في localhost trakktour 2 257 28-06-20, 11:54 AM
آخر رد: trakktour

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


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