[georgos]

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

كود :

 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

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

---

تم الحل شكرا ً لك اخي الكريم