(30-08-15, 12:01 AM)Lion_Ksa كتب : مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك

PHP كود :

Public Class Form1

  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = 0
        Docount(Me)
    End Sub
    Public Sub Docount(ByVal root As Control)

        For Each Mytxt As Control In root.Controls
            Docount(Mytxt)
            If TypeOf Mytxt Is TextBox Then
                Label1.Text = Val(Label1.Text) + Val(Mytxt.Text)
            End If
        Next Mytxt
    End Sub
End Class 


وبالتوفيق

(30-08-15, 12:26 AM)loknew كتب :

(30-08-15, 12:01 AM)Lion_Ksa كتب : مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك

PHP كود :

Public Class Form1

  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = 0
        Docount(Me)
    End Sub
    Public Sub Docount(ByVal root As Control)

        For Each Mytxt As Control In root.Controls
            Docount(Mytxt)
            If TypeOf Mytxt Is TextBox Then
                Label1.Text = Val(Label1.Text) + Val(Mytxt.Text)
            End If
        Next Mytxt
    End Sub
End Class 


وبالتوفيق

في البداية كلي ممتن لك لاجابتك على اسئلتي لكن في الحقيقة لم تفلح معي فقد وضعت الكود الذي اعطيته لي في Button ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري

(30-08-15, 12:31 AM)Lion_Ksa كتب :

(30-08-15, 12:26 AM)loknew كتب :

(30-08-15, 12:01 AM)Lion_Ksa كتب : مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك

PHP كود :

Public Class Form1

  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = 0
        Docount(Me)
    End Sub
    Public Sub Docount(ByVal root As Control)

        For Each Mytxt As Control In root.Controls
            Docount(Mytxt)
            If TypeOf Mytxt Is TextBox Then
                Label1.Text = Val(Label1.Text) + Val(Mytxt.Text)
            End If
        Next Mytxt
    End Sub
End Class 


وبالتوفيق

في البداية كلي ممتن لك لاجابتك على اسئلتي لكن في الحقيقة لم تفلح معي فقد وضعت الكود الذي اعطيته لي في Button ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري

ولا يهمك هذا مثال انا نسيت اقول لك حط Label 
أبجد هوز

(30-08-15, 12:36 AM)loknew كتب :

(30-08-15, 12:31 AM)Lion_Ksa كتب :

(30-08-15, 12:26 AM)loknew كتب :

(30-08-15, 12:01 AM)Lion_Ksa كتب : مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك

PHP كود :

Public Class Form1

  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = 0
        Docount(Me)
    End Sub
    Public Sub Docount(ByVal root As Control)

        For Each Mytxt As Control In root.Controls
            Docount(Mytxt)
            If TypeOf Mytxt Is TextBox Then
                Label1.Text = Val(Label1.Text) + Val(Mytxt.Text)
            End If
        Next Mytxt
    End Sub
End Class 


وبالتوفيق

في البداية كلي ممتن لك لاجابتك على اسئلتي لكن في الحقيقة لم تفلح معي فقد وضعت الكود الذي اعطيته لي في Button ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري

ولا يهمك هذا مثال انا نسيت اقول لك حط Label 
أبجد هوز

صديقي الكريم بارك الله فيك 100% نجحت لكن كيف اجعله يجمع بعض تكست بوكس وليس كلها ولك تقديري واحترامي

(30-08-15, 12:45 AM)Lion_Ksa كتب :

(30-08-15, 12:36 AM)loknew كتب :

(30-08-15, 12:31 AM)Lion_Ksa كتب :

(30-08-15, 12:26 AM)loknew كتب :

(30-08-15, 12:01 AM)Lion_Ksa كتب : مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك

PHP كود :

Public Class Form1

  

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = 0
        Docount(Me)
    End Sub
    Public Sub Docount(ByVal root As Control)

        For Each Mytxt As Control In root.Controls
            Docount(Mytxt)
            If TypeOf Mytxt Is TextBox Then
                Label1.Text = Val(Label1.Text) + Val(Mytxt.Text)
            End If
        Next Mytxt
    End Sub
End Class 


وبالتوفيق

في البداية كلي ممتن لك لاجابتك على اسئلتي لكن في الحقيقة لم تفلح معي فقد وضعت الكود الذي اعطيته لي في Button ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري

ولا يهمك هذا مثال انا نسيت اقول لك حط Label 
أبجد هوز

صديقي الكريم بارك الله فيك 100% نجحت لكن كيف اجعله يجمع بعض تكست بوكس وليس كلها ولك تقديري واحترامي

شايف هذا الشرط؟
 If TypeOf Mytxt Is TextBox Then
خلي في استشناء مثلا
 If TypeOf Mytxt Is TextBox  and Mytxt .name="هنا يكون اسم التكست بوكس اللي ما تجمعه الدالة" then
ونكمل باقي الكود عادي
--------------------------------------
شغل مخك شوي 
بالتوفيق

(30-08-15, 01:00 AM)loknew كتب :

(30-08-15, 12:45 AM)Lion_Ksa كتب :

(30-08-15, 12:36 AM)loknew كتب :

(30-08-15, 12:31 AM)Lion_Ksa كتب :

(30-08-15, 12:26 AM)loknew كتب : في البداية كلي ممتن لك لاجابتك على اسئلتي لكن في الحقيقة لم تفلح معي فقد وضعت الكود الذي اعطيته لي في Button ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري

ولا يهمك هذا مثال انا نسيت اقول لك حط Label 
أبجد هوز

صديقي الكريم بارك الله فيك 100% نجحت لكن كيف اجعله يجمع بعض تكست بوكس وليس كلها ولك تقديري واحترامي

شايف هذا الشرط؟
 If TypeOf Mytxt Is TextBox Then
خلي في استشناء مثلا
 If TypeOf Mytxt Is TextBox  and Mytxt .name="هنا يكون اسم التكست بوكس اللي ما تجمعه الدالة" then
ونكمل باقي الكود عادي
--------------------------------------
شغل مخك شوي 
بالتوفيق

شكرا مرة ثانية لاجابتك لكن اعلم اني لا اعرف شيء من الفيجول ولي يومين اتعلم من اليوتيوب فلك الف شكر لتفهمك ومن علمني حرف ملكني عبد