07-02-25, 09:17 PM
07-02-25, 10:01 PM
الطريقه منقوله
PHP كود :
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
calc()
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged
calc()
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox2.CheckedChanged
calc()
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox3.CheckedChanged
calc()
End Sub
Private Sub calc()
Dim t1 As Double = Val(TextBox1.Text)
Dim t2 As Double = 0
If CheckBox1.Checked Then t2 += Val(CheckBox1.Text)
If CheckBox2.Checked Then t2 += Val(CheckBox2.Text)
If CheckBox3.Checked Then t2 += Val(CheckBox3.Text)
TextBox2.Text = t2.ToString("0.00")
Dim t3 As Double = t1 + t2
TextBox3.Text = t3.ToString("0.00")
End Sub
End Class
07-02-25, 10:12 PM
ربنا يبارك فيك اخ Zuhare و يرزقك من حيث لا تحتسب يا رب
هو المطلوب بالضبط الهي يحفظك
هو المطلوب بالضبط الهي يحفظك