احتاج موديول احساب القيم كما بالمرفق - (تم الحل) - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50805)

احتاج موديول احساب القيم كما بالمرفق - (تم الحل) - hsab - 17-12-24 السلام عليكم ورحمة الله  ارجو مساعدتى فى صياغة دالة لحساب حجم المنتج بالخزان وفقا للمعلومات المرفقة على ان تكون الدالة كما التالى Public Function CalcVolume(TKNo As Integer, DipV As Double) As Double     Dim DipCM As Integer     Dim RemainingMM As Double      Dim BaseVolume As Double  END FUNCTION والمعلومات مرفقة RE: احتاج موديول احساب القيم كما بالمرق - hsab - 17-12-24 هذه ممكن تفيد لكن النتيجة خطأ ارجو تعديله Public Function calcvolume1(TKNo As Integer, DipV As Integer) As Double     Dim Volume As Double     Dim DipV_cm As Double          ' تحويل DipV من مليمتر إلى سنتيمتر     DipV_cm = DipV / 10#     ' التعامل مع الخزان الأول     If TKNo = 1 Then         Select Case DipV             Case 0 ' 0 mm                 Volume = 0             Case 1: Volume = 452             Case 2: Volume = 904             Case 3: Volume = 1355             Case 4: Volume = 1807             Case 5: Volume = 2259             Case 6: Volume = 2711             Case 7: Volume = 3163             Case 8: Volume = 3615             Case 9: Volume = 4066             Case Else                 ' قياس بالسنتيمتر                 Select Case DipV_cm                     Case 0: Volume = 35287                     Case 1: Volume = 39801                     Case 36: Volume = 197761                     Case 37: Volume = 202276                     Case 68: Volume = 342245                     Case 69: Volume = 346761                     Case 70: Volume = 486725                     ' القياسات الأكبر                     Case 100: Volume = 486725                     Case 190: Volume = 892917                     Case 191: Volume = 897431                     Case 192: Volume = 901945                     Case 199: Volume = 933564                     Case Else                         ' حساب الفرق للسنتيمتر                         If DipV_cm < 36 Then                             Volume = 35287 + (DipV_cm * 4513)                         ElseIf DipV_cm < 68 Then                             Volume = 197761 + ((DipV_cm - 36) * 4515)                         ElseIf DipV_cm < 100 Then                             Volume = 342245 + ((DipV_cm - 68) * 4515)                         ElseIf DipV_cm < 190 Then                             Volume = 486725 + ((DipV_cm - 100) * 4513)                         End If                 End Select         End Select     End If     ' إرجاع كمية السائل     CalcVolume = Volume End Function وهذه إجابة الذكاء الصناعى Public Function calcvolume(TKNo As Integer, DipV As Integer) As Double Dim Volume As Double Dim DipV_cm As Double ' تحويل DipV من مليمتر إلى سنتيمتر DipV_cm = DipV / 10# ' التعامل مع الخزان الأول If TKNo = 1 Then ' نفس الشيفرة الخاصة بالخزان 1 ' التعامل مع الخزان الثاني ElseIf TKNo = 2 Then Select Case DipV Case 0 Volume = 0 Case 1: Volume = 500 Case 2: Volume = 1000 ' أضف المزيد من الحالات هنا Case Else ' يمكنك حساب القيم هنا أيضًا If DipV_cm < 50 Then Volume = 5000 + (DipV_cm * 100) ' مجرد مثال على حساب الحجم Else ' حساب الحجم الآخر End If End Select End If ' إرجاع كمية السائل calcvolume = Volume End Function