تصحيح > if

[محمد الورفلي1]

السلام عليكم

 

اريد تصحيح

    If TextBox1 > TextBox2 Then TextBox3 = "منتظم"

    If TextBox1 < TextBox2 Then TextBox3 = "متأخر"

المشكلة عند وضع  رقم 12 في التكست  1      وعند وضع  رقم 2 في التكسيت    2 يظهر الناتج في التكسيت 3   "مـتاخر"   وهذا خطاء  لان المفروض القيم في تكست 1 اكبر من القيمة في تكسيت 2 والنتيجة الصحيحة هي     "منتظم"

اكبر واصغر.rar

[سليم حاصبيا]

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]

 

السلام عليكم

تمام  اريد شرح حتي استخدمها في شكل آخر

ما معني  cint  ولماذا وضعت التكست 1 بين الاقواس

 If CInt(TextBox1)

 

[سمير نجار]

السلام عليكم

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

اخي الكريم محمد

أيضاُ ينفعك هذا الكود البسيط

 If Val(TextBox1) > Val(TextBox2) Then
    TextBox3 = "منتظم"
    Else
    TextBox3 = "متأخر"
 End If