23-04-17, 02:13 PM
الشكر لكل الإخوة على المساعدة في المشاركات السابقة
تقبلو تحياتي
هل ممكن العمل في دالة واحدة مع العلم أن قيمة المتغير واحدة وهي 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