بخصوص تقريب الاعداد الفرديه

ممكن تخترع لك طربقة جديده

مثلا

تقسم الرقم المراد تقريبة على 2

إذا طلع الناتج رقم صحيح مايحتاج تقريب

اما اذا طلع في الناتج كسور زود على الرقم 1

اتمني تنجح الفكره

مرحبا اخي ارفقت ما تم طلبة

ارجو ان اكون وفقت في إجابتك..

_______________.rar

مشكور استاذ محمد دائما سباق بتعاونك

شكرا جذيلا

:D مشكور اخ محمد vb علي المثال ولكنه يخطأ في تحديد نوع الرقم اذا تعدت الرقم المدخل في التكست الاف والمليون فا ارجو انه يعيد صياغة تفكيره في الكود وتفضل هذا كود اخر مجرب وشغال تمام وارجو ان الاخ محمد vb ما يزعلش مني انا حبيت اقول راي في الكود وانبه حتي لا يقع في اخطاء برمجة ناتجة عنه وشكرا ليكوا كلكوواا :lol:

Private Sub Command1_Click()


Dim x As Double
Dim y As Double



x = Trim(Text1.Text)


y = x / 2

If y <> Int(y) Then


MsgBox "العدد فردي"

MsgBox "العدد الزوجي من هذا الرقم هو :" & "  " & (y * 2) + 1


Else

MsgBox "  العدد زوجي"

End If



End Sub

مرحبا اخي عادي جداً أتمنى الأستفادة لي ولغيري .. وإحنا كلنا هنا لنستفيد من بعض

بس الحقيقه الطريقة التي انتة مسويها جميلها بس يوجد بها غلطة بسيطة

جرب كتابة الرقم هذا ( 10000000000000005 )

يظهر مسج يقول ان الرقم زوجي .. تحياتي

اللهم بارك لكم في علمكم

مشكورين اخوتى ويارب يزدكم من علمه

انا كتبتلك يا اخ احمد الكود بطريقة تانية لتزيد الاستفادة

Text1.Text = Trim(Text1.Text)
If Len(Text1.Text) > 8 Then GoTo 20
Dim x As Double
Dim y As String: y = Val(Text1.Text)
x = y Mod 2: If x <> 0 Then Text1.Text = y + 1
Exit Sub
20:
MsgBox "Sorry , Over Flow ", 0, "Error"

وطبعا لازم تتاكد انه ادخل الارقام من البداية