[ahmedfa71]

الشكر لكل الإخوة على المساعدة في المشاركات السابقة 

هل ممكن العمل في دالة  واحدة  مع العلم أن قيمة المتغير واحدة وهي EC قيمة الكومبوبوكس 

إلا أن النتيجة كل منها على حدى كما هو مبين في الكود أدناه

PHP كود :

Function GetTSDB (ByVal EC As Integer) As Double
        If (EC < 1 Or EC > 17) Then Return 0
        Dim ASDB() As Integer = {30, 25, 33, 60, 29, 63, 69, 71, 86, 101, 117, 150, 180, 207, 255, 300, 390}
        Dim TASDB As Double = (ASDB((EC - 1)) * 55)
        Return TASDB
    End Function 
Function GetTMJT(ByVal EC As Integer) As Double
        If (EC < 1 Or EC > 17) Then Return 0
        Dim MJT() As Integer = {770, 740, 690, 640, 570, 500, 380, 380, 310, 310, 150, 150, 150, 150, 150, 150, 150}
        Dim TMJT As Double = (MJT(EC - 1))
        Return TMJT
    End Function
Function GetTSDB(ByVal EC As Integer) As Double
        If (EC < 1 Or EC > 17) Then Return 0
        Dim ASDB() As Integer = {20, 21, 24, 26, 28, 31, 34, 37, 41, 45, 49, 53, 57, 62, 66, 71, 76}
        Dim TASDB As Double = (ASDB(EC - 1) * 45)
        Return TASDB
    End Function 


تقبلو تحياتي