منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مساعدة : حساب الناتج الاجمالي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة : حساب الناتج الاجمالي (/showthread.php?tid=28631)

مساعدة : حساب الناتج الاجمالي - georgos - 15-02-19

مرحباً يا شباب

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

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

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


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


RE: مساعدة : حساب الناتج الاجمالي - princelovelorn - 15-02-19

تفضل الكود كما تطلب
 
كود :

كود :
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


RE: مساعدة : حساب الناتج الاجمالي - georgos - 15-02-19

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



RE: مساعدة : حساب الناتج الاجمالي - princelovelorn - 15-02-19

أولا أكتب في 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()


RE: مساعدة : حساب الناتج الاجمالي - georgos - 15-02-19

انا كاتب الكود :

كود :
 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

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