معرفة بعض المعلومات عن المعالج Processor

اسم العضو :AhmedEssawy

منتدى الفجوال بيسك

الكود منقول ايضاً ، قم بكتابة التالي في قسم التصاريح :

رمز:

Option Explicit
‘ Name:     Obtaining Information About CPU
‘ Author:   Chong Long Choo

Private Declare Sub GetSystemInfo Lib “kernel32″ (lpSystemInfo _
As SYSTEM_INFO)
Private Type SYSTEM_INFO
    dwOemID As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOrfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type
Public Enum etProcessorType
     PROCESSOR_INTEL_386 = 386
     PROCESSOR_INTEL_486 = 486
     PROCESSOR_INTEL_PENTIUM = 586
     PROCESSOR_MIPS_R4000 = 4000
     PROCESSOR_ALPHA_21064 = 21064
End Enum
Private tmpSystemInfo As SYSTEM_INFO

وفي الدالة :

رمز:

Private Sub Class_Initialize()
    GetSystemInfo tmpSystemInfo
End Sub
Public Function ProcessorType() As etProcessorType
    ‘See declarations for meaning of returned values
    ProcessorType = tmpSystemInfo.dwProcessorType
End Function
Public Function NumberOrfProcessors() As Long
    NumberOrfProcessors = tmpSystemInfo.dwNumberOrfProcessors
End Function
Public Function MaximumApplicationAddress() As Long
    MaximumApplicationAddress = _
       tmpSystemInfo.lpMaximumApplicationAddress
End Function
Public Function MinimumApplicationAddress() As Long
    MinimumApplicationAddress = _
        tmpSystemInfo.lpMinimumApplicationAddress
End Function
Public Function PageSize() As Long
    PageSize = tmpSystemInfo.dwPageSize
End Function
Public Function OemID() As Long
    OemID = tmpSystemInfo.dwOemID
End Function
Public Function Reserved() As Long
    Reserved = tmpSystemInfo.dwReserved