عملية حسابية المساعدة ؟؟

[Yousaf_Lnx 2]

اسلام عليكم

عملية حسابية كيف ازيل علامة ناقص و خلي صفر في النتيجة ؟

مثال : 5 - 6 = -1

مطلوب: 5 - 6 = 0

الكود:

Private Sub Command1_Click()

Test1 = (Text2) - (Text1)

Text3 = CInt(Test1)

End Sub

____________.zip

تم تعديل 18 Aug 2009 بواسطه Yousaf_Lnx

[GHOST2010 164]

السلام عليكــم ورحمـة الله وبركاتــه ،،

استخدم جملة الشرط If

Private Sub Command1_Click()
Test1 = (Text2) - (Text1)
If CInt(Test1) < 0 Then
		Test1 = 0
End If
Text3 = CInt(Test1)
End Sub

[Yousaf_Lnx 2]

الف شكراً يا اخ العزيز الله يعطيك صحة و العاقية صراحة فرحت كثير على رد بهذة السرعة صراحة حليت لي مشكلة شكرأً

[السندبااد 19]

جزاك الله خيراً

لكن ما فائدة CInt ؟

لأني جربت الكود بدونها فكانت النتيجة صحيحة

[GHOST2010 164]

السلام عليكــم ورحمـة الله وبركاتــه ،،

المعامل CInt يقوم بتحويل القيمة إلى Integer لضمان نجاح العمليات الحسابية عليها