[haider kh]

السلام عليكم اخوتي الكرام في المنتدى

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

ولدي سؤال من حضراتكم اخوتي واساتذتي الكرام وهو:

لدي ثلاثه textbox ما اتمناه عليكم هو الاتي

ان يتم ملئ ال textbox1 بعدد مكون من مرتبتين فقط وعند اكمال كتابة العدد ينتقل تلقائيا الى ال textbox2 وعند اكمال اضافة العدد المكون من مرتبتين في ال textbox2 يظهر ناتج جمع العددين في التيكست الاول والثاني في textbox 3

وعذرا للاطالة.

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته اخي الكريم
 تفضل هذه الاكواد

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text.Length = 2 Then
           TextBox2.Focus()
       End If
   End Sub

   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       If TextBox2.Text.Length = 2 Then
           TextBox3.Focus()
           TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
       End If
   End Sub

[haider kh]

شكرًا جزيلا استاذ ابراهيم ايبو الله يبارك بيك???

[ابراهيم ايبو]

السلام عليكم اخي الكريم 

لاشكر على واجب

ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ

بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود

كود :

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               ElseIf TextBox2.Text = "0" Then
                   TextBox2.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub

[حريف برمجة]

(08-03-19, 10:52 PM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم 

لاشكر على واجب

ماذا لو قمت بالضغط على مفتاح Space او كتبت احرف بدل الارقام بالخطأ

بالتأكيد سينتج خطأ بالبرنامج ولتلافي هذا الخطأ اضف هذا الكود

كود :

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ".", ControlChars.Back
               e.Handled = False
               If TextBox1.Text = "0" Then
                   TextBox1.Text = "0"
               ElseIf TextBox2.Text = "0" Then
                   TextBox2.Text = "0"
               End If
           Case Else
               e.Handled = True
       End Select
   End Sub

احسنت اخي إبراهيم ايبو

هو كذا المبرمج يتخيل أشياء ربما تحصل وربما لا تحصل ،، وعلى المبرمج حلها قبل حصولها وهو الأفضل ...

ولكن ماذا لو قام المستخدم بنسخ عدد اربعه ارقام ولصقها في التكست بوكس ؟؟؟؟؟؟

أتوقع إضافة شرط 2 < قبل تنفيذ كودك لحكر الموضوع 

كود :

If TextBox1.Text.Length >  2 TextBox1.Text = "" : Exit Sub

ثم وضع كودك ،،


If TextBox1.Text.Length = 2 Then ........

[ابراهيم ايبو]

السلام عليكم  استاذي الكريم حربف برمجة دمت لنا قدوة ومنارة للعلم تنير دربنا

ماذا وماذا هذه هي البرمجة هو ان يضع المبرمج نفسه بدل المستخدم العادي

لان المبرمج بطبيعته بعرف كبف يتعامل مع برنامجه اما المستخدم فلبست معرفته بالبرنامج كالمبرمج

منكم يااساتذتنا الكرام نتعلم كل يوم ومن ليس عنده كبير ماعنده تدبير 

لك كل الود والاحترام

[حريف برمجة]

تسلم اخي إبراهيم ممكن تستفيد مني بمعلومة وممكن استفيد منك بعشرة .

المعرفة ليست لشخص واحد ..

والعلم بحر

بالتوفيق للجميع

[haider kh]

الاستاذين الرائعين [b]ابراهيم ايبو[/b] و [b]حريف برمجة [/b]
شكرا جزيلا لكما بارك الله بجهدكم المتواصل لافادة اخوتكم مبتدئي البرمجة
زادكم الله من علمة وجعل عملكم هذا في ميزان حسناتكم

[ابراهيم ايبو]

الحمد لله والشكر لله

ثم الشكر لهذا المنتدى الرائع واعضائه الكرام

خلية نحل ماشاء الله الكل ينبري للمساعدة والعمل والمشاركة بالمعلومة والنصيحة والمشورة 

وكل الشكر لاي عضو يقوم بالسؤال لان لولا السؤال مانتج هذا الحوار العلمي والاجتماعي الراقي