منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في هذا الكود (/showthread.php?tid=20122)



مساعدة في هذا الكود - ahmedfa71 - 23-04-17

الشكر لكل الإخوة على المساعدة في المشاركات السابقة 
هل ممكن العمل في دالة  واحدة  مع العلم أن قيمة المتغير واحدة وهي EC قيمة الكومبوبوكس 
إلا أن النتيجة كل منها على حدى كما هو مبين في الكود أدناه
PHP كود :
Function GetTSDB (ByVal EC As Integer) As Double
        If 
(EC Or EC 17Then Return 0
        Dim ASDB
() As Integer = {302533602963697186101117150180207255300390}
 
       Dim TASDB As Double = (ASDB((EC 1)) * 55)
 
       Return TASDB
    End 
Function 
Function 
GetTMJT(ByVal EC As Integer) As Double
        If 
(EC Or EC 17Then Return 0
        Dim MJT
() As Integer = {770740690640570500380380310310150150150150150150150}
 
       Dim TMJT As Double = (MJT(EC 1))
 
       Return TMJT
    End 
Function
Function 
GetTSDB(ByVal EC As Integer) As Double
        If 
(EC Or EC 17Then Return 0
        Dim ASDB
() As Integer = {2021242628313437414549535762667176}
 
       Dim TASDB As Double = (ASDB(EC 1) * 45)
 
       Return TASDB
    End 
Function 
تقبلو تحياتي