منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الرجاء مساعدتى فى المعادله التالية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الرجاء مساعدتى فى المعادله التالية (/showthread.php?tid=15531)

الرجاء مساعدتى فى المعادله التالية - Ashraf Elafify - 20-04-16

لدى معادل رياضيه المطلوب فيها تقريب الارقام العشريه لأقرب رقم صحيح فمثلا :-

text1.text = 600
DBGrid1.Columns(8).Text = 1.625
نتيجة قسمه 600/ 1.625 = 369.2307692307692
اريد تعديل الكود التالى لتصبح النتيجة 370 فقط بدون ارقام عشرية.



كود :
              Dim SizeSQuare As Integer
                   SizeSQuare = 0
                   SizeSQuare = Val(Text1.Text) / Val(DBGrid1.Columns(8).Text)


وبارك الله فى الجميع

RE: الرجاء مساعدتى فى المعادله التالية - Ahmed_Mansoor - 20-04-16

أهلا أخي الكريم , وهذه طريقة أخرى :

PHP كود :
Dim SizeSQuare As Double
Dim zCheckValue As String

SizeSQuare = Val(Trim$(Text1.Text)) / Val(Trim$(DBGrid1.Columns(8).Text))

zCheckValue = SizeSQuare

If InStr(1, zCheckValue, ".") <> 0 Then
   zCheckValue = Left$(zCheckValue, InStr(1, zCheckValue, ".") - 1)
   SizeSQuare = Val(Trim$(zCheckValue)) + 1
End If 


RE: الرجاء مساعدتى فى المعادله التالية - Ashraf Elafify - 21-04-16

بارك الله فيكم أخوانى أ/ أمير - أ/ أحمد
بارك الله فيكما و زادكم علما وجعله الله في ميزان حسناتكم .

جارى التجربة.

RE: الرجاء مساعدتى فى المعادله التالية - Ashraf Elafify - 21-04-16

تم و الحمد لله
انها تعمل بشكل جيد جداً

جعلها الله في ميزان حسناتكم وبارك الله فيكم و فى جميع اعضاء المنتدى الغالى.

RE: الرجاء مساعدتى فى المعادله التالية - awidan76 - 13-11-19

جزاك الله خير اخوتي احمد منصور وامير الزبيدي مبدعين دائماً