محمد الورفلي1 قام بنشر أغسطس 3, 2017 مشاركة قام بنشر أغسطس 3, 2017 السلام عليكم اريد تصحيح If TextBox1 > TextBox2 Then TextBox3 = "منتظم" If TextBox1 < TextBox2 Then TextBox3 = "متأخر" المشكلة عند وضع رقم 12 في التكست 1 وعند وضع رقم 2 في التكسيت 2 يظهر الناتج في التكسيت 3 "مـتاخر" وهذا خطاء لان المفروض القيم في تكست 1 اكبر من القيمة في تكسيت 2 والنتيجة الصحيحة هي "منتظم" اكبر واصغر.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 4, 2017 أفضل إجابة مشاركة قام بنشر أغسطس 4, 2017 5 ساعات مضت, محمد الخازمي said: السلام عليكم اريد تصحيح If TextBox1 > TextBox2 Then TextBox3 = "منتظم" If TextBox1 < TextBox2 Then TextBox3 = "متأخر" المشكلة عند وضع رقم 12 في التكست 1 وعند وضع رقم 2 في التكسيت 2 يظهر الناتج في التكسيت 3 "مـتاخر" وهذا خطاء لان المفروض القيم في تكست 1 اكبر من القيمة في تكسيت 2 والنتيجة الصحيحة هي "منتظم" اكبر واصغر.rar تصحيح Private Sub CommandButton1_Click() If TextBox1 + 0 > TextBox2 + 0 Then TextBox3 = "منتظم" _ Else TextBox3 = "متأخر" End Sub او هذا Private Sub CommandButton1_Click() If CInt(TextBox1) > CInt(TextBox2) Then TextBox3 = "منتظم" _ Else TextBox3 = "متأخر" End Sub 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 4, 2017 الكاتب مشاركة قام بنشر أغسطس 4, 2017 السلام عليكم تمام اريد شرح حتي استخدمها في شكل آخر ما معني cint ولماذا وضعت التكست 1 بين الاقواس If CInt(TextBox1) رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر أغسطس 5, 2017 مشاركة قام بنشر أغسطس 5, 2017 السلام عليكم بعد اذن استاذي الكريم سليم اخي الكريم محمد أيضاُ ينفعك هذا الكود البسيط If Val(TextBox1) > Val(TextBox2) Then TextBox3 = "منتظم" Else TextBox3 = "متأخر" End If 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.