مصادر ومراجع موقع يقرأ ( أو يشرح ) لك الأكواد 🈲 بلغة مفهومة ويسيرة 📃😊👌

[Moosak]

السلام عليكم ورحمة الله وبركاته ..

اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 

وهذا هو الموقع :

https://denigma.app

الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA ..

وهذا شرح مبسط للاستخدام  ..

بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى :

نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!]  :

ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 

هذا وسلامتكم ☺️🌹

 

 

[HUSSIN]

 

جزاك الله خير 🌹

 

 

 

 

 

[abouelhassan]

شكر وتقدير واحترام من اخيك

[ابو جودي]

في 13‏/6‏/2022 at 09:11, Moosak said:

السلام عليكم ورحمة الله وبركاته ..

اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 

وهذا هو الموقع :

https://denigma.app

الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA ..

ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 

هذا وسلامتكم ☺️🌹

 

 

وعليكم السلام ورحمة الله تعالى وبركاته

ولكن لا يمكن الاعتماد عليه كليا

سواء قرأت شرح الكود قبل او بعد الترجمة 

اعتقد قراءة وتحليل الكود افضل بكثيـــــــــــــــر

جرب الكود الاتى بالموقع وقول لى رأيك  هو مش كودى وانا اللى كتبته

بعد وضعه بالموقع ولله انا ضيعت وماصيرت فاهم شئ بالكود 

Function MySpid( _
                 ByRef strFieldName As String, _
                 ByRef strTableName As String, _
                Optional strPrefixe As String = vbNullString, _
                Optional strResetYYorMMorDD As String = "YY", _
                Optional nDay As Integer = 0, _
                Optional nMonth As Integer = 0, _
                Optional nYear As Integer = 0) As String
  
  Dim strLinkCriteria   As String
  Dim strOldID          As String
  Dim strNxtID          As Long
  
  Dim intLenPrefixe As Integer
  
  Const intNumberOfZeros = 6
  intLenPrefixe = Len(strPrefixe) + 1
  
  
    If nDay = 0 Then nDay = Format(Date, "dd")
    If nMonth = 0 Then nMonth = Format(Date, "mm")
    If nYear = 0 Then nYear = Year(Date) - 2000
    
    Select Case strResetYYorMMorDD
        Case Is = "YY": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 6), 2), 0) = nYear     ' Yearly Reset
        Case Is = "MM": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 4), 2), 0) = nMonth    ' Monthly Reset
        Case Is = "DD": strLinkCriteria = Nz(Right(Mid(Nz(DLast(strFieldName, strTableName), 0), intLenPrefixe, 2), 2), 0) = nDay     ' Daily Reset
    End Select
    
    strOldID = Nz(DLast("" & strFieldName & "", strTableName, strLinkCriteria), 0)

    strNxtID = CLng(Right(strOldID, intNumberOfZeros))
    strNxtID = strNxtID + 1
    MySpid = strPrefixe & Format(nDay, "00") & Format(nMonth, "00") & Format(nYear, "00") & _
             String(intNumberOfZeros - Len(CStr(strNxtID)), "0") & CStr(strNxtID)

End Function

 

[kassem_geo]

جزاك الله خيرا يا صديقي