للنقاش موضوع للنقاش بخصوص أداة جديدة لتحويل الأكواد من 32 بت لتتوافق مع النواتين ( 32 و 64 )

[Foksh]

تعقيباً على ما أشار إليه المهندس @Moosak ، ومن باب التوضيح ، فإن الترتيب المثالي ( من الناحية الفنية والأداء ) يجب أن يكون :-

1. الثوابت ( Constants ) يجب أن تظهر بعد الإعلانات لأنها قد تعتمد على قيم من الإعلانات .
2. الإعلانات ( Declares ) يجب أن تكون في البداية لأن الكود البرمجي يعتمد عليها .
3. وضع الكود البرمجي في النهاية يجعل الكود أكثر تنظيماً وسهولة في القراءة .

فشكراً للفت الإنتباه لهذه النقطة  ، وقد تم الانتهاء منها بإذن الله تعالى .

تم تعديل مايو 30 بواسطه Foksh

[Foksh]

 

 

    

Code Converter 64.zip       Code Converter 32.zip

 

 

طبعاً لإفاداتكم بالنتائج ، يسعدني إبداء الرأي لمن هو مهتم بوظيفة الأداة . مع العلم أن النسبة المرجو تحقيقها في الوقت الحالي 70%. وهي نسبة تعتبر بالنسبة لي جيدة نوعاً ما لما في الموضوع من تشعبات كثيرة وكبيرة جداً جداً ..

ولكن نسأل الله الوصول إلى أكبر نسبة من النجاح .

تم تعديل يونيو 9 بواسطه Foksh

[Moosak]

التجربة الأولى ناجحة ولله الحمد 🙂 

بس لما رجعت أجرب نفس الكود السابق حصلت على نفس النتيجة السابقة 😅

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
  ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
  Long
Private Const KEYEVENTF_KEYUP = &H2


' Get the current state of the NumLock key

Function GetNumLockKey() As Boolean
  GetNumLockKey = GetKeyState(vbKeyNumlock)
End Function


Sub SetNumLockKey(ByVal newState As Boolean)
  ' if the current state must be changed
  If CBool(GetKeyState(vbKeyNumlock)) <> newState Then
    ' programmatically press and release the NumLock key
    keybd_event vbKeyNumlock, 0, 0, 0
    keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0
  End If
End Sub

والنتيجة : 

'===================================================
' API Code Converter for Dual Compatibility (32-bit & 64-bit)
' Developed By Foksh (Officena.Net)
' Generated on: 2025-06-10 17:43:10
' Tool version:  v1.3
'===================================================

Private Const KEYEVENTF_KEYUP = &H2

' Get the current state of the NumLock key

Function GetNumLockKey() As Boolean
  GetNumLockKey = GetKeyState(vbKeyNumlock)
End Function

Sub SetNumLockKey(ByVal newState As Boolean)
  ' if the current state must be changed
  If CBool(GetKeyState(vbKeyNumlock)) <> newState Then
    ' programmatically press and release the NumLock key
    keybd_event vbKeyNumlock, 0, 0, 0
    keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0
  End If
End Sub

#If VBA7 Then
    ' 64-bit declarations
    Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
  ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
  Long

#Else
    ' 32-bit declarations
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
  ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
  Long

#End If

الترتيب غير صحيح .. المفروض :
الثوابت ثم -----> دالة ال API ثم ----->  الدالة الفرعية

[Foksh]

20 ساعات مضت, Moosak said:

الترتيب غير صحيح .. المفروض :
الثوابت ثم -----> دالة ال API ثم ----->  الدالة الفرعية

مهندسنا الغالي ،،

جاري المتابعة والتدقيق 😇

شكراً لمتابعتك بالإفادة الغير منقطعة