تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الى كل الخبراء الرجاء الاجابة
#1
السلام عليكم اخوكم عضو جديد
وعندي سؤالين واتمنى من الاساتذة الكرام ان يجبوني :
في فيجول بيسك 2010
1- اريد كود لـ TextBox1 حين اضع فيه رقم يضرب في اي رقم اضعة وتضهر النتيجة مباشرة في TextBox2
2- في مشروعي 32   TextBox
احتاج لكود اضعه في بوتن حين اضغط عليه يجمعلي كل ما هو موجود في 32  TextBox ويترك الفارغة TextBox التي لا يوجد فيها رقم
ولكم من الله التوفيق
الرد }}}
تم الشكر بواسطة:
#2
مرحبا
الشق الاول من السؤال لم افهمه لانك اذا وضعت قيمة في التكت لازم تقوم بعملية اخرى بعدها يصبح المربع فارغ مثلا تضغط انتر وتحفظ القيمة الاولى في متغير وعند وضع القيمة الثانية وتضغط انتر يجمع لك القيمتين ويعرضهم لك في اي مكان
بالنسة للشق الثاني
فورم جديد Form1
اضف Button وولو مليون تكست بوكس  وروح لصفحة الكود وامسح كل شي وانسخ هذا الكود والصقه وشغل مشروعك
PHP كود :
Public Class Form1

  

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles 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 

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

  

    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles 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 ولكن لم تنجح  واصلا لم افهمه ولك جل احترامي وتقديري
الرد }}}
تم الشكر بواسطة:
#4
(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.ObjectAs System.EventArgsHandles 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 
أبجد هوز

.zip   vb4arab152.zip (الحجم : 70.06 ك ب / التحميلات : 31)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#5
(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.ObjectAs System.EventArgsHandles 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% نجحت لكن كيف اجعله يجمع بعض تكست بوكس وليس كلها ولك تقديري واحترامي
الرد }}}
تم الشكر بواسطة:
#6
(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.ObjectAs System.EventArgsHandles 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
ونكمل باقي الكود عادي
--------------------------------------
شغل مخك شوي 
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#7
(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.ObjectAs System.EventArgsHandles 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
ونكمل باقي الكود عادي
--------------------------------------
شغل مخك شوي 
بالتوفيق
شكرا مرة ثانية لاجابتك لكن اعلم اني لا اعرف شيء من الفيجول ولي يومين اتعلم من اليوتيوب فلك الف شكر لتفهمك ومن علمني حرف ملكني عبد
الرد }}}
تم الشكر بواسطة:
#8
حياك الله وكلنا نتعلم من بعضنا البعض
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:
#9
(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
ونكمل باقي الكود عادي
--------------------------------------
شغل مخك شوي 
بالتوفيق
شكرا مرة ثانية لاجابتك لكن اعلم اني لا اعرف شيء من الفيجول ولي يومين اتعلم من اليوتيوب فلك الف شكر لتفهمك ومن علمني حرف ملكني عبد

اخي العزيز ممكن تكتب لي الكود كامل وتستثني من الجمع 5 تكست بوكس 1.2.3.4.5
واكون شاكر لك
الرد }}}
تم الشكر بواسطة:
#10
تفضل

.zip   1.zip (الحجم : 74.94 ك ب / التحميلات : 28)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال مهم لدي الرجاء حل المشكلة اي سفن 10 864 29-05-23, 05:01 PM
آخر رد: اي سفن
  الرجاء المساعدة المتألق9 0 364 15-03-23, 09:35 PM
آخر رد: المتألق9
  [VB.NET] الرجاء المساعدة في الكود لو سمحتم محمد شحادة 4 689 13-03-23, 09:56 AM
آخر رد: محمد شحادة
  [سؤال] الرجاء المساعدة chabba 0 303 13-03-23, 01:47 AM
آخر رد: chabba
  الرجاء الدخول والمساعدة في كود فرز بشرط alijtb82 0 275 05-12-22, 01:29 AM
آخر رد: alijtb82
  الرجاء كتابة كود عمل اختصار بلوحة المفاتيح بس عن طريق ctrl+n مثلا لاضافة مستند Mostafa201255411 0 409 21-11-22, 01:51 PM
آخر رد: Mostafa201255411
Lightbulb [VB.NET] الرجاء المساعدة أخوتي عندي مشكلة DATA_GRID_VIEW RADOS 4 1,357 19-01-22, 12:41 AM
آخر رد: رضوان الجماعي
  طريقه صنع مشغل للقنوات بالفلاش بلاير بالفيجوال بيسك | الرجاء الرد olordhakem20@gmail.com 1 1,116 28-06-21, 08:00 PM
آخر رد: masport tv
  الرجاء من رواد البرمجة في المنتدي بخصوص استعاء بيانات من موقع لتكست بوكس نور الهدى الهدى 2 1,686 16-06-21, 09:08 PM
آخر رد: نور الهدى الهدى
  الرجاء مساعدة بخصوص حفظ و تعديل صورة صنف من الأصناف nouribenyahia 0 979 09-02-21, 08:29 PM
آخر رد: nouribenyahia

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم