تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة : حساب الناتج الاجمالي
#1
Information 
مرحباً يا شباب

 لدينا الحقول التالية :
حقل السعر txtprice
حقل نسبة الضريبة وهي كومبو بوكس تحتوي القيمتين 0 و 25% cmtax
حقل الضريبة txtax
حقل المجموع txttotal

 كيف ممكن جعل قيمة المجموع تتغير تلقائياً عند ادخال السعر ؟

مثال على الفكرة :


السعر 10   نسبة الضريبة 25%   الضريبة 2.5 من السعر   المجموع
12.5


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
تفضل الكود كما تطلب
 
كود :

كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If TextBox1.Text = "" Then Exit Sub

        Dim x As Double
        Dim y As Double
        Dim z As Double

        y = 2.5
        TextBox3.Text = y

        x = CDbl(TextBox1.Text)
        z = x * y / 100
        TextBox2.Text = CStr(x + z)
    End Sub
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد }}}
تم الشكر بواسطة:
#3
اخي هل من تعديل الكود الذي كتبته و وضع نفس اسماء الادوات يلي بالصورة لان بصراحة ما فهمت شي منو غير عملية حساب 25% تاع الضريبة
هي صورة عندك كيف ممكن جعل قيمة المجموع تتغير تلقائياً عند ادخال السعر ؟
و تتحدث تلقائياً عند تغيير قيمة الضريبة لـ 0 او تغيير السعر

الرد }}}
تم الشكر بواسطة:
#4
أولا أكتب في combobox القيم التالية
0
2.5

وتفضل الكود التالي ضعه في اي مكان في الفورم
كود :
Private Sub calc()
       If txtpris.Text = "" Then Exit Sub
       If Ctax.Text = "" Then Exit Sub
       Dim x As Double
       Dim y As Double
       Dim z As Double

       y = Ctax.SelectedItem.ToString

       x = CDbl(txtpris.Text)
       z = x * y / 100
       Tax.Text = z
       txttotal.Text = CStr(x + z)

   End Sub

ثم في حدث txtpris_TextChanged
ضع الكود التالي
كود :
calc()


ثم في حدث Ctax_SelectedIndexChanged
ضع الكود التالي
كود :
calc()
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 

الرد }}}
تم الشكر بواسطة:
#5
انا كاتب الكود :

كود :
 Try
           Dim T As Double
           T = Val(txttotalt.Text)

           Dim P As Integer
           P = Val(txtPris.Text)

           Dim L As Integer
           L = Val(ctax.Text)

           Dim M As Double

           M = 0.25




           If ctax.Text = 25 Then
               txtmoms.Text = Val(txtPris.Text) * M
           Else
               tax.Text = 0

           End If

           Dim sum As Double
           sum = Val(txtPris.Text) + Val(tax.Text)

           txttotalt.Text = sum


       Catch ex As Exception

       End Try

و يتم تطبيق بنجاح لكن المجموع لا يضهر الفاصلة

تم الحل شكرا ً لك اخي الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  حساب عدد الطلاب محمد خيري 4 117 12-03-24, 02:07 PM
آخر رد: محمد خيري
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  حساب المبلغ الإجمالي محمد خيري 2 300 30-01-24, 08:08 PM
آخر رد: محمد خيري
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى

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


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