مرحباً يا شباب
لدينا الحقول التالية :
حقل السعر txtprice
حقل نسبة الضريبة وهي كومبو بوكس تحتوي القيمتين 0 و 25% cmtax
حقل الضريبة txtax
حقل المجموع txttotal
كيف ممكن جعل قيمة المجموع تتغير تلقائياً عند ادخال السعر ؟
مثال على الفكرة :
السعر 10 نسبة الضريبة 25% الضريبة 2.5 من السعر المجموع
12.5
اخي هل من تعديل الكود الذي كتبته و وضع نفس اسماء الادوات يلي بالصورة لان بصراحة ما فهمت شي منو غير عملية حساب 25% تاع الضريبة
هي صورة عندك كيف ممكن جعل قيمة المجموع تتغير تلقائياً عند ادخال السعر ؟
و تتحدث تلقائياً عند تغيير قيمة الضريبة لـ 0 او تغيير السعر
أولا أكتب في 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
ضع الكود التالي
ثم في حدث Ctax_SelectedIndexChanged
ضع الكود التالي
انا كاتب الكود :
كود :
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
و يتم تطبيق بنجاح لكن المجموع لا يضهر الفاصلة
تم الحل شكرا ً لك اخي الكريم