السلام عليكم ورحمة الله وبركاته
اريد معادلة تقوم بقسمة حقل معين ÷6 ثم تقرب الناتج للأعلى ... ثم بعد ذلك تقوم بالضرب ×6 مرة أخرى وتخزن الناتج فى حقل ؟
- أى مثلا رقم 7 عند قسمته على 6 يكون الناتج 1.166 فيكون بعد التقريب للأعلى = 2 ، وبعد الضرب × 6 يكون 12
- مثال أخر 711 عند القسمة ÷ 6 يكون الناتج 118.5 وبعد التقريب للأعلى تكون 119 ، وبعد الضرب × 6 = 714 وهكذا..
أى أن أى كسر عشرى يقرب للأعلى مثال ( 7.1=8 ، 6.2=7 ، 9.3=10 ، 11.0001= 12 ، وهكذا )
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
هذا الكود
a = Text0.Value
b = Text2.Value
d = Text7.Value
c = a / b
If c <> Int© Then
c = Int© + 1
dd = c * d
Text4.Value = dd
GoTo 1
End If
dd = c * d
Text4.Value = dd
1
End Sub
عندك text0 , text2 لادخال الرقم (مثلا 7 و 6) و ناتج القسمة يساوي (c=1.166)
و text7 و رقم الذي تريد ضرب في c
و text4 ناتج العملية النهائية
(gift)[gl]If c <> Int© Then[/gl]
نص0 = IIf(نص3 / 6 <> 0, CInt(نص3 / 6) + 1, CInt(نص3 / 6)) * 6
حيث نص0 هو الذي يخزن فيه ناتج العملية الحسابية
نص3 هو مربع النص الذي تكتب فيه الرقم
فكرة جميل و مختصر يا استاذ ابوحمود
بس اذا تسمح لي عندي سؤال؟؟
بسهولة و بشرح كافي؟؟ شرح
IIF و ايضا CInt ؟؟ و ما هي الفرق بين CINT و Int ؟؟
مع مثال؟؟(f) (clock)
مشكور أخ VB والطريقة جيدة وقد كنت استخدمت مثلها من قبل ولكن ..
الأخ أبو حمود مشكور جدأ ولاطريقة لم أجربها ولكنى فعلاً أود طريقة من سطر واحد مثل طريقتك .. ولكن كيف يتم ضبط حقل معين فى الجدول كى ينفذ هذه الطريقة على أحد الحقول الأخرى التى ستتمثل فى نص3 بطريقة تلقائية فور إدخال البيانات مباشرة ؟
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
بسم الله الرحمن الرحيم
للرفع
أخ ابوحمود وجميع والأخوة
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
الأخ vb_access2002
سبق في موضوع أن وضعت مثال عن دالة IIF
ودالة CINT للتحويل لعدد صحيح
والفرق بين cint وint أن الأولى تعطي العدد الصحيح مع التقريب
والثانية بدون تقريب مثال :
CInt(78.88)=79
Int(78.88)=78
أما اذا كان العدد سالبا فتقرب مثل
Int(-78.88)=-79
أخي الفاروق
عذرا فلم أفهم من كلامك أي شيء
ارجو أن توضخ لي هذا :
ولكن كيف يتم ضبط حقل معين فى الجدول كى ينفذ هذه الطريقة على أحد الحقول الأخرى التى ستتمثل فى نص3 بطريقة تلقائية فور إدخال البيانات مباشرة ؟
ولك تحياتي
بسم الله الرحمن الرحيم
مشكور أخ أبو حمود على الإهتمام ..
والمقصد:
أننى لدى جدول به عمود يحتوى على أرقام مختلفة ... وأريد تنفيذ المعادلة التى ذكرتها على أرقام هذا العمود ليتم تسجيل الناتج فى عمود أخر بالجدول !!
مع العلم أن بيانات الجدول يتم استقبالها عن طريق إستعلام الحاق..
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
المنتدى الآن فيه خاصية ارفاق الملفات ارفق الملف وأبشر بكل خير
بسم الله
إن شاء الله أفعل ..
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم ورحمة الله وبركاته
الأخ/ أبو حمود
هذه هى قاعدة البيانات ..
وشاكرا لتعاونك وتعاون جميع رواد المنتدى
وكل عام وأنتم بخير
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم ورحمة الله وبركاته
للرفع للأهمية
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم
أين أنت يا أخ/أبو حمود أو الأخ/محمد طاهر أو الأخو الأخريين ..
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
------------------------------------------------------------------------------------
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم
؟؟؟؟؟؟؟؟؟
؟؟؟؟؟
؟؟
؟
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم
هل المسألة معقدة لهذا الحد ؟؟
أرجو الرد حتى إذا كانت كذلك أهمل الموضوع ..
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
?
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم
ربما إنشغال المشرفين والأعضاء هو سبب عدم الرد ..
وعلى أى حال ألف شكر ..
والرجا من المشرفين إغلاق هذا الموضوع
..
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…