• 0
Yousaf_Lnx

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

سؤال

اسلام عليكم

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

مثال : 5 - 6 = -1

مطلوب: 5 - 6 = 0

الكود:

Private Sub Command1_Click()

Test1 = (Text2) - (Text1)

Text3 = CInt(Test1)

End Sub

____________.zip

تم تعديل بواسطه Yousaf_Lnx
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .