المشاركات : 5
المواضيع 1
الإنتساب : May 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم ورحمة الله وبركاته
عندي نموذجين
الاول يوجد به تكست بوكس وزر امر
وفي الثاني تكست بوكس
اريد نقل قيمة التكست بوكس الى النموذج الاخر مع زيادة واحد
جربت التالي
بوضعه في زر الامر
Dim x As Integer
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1
()Form2.Show
ولكن لم تنجح الطريقة
المشاركات : 5
المواضيع 1
الإنتساب : May 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
انا لم اعلن عن المتغير
شكرا لكم
المشاركات : 5
المواضيع 1
الإنتساب : May 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
اخي سعود
اشكرك على اجابتك
ونطمع بالمزيد من علمك
النموذجين يوجد بهما اثنان تكست بوكس
والمطلوب هو
عند ادخال رقم تكون النتيجه في الفورم الثاني نفس الرقم الموجود في الفورم الاول زائد واحد
على ان تكون الارقام من 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
المشاركات : 531
المواضيع 4
الإنتساب : May 2016
السمعة :
55
الشكر: 694
تم شكره 535 مرات في 367 مشاركات
يا اكسبلورر،
تحليل الكود اللي في موضوعك:
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 يتم وضع (صفر).
أتركك للتفكير..........
البرمجة هي ترتيب منطقي....
المشاركات : 5
المواضيع 1
الإنتساب : May 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
مرحبا بك اخي الوادي
اجابة لسؤالك الاول
تتغير قيمة x اذا كانت تساوي 9 و r = 9 اما اذا r لاتساوي 9 فان x لا تتغير
اجابة سؤالك الثاني
انا اردت نقل القيمه فقط
الشرط لا فائدة منه (مبتدئ)
عزيزي
اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم
55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم
المشاركات : 5
المواضيع 1
الإنتساب : May 2016
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم
الرجاء الرد على سؤالي ولكم من الشكر اجزله
اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم
55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم