13-08-24, 10:23 AM
تفضل أخي
PHP كود :
Public Class Form1
' عند تغيير قيمة الخصم
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
CalculateRemainingAmount()
End Sub
' عند تغيير قيمة المبلغ المدفوع
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
CalculateRemainingAmount()
End Sub
' الدالة لحساب المبلغ المتبقي
Private Sub CalculateRemainingAmount()
' تحويل قيم المربعات النصية إلى أرقام صحيحة مع التعامل مع الأخطاء
Dim totalAmount As Decimal = 0
Dim discount As Decimal = 0
Dim paidAmount As Decimal = 0
Decimal.TryParse(TextBox1.Text, totalAmount)
Decimal.TryParse(TextBox2.Text, discount)
Decimal.TryParse(TextBox3.Text, paidAmount)
' حساب المبلغ المتبقي
Dim remainingAmount As Decimal = totalAmount - discount - paidAmount
' عرض المبلغ المتبقي في TextBox4
TextBox4.Text = remainingAmount.ToString("F2")
End Sub
End Class

