[hsab]

هذه ممكن تفيد لكن النتيجة خطأ ارجو تعديله

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