استفسار حول كود يظهر كمية الانتاج المتوقعة

[Ahmed.IQ]

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

في شخص كلمني وكان محتاج انو يتوقع الانتاج حسب معطيات 

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

العلبة الواحده من الزبادي تحتاج الى 99 غم حليب كامل الدسم و 11غم حليب خالي الدسم و 33 غم مثبت

انا كتبت الكود بالطريقة التالي 

 Public Function test() As Integer
 
 Dim tot, fd, df, mn As Long
    fd = Me.Te * 1000 / 99 'الكمية التي سيتم وضعها للحليب كامل الدسم
    df = Me.Text * 1000 / 11 'الكمية التي سيتم وضعها من الحليب خالي الدسم
    mn = Me.toot * 1000 / 33 'الكمية التي سيتم وضعها من المثبت
    tot = 0
        Do
            fd = fd - 1
            df = df - 1
            mn = mn - 1
            tot = tot + 1
        Loop While fd > 0 And df > 0 And mn > 0
            Me.te2 = fd / 1000 'المتبقي من المادة
            Me.Text2 = df / 1000 'المتبقي من المادة
            Me.toot2 = mn / 1000 'المتبقي من المادة
            Me.tot2 = tot 'عدد علب الزبادي التي سيتم انتاجها
 End Function

الكود يعمل و يعطي نتائج ولا توجد به مشكلة ..

لكن هل هناك طريقة افضل من هذه الطريقة .

مع الشكر الجزيل للجميع

تم تعديل ديسمبر 20, 2017 بواسطه Ahmed.IQ

[jjafferr]

وعليكم السلام

 

اذا الكود يعطي نتائج صحيحة ، ومافيه بطء ، فهو كود تمام ، وانتقل للخطوة التالية

هذه الايام وبسبب سرعة الكمبيوترات ، فارق الجزء من الثانية لا قيمة له

 

جعفر