+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] نقل القيمة من textbox الى اخر (/showthread.php?tid=15756)
نقل القيمة من textbox الى اخر - explorer2 - 10-05-16
السلام عليكم ورحمة الله وبركاته
عندي نموذجين
الاول يوجد به تكست بوكس وزر امر
وفي الثاني تكست بوكس
اريد نقل قيمة التكست بوكس الى النموذج الاخر مع زيادة واحد
جربت التالي
بوضعه في زر الامر
Dim x As Integer
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1
()Form2.Show
ولكن لم تنجح الطريقة
RE: نقل القيمة من textbox الى اخر - explorer2 - 10-05-16
انا لم اعلن عن المتغير
شكرا لكم
RE: نقل القيمة من textbox الى اخر - سعود - 10-05-16
ضع قيمة افتراضية لـx
RE: نقل القيمة من textbox الى اخر - explorer2 - 30-05-16
اخي سعود
اشكرك على اجابتك
ونطمع بالمزيد من علمك
النموذجين يوجد بهما اثنان تكست بوكس
والمطلوب هو
عند ادخال رقم تكون النتيجه في الفورم الثاني نفس الرقم الموجود في الفورم الاول زائد واحد
على ان تكون الارقام من 00 الى 99 ومن ثم الرجوع الى 00 وليس 100
مثلا اذا كان 00 فتكون 01 واذا كانت 99 تكون النتيجه في الفورم الثاني 00
و 09 تكون 10 و 90 تكون91 وهكذا
استخدمت التالي
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
Dim r As Integer
x = TextBox1.Text
r = TextBox2.Text
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x
If Me.TextBox2.Text = r Then Form2.TextBox2.Text = r + 1
If Me.TextBox1.Text = 9 Then Form2.TextBox1.Text = 0
If Me.TextBox2.Text = 9 Then Form2.TextBox2.Text = 0
Form2.Show()
End Sub
RE: نقل القيمة من textbox الى اخر - الوادي - 30-05-16
يا اكسبلورر،
تحليل الكود اللي في موضوعك:
Dim x As Integer
هنا تم تعيين متغير x وقيمته (صفر) لأنه لم تعين له قيمة أخرى
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox1.Text تساوي x والتي سوف يكون المتغير (صفر) دائما.
السؤال: متى سوف تتغير قيمة x
أتركك للتفكير.......
تحليل الكود اللي في ردك السابق:
Dim x As Integer
Dim r As Integer
هنا تم تعيين متغير x وr وقيمتهها (صفر) لأنه لم تعين له قيمة أخرى
x = TextBox1.Text
r = TextBox2.Text
هما تم تعيين قيمة للمتغيرين x وr من TextBox1.Text وTextBox2.Text مع أنها نصية وليست رقمية والمفروض تحويلها لتلافي الخطأ
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x
If Me.TextBox2.Text = r Then Form2.TextBox2.Text = r + 1
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox1.Text تساوي x والتي سوف يكون المتغيران تساوي TextBox دائما.
السؤال هنا: ما فائدة هذا الشرط طالما سيساويان نفس القيم؟
If Me.TextBox1.Text = 9 Then Form2.TextBox1.Text = 0
If Me.TextBox2.Text = 9 Then Form2.TextBox2.Text = 0
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox تساوي 9 يتم وضع (صفر).
أتركك للتفكير..........
البرمجة هي ترتيب منطقي....
RE: نقل القيمة من textbox الى اخر - explorer2 - 31-05-16
مرحبا بك اخي الوادي
اجابة لسؤالك الاول
تتغير قيمة x اذا كانت تساوي 9 و r = 9 اما اذا r لاتساوي 9 فان x لا تتغير
اجابة سؤالك الثاني
انا اردت نقل القيمه فقط
الشرط لا فائدة منه (مبتدئ)
عزيزي
اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم
55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم
RE: نقل القيمة من textbox الى اخر - explorer2 - 01-06-16
السلام عليكم
الرجاء الرد على سؤالي ولكم من الشكر اجزله
اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم
55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم