منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ايجاد حساب المجموع من فضلكم - نسخة قابلة للطباعة

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



ايجاد حساب المجموع من فضلكم - محمد خيري - 07-02-25

اخواني لو سمحتو كيف اعمل مجموع التشيك بكس في التاكست بكس رقم 2 
و بارك الله فيكم


RE: ايجاد حساب المجموع من فضلكم - Zuhare - 07-02-25

الطريقه منقوله
PHP كود :
Public Class Form1

    Private Sub TextBox1_TextChanged
(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged
        calc
()
 
   End Sub

    Private Sub CheckBox1_CheckedChanged
(ByVal sender As ObjectByVal e As EventArgsHandles CheckBox1.CheckedChanged
        calc
()
 
   End Sub
    Private Sub CheckBox2_CheckedChanged
(ByVal sender As ObjectByVal e As EventArgsHandles CheckBox2.CheckedChanged
        calc
()
 
   End Sub
    Private Sub CheckBox3_CheckedChanged
(ByVal sender As ObjectByVal e As EventArgsHandles 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 



RE: ايجاد حساب المجموع من فضلكم - محمد خيري - 07-02-25

ربنا يبارك فيك اخ Zuhare و يرزقك من حيث لا تحتسب يا رب
هو المطلوب بالضبط الهي يحفظك