30-05-16, 09:52 AM
يا اكسبلورر،
تحليل الكود اللي في موضوعك:
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 يتم وضع (صفر).
أتركك للتفكير..........
البرمجة هي ترتيب منطقي....
تحليل الكود اللي في موضوعك:
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 يتم وضع (صفر).
أتركك للتفكير..........
البرمجة هي ترتيب منطقي....


