اسلام عليكم
عملية حسابية كيف ازيل علامة ناقص و خلي صفر في النتيجة ؟
مثال : 5 - 6 = -1
مطلوب: 5 - 6 = 0
الكود:
Private Sub Command1_Click()
Test1 = (Text2) - (Text1)
Text3 = CInt(Test1)
End Sub
عملية حسابية المساعدة ؟؟
السلام عليكــم ورحمـة الله وبركاتــه ،،
استخدم جملة الشرط If
Private Sub Command1_Click() Test1 = (Text2) - (Text1) If CInt(Test1) < 0 Then Test1 = 0 End If Text3 = CInt(Test1) End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
الف شكراً يا اخ العزيز الله يعطيك صحة و العاقية صراحة فرحت كثير على رد بهذة السرعة صراحة حليت لي مشكلة شكرأً
جزاك الله خيراً
لكن ما فائدة CInt ؟
لأني جربت الكود بدونها فكانت النتيجة صحيحة
فاعلم أنه لا إله إلا الله
السلام عليكــم ورحمـة الله وبركاتــه ،،
المعامل CInt يقوم بتحويل القيمة إلى Integer لضمان نجاح العمليات الحسابية عليها
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال